Heißt das, wenn der Eintrag "Test" in zeile 5 kommen soll, Zeile 5 noch nicht existiert, ist n=4.
ist das dann:
Delphi-Quellcode:
var
Datei:TextFile;
n:Integer;
List:TStringList;
begin
// Assign (...) und Stringlist benennen bzw. laden.......
Append(Datei);
Writeln(Datei, '1.');
Writeln(Datei, '2.');
Writeln(Datei, '3.');
Writeln(Datei, '4.');
// Writeln(Datei, 'Test');
CloseFile(Datei);
if Copy(List[4],1,4)<>'Test' then Form1.color:=clred;
end;
Dann kommt die Meldung: Index überschreitet das Maximum (4).