Wie kann man Tabstops durch ',' ersetzen?

**emsländer**

Moin,

ich schreib mir grad ne kleine Funktion, die mir in einer Textdatei die Tabstops durch Kommata ersetzen soll. Nur klappt das nicht so ganz wie ich mir das gedacht habe. Hier mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure Tfrmmain.btn_datei_lesenClick(Sender: TObject);

  var liste : Tstringlist;

  var count : integer;

begin

  liste := tstringlist.Create;

  liste.LoadFromFile(edt_dateiname.Text);

  for count := 0 to liste.Count -1 do begin

    liste[count] := StringReplace(liste[count], chr(8), ',', [rfReplaceAll]);

  end;

  liste.SaveToFile('c:\text.txt');

  freeandnil(liste);

end;

Wo ist mein Denkfehler?

Gruss

EL

Wie kann man Tabstops durch ',' ersetzen?

Wie kann man Tabstops durch ',' ersetzen?

Forumregeln