Data.DB.TBlobField.Assign
Delphi
procedure Assign(Source: TPersistent); override;
C++
virtual void __fastcall Assign(System::Classes::TPersistent* Source);
Eigenschaften
Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
---|---|---|---|---|
procedure function |
public | Data.DB.pas Data.DB.hpp |
Data.DB | TBlobField |
Beschreibung
Kopiert einen Wert in das BLOB-Feld.
Mit Assign können Daten in das BLOB-Feld kopiert werden. Assign kopiert den Wert eines BLOB-Feldes aus
einem anderen BLOB-Feld,
einem TStrings-Objekt,
einem TPicture- oder TBitmap-Objekt, wenn BlobType ftGraphic oder ftTypedBinary ist,
jedem Objekt, das TBlobField mit seiner Methode AssignTo unterstützt.
Im folgenden Beispiel wird mit der Methode Assign ein Bitmap von einer TImage-Komponente in ein BLOB-Feld mit Hilfe des TBlobField-Objekts kopiert.
if not (ClientDataSet1.State in [dsInsert, dsEdit]) then
ClientDataSet1.Insert;
ClientDataSet1Images.Assign(Image1.Picture);
ClientDataSet1.Post;
if ((ClientDataSet1->State != dsInsert) &&
(ClientDataSet1->State != dsEdit))
ClientDataSet1->Insert();
ClientDataSet1Images->Assign(Image1->Picture);
ClientDataSet1->Post();