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:

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

[Dax]

War Tab nicht #9? ;)

[emsländer]

Zitat:

Zitat von Dax

War Tab nicht #9? ;)

:wall: danke :wall:


Gruss

EL

[Mackhack]

Und nimm mal die 2 Var's raus oben!!!

[Muetze1]

Zitat:

Zitat von Mackhack

Und nimm mal die 2 Var's raus oben!!!

Wieso?

[Mackhack]

Var xxx
Var xxx

Reicht doch einmal oder net?

[Muetze1]

Zitat:

Zitat von Mackhack

Var xxx
Var xxx

Reicht doch einmal oder net?

Richtig, reicht - aber es ist doch egal ob nun zwei oder einer - du forderst aber direkt beide zu entfernen.
Deine Aufforderung bezog sich auch auf beide anstatt nur einem Var.
Grundlegend ist es wie gesagt eh egal, wieviele Var's man(n) da schreibt.

[Mackhack]

Ups hast recht... Is schon spät...!!!

[Ydobon]

Und wenn man StringReplace gleich auf liste.Text anwendet, fällt die Schleifenvariable und damit das 2. var automatisch weg.