Abfragen

[turboPASCAL]

Hier gibt es eine Numeric Edit Komponente http://www.delphiforfun.org/...

oder:

Delphi-Quellcode:

// als Decimal-Separator wird nur "." akzeptiert
function TestOfNumeric(S: String) : Boolean;
var
  r: Real;
  c: Integer;
begin
  val(s, r, c);
  Result := Boolean(c = 0);
end;

// if not TestOfNumeric(Edit1.Text) then Error...

das gibt es ja noch die Möglichkeit die Keys zu testen die gedrückt werden:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  ...
  if Key in ['0'..'9', '.', ',' ] then ok else NichtOk; ...
  ...
end;

//Edit: PS.: Dein Titel ist ein bissel dünn "Abfragen" ?!?