Komma automatisch setzen bei Geldbetrag im Edit

[DeddyH]

Mit Format() würde das aber immer passen

[bernerbaer]

Zitat von DeddyH:

Mit Format() würde das aber immer passen

Du überforderst mich , ich sehe den Zusammenhang mit Format() und den vorgeschlagenen Funktionen nicht.
Mit Format gestalte ich ja nur die Ausgabe (hier) einer Zahl, es wird aber mit StringReplace gearbeitet. warum nicht einfach "," mit decimalseperator ersetzen?

[DeddyH]

Ich war jetzt wieder bei meinem anderen Ansatz, ganz weg von Strings. Aber da muss man dann auch nicht mehr auf den Dezimalseparator achten.

Delphi-Quellcode:

type
  TFormTest = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
    FCentbetrag: integer;

...

procedure TFormTest.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    '0' .. '9':
      FCentbetrag := FCentbetrag * 10 + StrToInt(Key);
    #8:
      FCentbetrag := FCentbetrag div 10;
    '-':
      FCentbetrag := -FCentbetrag;
  end;
  Key := #0;
  Edit1.Text := Format('%.2f', [FCentbetrag / 100]);
  Edit1.SelStart := MaxInt;
end;