CSV in Delphi

[yankee]

Es gibt ja in PHP so 'ne praktische Funktion, die einen String zerlegt. Man übergibt dem 'n String, 'n Trenner und bekommt ein Array zurück. Für alle die kein PHP können, mal ein Beispiel:
aus
Wert1;Wert2;unnocheiner;
wird
Variable[0] =Wert1
Variable[1] =Wert1
Variable[2] =unnocheiner
Sehr praktisch um CSV-Dateien auszulesen. Ich habe mir da mal ein Vokabelel &Co. Abfrageprogramm geschrieben, welches die Fragen und Antwrten aus einer CSV-Datzei einliest. Dafür habe ich mir selbst ein Algo geschrieben.

um mal wieder zum Thema zurückzukommen: Bringt Delphi nicht zufällig auch so 'ne Funktion mit?

[Ultimator]

Hier:

Delphi-Quellcode:

procedure TCheckCompObject.SplitString(Str: string; Separator: Char; var ts: TStringList); 
begin 
  try 
    ts.Clear; 
    while AnsiPos(Separator, Str) > 0 do begin 
      ts.Add(trim(Copy(Str, 1, AnsiPos(Separator, Str) - 1))); 
      Str := Copy(Str, AnsiPos(Separator, Str) + 1, Length(Str)); 
    end; 
    ts.Add(trim(Str)); 
  except 
// 
    end; 
  end; 
end;

[edit]Das hat DPercon mal gepostet[/edit]

[Muetze1]

Moin!

Ab Delphi 6 gibt es auch die Möglichkeit eine TStringList zu nutzen und der Eigenschaft Delimiter das , zu zuweisen und dann eine gelesene Zeile der Eigenschaft DelimitedText. Danach hast du in den einzelnen Items das gesuchte aufgeteilt...

MfG
Muetze1

[yankee]

Die ist dann schon von vornerein bei Delphi dabei, ja?
Also als ich mir den Algo selbst geschrieben habe, habe ich dafür ca. 30 Zeilen gebraucht *g*. Aber dafür hat der Algo natürlich auch viel mehr gemacht...

[Muetze1]

Moin!

Ja, ab Delphi 6 bietet die TStringList diese beiden zusätzlichen Eigenschaften...

MfG
Muetze1