Hallo divBy0,
herzlich Willkommen im Forum.
Du könntest das Reset (datei) durch Append (datei) ersetzen dann müsste es funkt..
Delphi-Quellcode:
if not FileExists('Filme.txt') then
begin
Rewrite(datei);
ShowMessage('Datei war nicht vorhanden, wurde aber erstellt...');
end
else
begin
Append(datei); <--- Ändern
{ Reset(datei); }
end;
mfg
Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.