|
Registriert seit: 2. Jun 2009
179 Beiträge
Delphi 5 Standard
|
Re: Dateien
9. Jun 2009, 18:42
Delphi-Quellcode:
var
Datei:TextFile;
n:Integer;
List:TStringList;
begin
// Assign (...)
Append(Datei);
Writeln(Datei, '1.');
Writeln(Datei, '2.');
Writeln(Datei, '3.');
Writeln(Datei, '4.');
// Writeln(Datei, 'Test');
CloseFile(Datei);
// Benennen bzw laden er List...
if Copy(List[4],1,4)<>'Test' then Form1.color:=clred;
List.Free;
end;
wie schlte ich die oben genannte Fehlermeldung aus?
Johannes
Der folgende Satz ist richtig.
Der vorherige Satz ist falsch.
|
|
|
Zitat
|