Schleifenproblem in Lazarus

[sx2008]

Der ganze Block beginnend mit //Excel-Inhalt einlesen bis zum Schleifenende gehört in eine eigene Prozedur!
Dieser Prozedur wird der Dateiname als Argument übergeben.

Wenn du deinen Code in kleinere Stückchen zerlegst wie die Sache einfacher.
Das könnte z.B. so aussehen:

Delphi-Quellcode:

LadeExcelDaten('tabelle.xls'); // bei nur 2 Dateien braucht man keine Schleife
LadeExcelDaten('tabelle2.xls');
if lb.Items.Count=0 then
begin
  //Fehlermeldung anzeigen
  if MessageDlg('keine Daten gefunden.', mtError, mbOkCancel, 0) = mrOK then
     Application.Terminate;  
end;