Hallo,
Ich habe folgendes vor:
Ich erstelle eine Datei, welche sich die Strings aus einer anderen Datei holt. Da ich aber nur die erste und letzte Zeile brauche, wollte ich den Rest einfach wieder löschen. Nun hab ich aber folgenden Feher:
Delphi-Quellcode:
procedure TMomFiles.DreiSekDateiFuellen(const Filename: string);
var
F: TStringList;
LogDatei, DatName : String;
i : integer;
begin
DatName := extractfilepath(application.exename)+'Mom3sek_'+Kennung+'.txt';
F := TStringList.Create;
try
LogDatei := extractfilepath(application.exename)+'mom'+Kennung+'.log';
F.LoadFromFile(Logdatei);
for i := 2 to F.Count-1 do [b]// Fehler: ListenIndex überschreitet das Maximum[5][/b]
begin
F.Delete(i);
end;
F.SaveToFile(DatName);
finally
F.Free;
end;
end;
Was ist hier verkehrt?