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" ?!?