Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
var key:String[25];
i:integer;
h:integer;
begin
assignfile(woert,'Wörterbuch.dat');
Reset(woert);
key:=Inputbox('Abfrage','Welches Wort löschen?(bitte das englische Wort eingeben)','');
for i := 1 to filesize(woert) do begin
read(woert,Woerterbuch);
if key=Woerterbuch[i].Englisch then begin
h:=i;
löschen(h);
exit;
end;
showmessage('Das Wort steht nicht im Wörterbuch');
end;
closefile(woert);
end;
Procedure löschen(h:integer);
var m:Twoerterbuch2;
begin
Read(woert,Woerterbuch);
while h<Filesize(woert) do begin
m[h]:=Woerterbuch[h];
Woerterbuch[h]:=Woerterbuch[h+1];
Woerterbuch[h+1]:=m[h];
write(woert,Woerterbuch);
inc(h);
end;
seek(woert,Filesize(woert)-1);
truncate(woert);
end;
SIeht mittlerweilse so aus sagt mir aber "Dateizugriff verweigert" und dannach habe ich angeblich eine Filesize von 1001 und es fehlen 2 Einträge.