Dateien

[Johannes013]

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;