.csv Datei einlesen

[MrMyagi]

Moin allerseits,
und zwar möchte ich nen Programm schreiben, welches aus einer .csv-Datei
Werte ausliest und diese in 3 Memo-Felder wieder ausgibt.
In einem Memofeld sollen dann zb alle Namen, in dem anderen alle
Nachnamen und in dem letzten die jeweiligen Geburtstage reinkommen.
.csv Datei Bsp:
Paul;Stein;1985
Jesus;Christus;0

usw usw
und dann soll halt in dem ersten Memo-Feld
Paul und Jesus stehen, im 2. Stein und Christus und im 3. 1985 und 0.

Wisst ihr wie man soetwas am ebsten realisieren kann??
Hab schon Suche etc benutzt jedoch bin ich aus den Sachen da
nicht richtig schlau geworden



mfg, Nico

[mkinzler]

Mit Hilfe einer StringListe und entsprechenden Delimiter, Pos/PosEx oder einem CSV-DataSet

[MrMyagi]

Danke erstmal für die schnelle Antwort

Hat vllt einer von Euch nen Code-Bsp?
wär dann glaub ich für mich verstöndlicher

[mkinzler]

Delphi-Quellcode:

var
  sl, sl2: TStrings;
  i: integer;
begin
  sl := TStringList.Create;
  sl2 := TStringList.Create;
  sl2.Delimiter := ';';
  sl2.StrictDelimiter := True;
  sl.LoadFromFile( 'bsp.csv');
  for i := 0 to sl.Count - 1 do
  begin
    sl2.DelimitedText := sl[i];
    s1 := sl2[0] //1.Spalte
    ...
  end;

[MrMyagi]

Danke erstmal für das Bespiel^^

sl2.StrictDelimiter
-->undefinierter Bezeicher??

[mkinzler]

Das gab es wohl bei D7 noch nicht. Sorgt dafür das Leerzeichen nicht als zusätzlichen Trenner erkannt werden

[MrMyagi]

Achso^^
Gabs nicht sowieso bei den früheren Delphi Versionen sonen
Bug in der Richtung?

[alzaimar]

Das Problem bei der hier vorgestellten Lösung sind Strings, die in '"' eingeschlossen sind, weil dort vorkommende ';' als Trennzeichen interpretiert werden.

Nimm doch einfach eine fertige Klasse, die das macht klick!

[MrMyagi]

Danke erstmal für den Link, habe die Datei gleich runtergeladen.
Wie kann ich jetzt allerdings diese .pas Datei in meinem Programm verwenden
bzw in welchen Delphi Ordner muss ich die kopieren damit ich die benutzen kann?

[mkinzler]

Irgendwo im Such-/Bibliothekspfad und die Unit dann in die Uses mit aufnehmen