Замена ',' на '.' в Edit

[Alexei_3105]

Я из запроса вывожу данные в Edit такого типа 1234,56
Затем использую их в другом запросе.
Так или иначе нужно заменить ',' на '.' чтобы данные приняли такой вид 1234.56
Как это сделать? Помогите пожалуйста.

[BoozZzilla]

вот на две строчки ниже такой пост с ответом
http://www.programmersforum.ru/showthread.php?t=142455

[Alexei_3105]

Сейчас попробую. Спасибо.

Урааааа заработало! Огромное спасибо.

[GunSmoker]

Вообще-то там может быть и не '.' и не ','.

К примеру, в арабских странах используется U+066B.

Вернее всего ориентироваться на DecimalSeparator.

[Sibedir]

Вернее всего ориентироваться на DecimalSeparator.

Потдерживаю. К тому же с эдитом всё на много проще:

var
  MyValue: Double;

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = '.') or (Key = ',') then
    Key := DecimalSeparator;
  if not (Key in [DecimalSeparator, '0'..'9']) then
    Key := #0;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if not TryStrToFloat (Edit1.Text, MyValue) then begin
    ShowMessage ('Не число');
    Edit1.SetFocus;
  end;
end;

А-а, и это, совсем забыл. Более 9 тыщ раз уже обсуждалось.

[chertovich]

Сообщение от Sibedir

Потдерживаю. К тому же с эдитом всё на много проще:

var
  MyValue: Double;

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = '.') or (Key = ',') then
    Key := DecimalSeparator;
  if not (Key in [DecimalSeparator, '0'..'9']) then
    Key := #0;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if not TryStrToFloat (Edit1.Text, MyValue) then begin
    ShowMessage ('Не число');
    Edit1.SetFocus;
  end;
end;

А-а, и это, совсем забыл. Более 9 тыщ раз уже обсуждалось.

Необязательно текст в Edit поступает от клавиатуры и поэтому, лучше добавить замену в OnChange

procedure TForm1.Edit1Change(Sender: TObject);
var
  Str: string;
  I: Integer;
begin
  Str := Edit1.Text;

  if Pos(',', Str) <> 0 then
  begin
    for I := 1 to Length(Str) do
    begin
      if Str[I] = ',' then
        Str[I] := '.';
    end;

    Edit1.Text := Str;
  end;
end;