String formatieren

[Alex_ITA01]

Hallo erstmal,
ich habe folgendes Problem:

SourceString = 'a,b,c,d,e'; Ich möchte diesen String solange durchlaufen bis ich VOR und NACH jeden "," ein " eingefügt habe.Und ganz am Anfang noch ein " einfügen...

Ziel = '"a","b","c","d","e"'

Wisst ihr, wie ich das am schnellsten löse?
MFG Alex

PS: erste Zeichen ändern = Insert('"', Strg, 1);

[3_of_8]

Ich würds so machen:

Str:='"'+StringReplace(SourceString,',','","',rfReplaceAll); EDIT: Anführungszeichen korrigiert.
EDIT2: Da war ja noch eins am Anfang.

[Alex_ITA01]

ok, versuche ich mal.Danke

Meine Version war so bisher:

Delphi-Quellcode:

      for j := 0 to Length(SaveStr) - 1 do
      begin
        if SaveStr[j] = ',' then
        begin
          Insert('"', SaveStr, j);
          Insert('"', SaveStr, j+2);
        end;
      end;

MFG Alex

[Alex_ITA01]

wenn dann so:

SaveStr := '"' + StringReplace(SaveStr, ',', '","', [rfReplaceAll]);

MFG Alex

[3_of_8]

Ich und Sets...