текстовый файл

[werser]

как в текстовом файле все запятые поменять на точки?
Помогите пожалуйста

[Баламут]

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TstringList;
  i: integer;
begin
List := TstringList.Create;
List.LoadFromFile('test.txt');
for i := 0 to List.count -1 do
begin
List.Strings[i] := StringReplace(List.Strings[i],',','.',[rfReplaceAll]);
end;

List.SaveToFile('test.txt');
List.Free;
end;

[Stilet]

Баламут, Дадьки Борландовцы облегчают нам жизнь.
Вот чего надумали:

var s:TStringList;
begin
s:=TStringList.Create;
s.LoadFromFile('file1.txt');
s.Text:=StringReplace(s.text,',','.',[rfReplaceAll]);
s.SaveToFile('file1.txt');
end;

[Баламут]

Ну да, да... Немного проглядел...