Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
15. Jun 2012
und Wo sagt er das?
Procedure Loeschen(h:integer);
var
tmpsatz : TMyWoertRec;
maxidx : integer;
begin
maxidx:=filesize(woert);
repeat
seek(woert,h+1);
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
14. Jun 2012
Schau Dir bitte den Ablauf in den beiden Proceduren an.
Zuerst öffnest Du die Datei (assignfile+reset) dann gehst Du in einer schleife durch die Datei.
Findest Du einen zu löschenden record springst Du aus der Schleife heraus und öffnest die Datei, die immer noch offen ist erneut (assignfile+reset), das kann nicht gut gehen.
Versuch doch zumindestens folgendes:
if key=Woerterbuch.Englisch...
Forum: Object-Pascal / Delphi-Language
Delphi
by p80286,
14. Jun 2012
Ich denke dies ist nicht ganz unproblematisch;
procedure TForm1.Button5Click(Sender: TObject);
var key:String;
i:integer;
h:integer;
begin
Assignfile(woert,'Wörterbuch.dat');
reset(woert);
.....