danke!
habs:
Delphi-Quellcode:
procedure TFrm_Hangman.speichern(a:Speichertyp);
var i:integer;
begin
assignfile(Datei,'woerter.txt');
if fileexists('woerter.txt')
then reset(datei)
else rewrite(datei);
i:=0;
while EoF(datei)=false do
begin
seek(datei,i);
i:=i+1;
end;
write(datei,a);
closefile(datei);
end;
Vielen Dank!
Jetz werd ich ma versuchen die dinger zufallsgesteuert wieder einzulesen...
