Komma automatisch setzen bei Geldbetrag im Edit

[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;