csv Datei Import ClassHelper für TClientDataSet

[MaBuSE]

Zitat von H.Bothur:

Im Moment habe ich noch ein problemn wenn im Text ein Semikolon vorkommt - dann gibt es eine Exception. Also bei

"das ist der;eigentliche Text Feld 1";"Feld 2";"Feld 3"

da bringt das erste Semikolon reproduzierbar ne Exception.

Um das Problem analysieren zu können benötige ich mehr Informationen:

• Welche Exception?
• An welcher Stelle tritt die auf?
• Stack?

Ich hab das mal kurz angetestet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl : TStringList;
begin
  sl := TStringList.Create;
  sl.QuoteChar := '"';
  sl.Delimiter := ';';
  sl.DelimitedText := '"das ist der;eigentliche Text Feld 1";"Feld 2";"Feld 3"';
  Caption := sl[0];
end;

Das bringt keine Exception. Es wird das ist der;eigentliche Text Feld 1 in das Caption des Formulars gesetzt. Und das ist richtig.
Es liegt also nicht an dem CSV Support der TStrings Klasse.