Eingabe beschränken

[Luckie]

So auf die Schnelle:

Delphi-Quellcode:

var
  Comma : Boolean = FALSE;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Comma = TRUE) and (Key = #44) then
    key := #0;
  if pos(',', Edit1.Text) > 0 then
    Comma := TRUE
  else
    Comma := FALSE;
  if not (Key in [#8,#44,#48 .. #57]) then Key := #0
end;