Wobei du dir auch einige Zeile sparen kannst. Ich würde z.B. kein with ... do machen, wenns nur um ein, zwei Befehle geht:
Delphi-Quellcode:
procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
with (Sender as TDBEdit) do
begin
if Assigned(DataSource) then
begin
if DataSource.DataSet.State = dsEdit
then DataSource.DataSet.Post;
end;
end;
end;
Die ganzen begin ... end Blöcke könnten im Prinzip auch wegfallen, sind für die Übersicht aber nicht unpraktisch.
Das soll jetzt keine Kritik an sharky sein, jeder hat seinen eigenen Programmierstil!
Ich wollte das nur aufzeigen, da thomas29h2000 ja selber sagte, er hätte noch nicht so viel Ahnung. Vielleicht hilft das ganze ja noch beim Verständnis
Schönen Gruß,