Hallo,
das Clipper/XBase benutzt ja wohl eine DBF-Tabelle (grusel
).
So schlimm es ist,
nimm den gleichen Algorithmus wie das Alt-Programm.
Table: TTable (oder TDBFTable, du schreibst nichts über Zugriff auf das Alt-Programm)
Delphi-Quellcode:
with Table
do
begin
// Datensatz suchen
SetKey;
FieldByName('
XX').AsInteger:= xx;
if GotoKey
then
begin
try
Edit;
// hier wird auf Satzebene im Dateisystem gesperrt
iNextNo:= FieldByName('
NextNo').AsInteger;
FieldByName('
NextNo').AsInteger:= iNextNo+1;
Post;
// Speichern
FlushBuffers(
Handle);
// "richtig" speichern
except
// Sperrung fehlgeschlagen
Exit;
end;
end;
Heiko