Einzelnen Beitrag anzeigen

shmia

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

Re: TXT einlesen und in DB speichern, funzt nicht, weil _ al

  Alt 9. Dez 2004, 15:46
Mit den CSV Hilfsfunktionen aus der Code-Library ( http://www.delphipraxis.net/internal...ct.php?t=29791 ) sollte das kein Problem sein.

Du solltest dich übrigens nicht darauf verlassen, dass immer 3 Felder vorhanden sind,
deshalb:
Delphi-Quellcode:
      Reset(f);
      while not Eof(f) do begin
        Readln(f, s);
     l.Clear;
     ParseCSVLine(s, l, ';', '"');

      while l.count < 3 do l.Add('???'); // auf 3 Felder auffüllen

        TKapitel.Append;
        TKapitelAmtlicherOPS.AsString:=l[0];
        TKapitelKapitelnummer.AsString:=l[1];
        TKapitelKapiteltitel.AsString:=l[2];
        TKapitel.Post;
      end;
Andreas
  Mit Zitat antworten Zitat