Einzelnen Beitrag anzeigen

Michael80

Registriert seit: 20. Nov 2003
Ort: Treuchtlingen
72 Beiträge
 
Delphi 10.3 Rio
 
#5

Re: TStringList - Listenindex überschreitet maximum

  Alt 19. Jun 2004, 11:14
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!
  Mit Zitat antworten Zitat