Forum: Algorithmen, Datenstrukturen und Klassendesign
by Jumpy,
28. Apr 2014
Angenommen deine Datei hat 60 zeilen. Dann ist z im ersten durchlauf 59.
Dann gehst du hin und löschst Zeilen 40-59.
Dann willste auf Zeile 59 die nicht mehr da ist zugreifen.
var SL: TStringList;
z: integer;
begin
SL := TStringList.Create;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Jumpy,
28. Apr 2014
Jetzt haste aber auch den Dateinamen vergessen:
If not FileExists(OpenDialog1.FileName) then
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Jumpy,
28. Apr 2014
Welches Delphi hast du denn? ggF. System weglassen, oder direkt oben in der Uses Sysutils einbinden, dann reicht FileExists zu schreiben, wobei du in deinem Besipiel dieser aber schon einen Dateinamen übergeben solltest.