Zitat:
103
Datei nicht geöffnet
Wird von CloseFile, Read, Write, Seek Eof, FilePos FileSize, Flush, BlockRead oder
BlockWrite gemeldet, wenn die Datei nicht geöffnet ist.
Delphi-Quellcode:
procedure TForm1.cmdListSpeichernClick(Sender: TObject);
var
i: integer;
pAuto: IAuto;
myfile: TextFile;
begin
AssignFile(myFile, 'c:\Test.txt');
Rewrite(myFile);
for i := 0 to AutoList.Count do
begin
pAuto := AutoList.Items[x];
WriteLn(myfile, 'Name:', pAuto.ErgebnisName, 'KW:', pAuto.ErgebnisKW, 'PS:',
pAuto.ErgebnisPS);
end;
CloseFile(myFile);
end;
Probier mal den Code oben. Ist nicht getestet. Ich habe bei dir
ReWrite und
CloseFile vermisst. Außerdem sollte es eigentlich reichen, der Variablen einmal am Schleifenanfang eine Datei zuzuweisen.