Aslo heisst das in Deinem Fall dass das dann so aus sehen sollte:
Delphi-Quellcode:
var
f: Textfile;
daten1: array[1..100] of string;
s: string;
i, err: Integer;
function ShowEAErrors(Error: Integer): string;
begin
case Error of
100: Result := 'Fehler beim Lesen vom Datenträger';
101: Result := 'Fehler beim Schreiben auf Datenträger';
102: Result := 'Dateivariable ist keiner Datei zugewiesen';
103: Result := 'Datei nicht geöffnet';
104: Result := 'Datei wurde nicht für Leseoperationen geöffnet';
105: Result := 'Datei wurde nicht für Schreiboperationen geöffnet';
106: Result := 'Ungültiges numerisches Format';
else Result := 'Nicht dokumentierter Fehler';
end;
end;
procedure So_und_so;
begin
err := 0; // braucht man eigentlich nich machen
// da IOresult den Wert setzt...
AssignFile(f, 'c:\aaa.txt');
{$I-}
Append(f); // Öffne Datei zum anhangen von Text
{$I+}
err := IOResult;
if err <> 0 then // Wenn keine Datei da dann neu erstellen
begin
{$I-}
Rewrite(f); // Erstelle Datei neu (Schreibrechte)
{$I+}
err := IOResult;
end;
if err = 0 then // Keine Fehler ? dann los
begin
for i:=1 to 100 do
begin
daten1[i] := inttostr(i); //Fülle das Array einfach sinnlos mit einem String
writeln(f, daten1[i]); // Daten schreiben
end;
end else // Fehler !? Was für einer ?
ShowMessage(ShowEAErrors(err));
CloseFile(f); // Datei schliessen
end;
// Edit: PS.: Ist das jetzt ein Tut ?
