Sperren: Exeption wenn auf letztem Datensatz

[Neo2084]

Hallo,

hier mal ein Codeschnipsel von mir ...

Code:

procedure TMakeEKReForm.PosTabAfterDelete(DataSet: TDataSet);
var bm : tBookmark;
    p  : Integer;
begin
     PosTab.DisableControls;
     BM :=PosTab.GetBookmark;
     try
        p :=0;
        postab.first;
        while not postab.eof do
        begin
          inc(p);
          postab.edit;
          try
             postabposition.asinteger :=p;
             postab.post;
          except
             // Hier Fehlermeldung
          end;  
          postab.next;
        end;

        PosTab.GotoBookmark (BM);
     finally
        PosTab.FreeBookmark (BM);
     end;
     PosTab.EnableControls;
end;

Noch ein le. Tip, du solltest dich unbedingt mit Schutzblöcken
- try finally end
- try except end
mal auseinandersetzen, so was ist sehr wichtig, wenn man guten Code schreiben will.

Gruß Neo