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

[Pasha1983]

Добрый день
Мне нужно в edit точку заменить запятой

var
R : TRegExp;
begin
edit.text := '14.01';
R := TRegExp.create(self);
try
R.Pattern := '\.';
R.Replace(Edit.text,',');
finally
R.Free;
end;
end;

Подскажите люди добрые в чем моя ошибка

[Grag]

А без библиотеки рег. выражений это сделать никак нельзя?
Например так:

procedure TForm1.Button1Click(Sender: TObject);
Var
  S:AnsiString;

begin
  S:=Edit1.Text;
  while Pos('.',S)<>0 do
    begin
      Insert(',',S,Pos('.',S));
      Delete(S,Pos('.',S),1)
    end;
  Edit1.Text:=S
end;

[MaxNik2009]

вот так проще всего:

var
  s, sRes: string;
begin
  s:=Edit1.text;
  sRes:=StringReplace(s,'.',',', [ rfReplaceAll, rfIgnoreCase ]);
end;

[Pasha1983]

Конечно можно, но как Вы могли заметить названия темы "Регулярные выражения", а не стандартные функции для работы со строками.

[Grag]

Только еще нужно флажок указать при этом

Var
  Flags: TReplaceFlags;
begin
  Flags:= [ rfReplaceAll, rfIgnoreCase ];
  ..............
end

[Пепел Феникса]

1)ребята, ТС нужно с регулярками, а не через стандартные средства.
2)оптимальный способ, это цикл, он же наибыстрейший при замене одного символа на другой.
но не это ТС нужно, я к сожадению регулярки плохо знаю.

ТС, оно компилится кстати(мало ли)?

[Grag]

Pasha1983, ты какую либу подключаешь?

[Serge_Bliznykov]

Pasha1983, ты какую либу подключаешь?

думаю, что TRegExpr (скорее всего v. 0.952)
нет, я не прав, это не TRegExpr

после поиска...
вроде это похоже на "Использование VBScript RegExp в Delphi" (статья на Королевство Delphi)



___________________________________ ____
Добавлено

а теперь по сути ошибки.
.Replace - возвращает строку. Если есть желание получить результат в поле Edit.Text,
то надо присвоить это этому полю:

    Edit.text := R.Replace(Edit.text, ',');