wie könnte ich csv datei auslesen? Hilfe!!!

[marabu]

Hallo,

wenn die CSV-Daten ohne jegliches Quoting daherkommen, dann wurde das Trennzeichen offensichtlich so gewählt, dass es selbst nie in den Daten vorkommt. Eine Verarbeitung ist dann recht einfach:

Delphi-Quellcode:

procedure Explode(const s, delimiter: string; items: TStrings);
begin
  items.CommaText := StringReplace(AnsiQuotedStr(s, '"'), delimiter, '","', [rfReplaceAll]);
end;

function Implode(items: TStrings; delimiter: string): string;
begin
  Result := StringReplace(items.Text, sLineBreak, delimiter, [rfReplaceAll]);
end;

Grüße vom marabu