Syntax:
procedure edit;
Beschreibung:
Die Methode Edit ermöglicht das Bearbeiten der Daten in einer Datenmenge.
Mit Edit können Sie das Bearbeiten des aktiven Datensatzes in der Datenmenge ermöglichen. Die Methode ermittelt zunächst den aktuellen Status der Datenmenge. Ist diese leer, wird Insert aufgerufen. Andernfalls werden folgende Aktionen durchgeführt:
CheckBrowseMode wird gegebenenfalls aufgerufen, um die Änderungen eines vorhergehenden Datensatzes einzutragen.
Die Eigenschaft CanModify wird überprüft und eine Exception ausgelöst, wenn die Datenmenge nicht bearbeitet werden kann.
Die Ereignisbehandlungsroutine für BeforeEdit wird aufgerufen.
Der Datensatz wird abgerufen.
Der Modus der Datenmenge wird in dsEdit geändert, damit die Felder des Datensatzes bearbeitet werden können.
Die verbundenen Steuerelemente werden von der Statusänderung benachrichtigt.
Die Ereignisbehandlungsroutine für AfterEdit wird aufgerufen.
Beispiel:
//Im folgenden Beispiel werden die Daten im Feld Notes von Table1 oder SQLDataSet1 in das Feld Remarks von ClientDataSet1 kopiert.
Nur Windows:
procedure TForm1.Button1Click(Sender: TObject);
var
Stream1: TBlobStream;
Stream2: TStream;
begin
Stream1 := TBlobStream.Create(Table1Notes, bmRead);
try
ClientDataSet1.Edit;
{ Hier wird ein Blob-Stream auf andere Weise erstellt }
Stream2 := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName('Remarks'), bmReadWrite);
try
Stream2.CopyFrom(Stream1, Stream1.Size);
ClientDataSet1.Post;
finally
Stream2.Free;
end;
finally
Stream1.Free;
end;
end;
Plattformübergreifend:
procedure TForm1.Button1Click(Sender: TObject);
var
Stream1, Stream2 : TStream;
begin
Stream1 := SQLDataSet1.CreateBlobStream(SQLDataSet1.FieldByName('Notes', bmRead);
try
ClientDataSet1.Edit;
Stream2 := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName('Remarks'), bmReadWrite);
try
Stream2.CopyFrom(Stream1, Stream1.Size);
ClientDataSet1.Post;
finally
Stream2.Free;
end;
finally
Stream1.Free;
end;
end;