in edit maximal 1 KOMMA zulassen

[Daniel B]

Hallo,

hier mal was zusammengeklickt.

Delphi-Quellcode:

var
  Form1: TForm1;
  MyVar: Boolean;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  iTemp: Integer;
begin
  if not (Key in [#48..#57, #8, #44]) then
    Key := #0;

  for iTemp := 0 to Length(Edit1.Text) do
  begin
    if Edit1.Text[iTemp] = #44 then
    begin
      MyVar := True;
    end; //if
  end; //for iTemp

  if MyVar and (Key = #44) then
  begin
    Key := #0;
    ShowMessage('Blupp');
  end; //if
end;

So ungefähr könnte das aussehen. Es ist nicht fertig, aber den Rest müsstest Du auch alleine hinbekommen. Da gehören noch 1-2 Abfragen rein. Aber im groben sollte es das tun.

Grüsse, Daniel