Versuch hinter dem Dateiende zu lesen

[p80286]

Zitat von RhodosGuard:

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