procedure edit

Modified on 02/02/2009 14:18 by CPABED Categorized as Plattform
'''Syntax:'''{BR}
{{{{'''procedure''' edit;}}}}{BR}
{BR}
'''Beschreibung:'''{BR}
{BR}
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.
{BR}
'''Beispiel:'''{BR}
{BR}
<code pascal>
//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;
</code>
CP Wiki

Navigation¶

procedure edit
