Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#3

Re: TStringList - Listenindex überschreitet maximum

  Alt 18. Jun 2004, 13:09
Du muss deine Daten aus der Datei etwas vorbehandeln:
Delphi-Quellcode:
for ndx := 0 to Pred (mastersl.Count) do
begin
   s := mastersl.Strings[ndx];
   if s= 'then
      Continue; // leere Zeile überspringen
   if s[1] = '*then
      Continue; // Zeile mit Kommentar überspringen
  
   detailsl.Clear;
   detailsl.DelimitedText := '"' + StringReplace(s,';','";"',[rfReplaceAll]);

   // du erwartest 11 Felder. Sind es weniger, dann mit Leerstrings auffüllen
   while detailsl.Count < 11 do
      detailsl.Add('');
Übrigens: IBQuery1.SQL.Text nur einmal ausserhalb der Schleife zuweisen und IBQuery1.close auch wegglassen.
Andreas
  Mit Zitat antworten Zitat