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;