SIeht mittlerweilse so aus sagt mir aber "Dateizugriff verweigert" und dannach habe ich angeblich eine Filesize von 1001 und es fehlen 2 Einträge.
und Wo sagt er das?
Delphi-Quellcode:
Procedure Loeschen(h:integer);
var
tmpsatz : TMyWoertRec;
maxidx : integer;
begin
maxidx:=filesize(woert);
repeat
seek(woert,h+1);
read(woert,tmpsatz);
dec(h,1);
seek(woert,h);
write(woert,tmpsatz);
until h>=maxidx;
truncate(woert);
end;
bleibt noch das Closefile unterzubringen.
Hast Du einmal darüber nachgedacht, Deine Daten in einer TList unterzubringen?
Das wäre auf jeden Fall schneller.
Gruß
K-H