TStringList - Listenindex überschreitet maximum

[Michael80]

Zitat von shmia:

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

sobald ich diese zeilen einfüge bringt er mir zum schluss ne zugriffsverletzung

Zitat von shmia:

Delphi-Quellcode:

  
   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.

perfekt das wars, er hat da immer ein feld zu wenig bekommen

@Robert, jo hab ich übersehen, werds ändern!