Как в полях для ввода сумм разделять тысячи?

[DeveloPerchik]

Как в полях для ввода цифр (сумм) сделать, чтобы сразу во время ввода разделялись тысячи знаком вида 1'000'000.00 ?

[Stilet]

Либо в OnKeyPressed заменять:

if key=',' then key:='.'

Либо поставь MaskEdit

P.S. Я предпочитаю первое.

[DeveloPerchik]

Не как запятую-точку заменять, а как тысячи апострофом разделять???

[Прик]

В каких полях? TEdit, TMaskEdit, ячейках таблиц DBGrid, TStringGrid?

В TEdit никак, если только самому не изловчится, например, в событии OnChange или сделать наследника от TEdit.
В TMaskEdit такое разделение задается маской (см. справку).
В TStringGrid есть событие OnGetEditMask, где как и в TMaskEdit можно указать нужную маску.
Для DBGrid в полях Dataset, связанного с гридой, задают DisplayFormat.

[Stilet]

например, в событии OnChange

Изврат:

procedure TForm1.Edit1Change(Sender: TObject);
begin
 ThousandSeparator:='`';
 TEdit(sender).Text:=format('%n',[StrTofloat(StringReplace(TEdit(sender).Text,
  ThousandSeparator,'',[rfreplaceall]))]);
end;

[Прик]

Stilet, здОрово.
+1

[Stilet]

Прик

А получилось -1
Причем в буквальном смысле. Кстати - код с потолка, так что его если использовать то стоит на баги просмотреть.

[Прик]

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

А получилось -1

Уже повинился Промашка вышла.

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

Кстати - код с потолка, так что его если использовать то стоит на баги просмотреть.

Уже использовано.
Работает, собака, как часы. В реальной жизни добавить обработку исключения на не цифры и все ОК.

[phomm]

Я вот такое писал:

procedure TMainForm.EditChange(Sender: TObject);
var
  Edt : TEdit;
  function PrintThSep (inp : string): string;
  var
    i, j: Integer;
    s: string;
  begin
    ThousandSeparator := '''';
    SetLength(s, Length(inp)); // using non-realloc string
    j := 1;
    for i := 1 to Length(inp) do
      if inp[i] in ['0'..'9', '-', DecimalSeparator]  then
      begin
        s[j] := inp[i];
        Inc(j);
      end;
    SetLength(s, j-1);
    Result := FormatFloat('#,###.###', StrToFloat(s));
  end;

begin
  Edt := Sender as TEdit;
  if Edt.Text <> '' then
    Edt.Text := PrintThSep(Edt.Text);
  Edt.SelStart := Length(Edt.Text);
end;

Хотя у Stilet дюже добрый код, плюсую )