Zitat von
DelphiApostel:
ich würde einfach die folgende Funktion benutzen:
Delphi-Quellcode:
//...
l.Delimiter:=';';
l.DelimitedText:='"'+StringReplace(s,';','";"',[rfReplaceAll])+'"';
//...
Für
StringReplace muss noch die
Unit SysUtils eingebunden werden
Für einfache
CSV Dateien könnte das funktionieren, es versagt aber dann, wenn Anführungszeichen und Strichpunkte in den Nutzdaten verwendet werden.
Beispiel mit 3 Datenfeldern:
Code:
12500;"Düse - Pumpe Vorrichtung; Status 9;""obsolete"";""Auslaufmodel"""; 01.11.1987
Das 2. Feld enthält den Klartext:
Code:
Düse - Pumpe Vorrichtung; Status 9;"obsolete";"Auslaufmodel"
Und obwohl Anführungszeichen und Strichpunkte enthalten sind, ist es nur ein Feld.
Also immer schön aufpassen mit
CSV-Dateien