Listenindex fehler bei einer Tstringlist

[gangs-taas]

okay

[semo]

Delphi-Quellcode:

if FileExists(Textdatei) and FileExists(Textdatei2) then begin 
  Zwischenspeicher.LoadFromFile(Textdatei); 
  Zwischenspeicher2.LoadFromFile(Textdatei2); 
end

Was ist wenn eine der beiden Dateien leer ist? Oder eine Datei nicht existiert?
Dann knallt es sofort beim Zugriff in der nächsten Zeile...
Also am besten noch abfragen ob

Delphi-Quellcode:

if (Zwischenspeicher.Lines.Count = 0) or (Zwischenspeicher2.Lines.Count = 0) then
  DoSomething or Exit for instance;

[gangs-taas]

okay
ich denk drüber nach ^^