Textfeld auf Zahl prüfen

[AblukaAlarm]

Hallo zusammen,

habe das Problem ein Eingabefeld (sollte nur für Zahlen sein, sonst keine Berechnung möglich) auf Zahlen zu prüfen.
Der Anfang des Programms sieht so aus:

Delphi-Quellcode:

type

  { TForm1MSP }

   TForm1MSP = class(TForm)
    ...
    Edit1Masse: TEdit;
....(die anderen Felder)

  procedure Edit1MasseChange(Sender: TObject);
....(die anderen Felder)

Nun in dem Feld wo die Zahl rein kommen soll:

Delphi-Quellcode:

procedure TForm1MSP.Edit1MasseChange(Sender: TObject);

....

hiernach habe ich alles mögliche versucht, aber habe immer Fehlermeldungen bekommen.

Mein Ziel ist es, einfach dieses Feld auf Zahlen (mit Komma oder ohne ist egal) zu prüfen und falls dort eine Buchstabe eingegeben wird soll showmessage('Bitte geben Sie eine Zahl ein') rauskommen
Konnte das Problem nicht lösen und bitte um Hilfe
Vielen Dank

[mkinzler]

Z.B. mit TryStrToFloat()

[AblukaAlarm]

Delphi-Quellcode:

VAR
zahl:string

Delphi-Quellcode:

try
zahl :=TryStrToFloat(Edit1Masse.text);
except
 showmessage('Geben Sie bitte eine Zahl ein');
end;

habe das hier mal versucht aber das programm starten dann nicht

[mkinzler]

if not TryStrToFloat(Edit1Masse.text, zahl) then ...

[himitsu]

Zitat von AblukaAlarm:

aber das programm starten dann nicht

Wie bitte?
PS: Die Fehlermeldung kann man kopieren (Strg+C) oder notfals halbwegs abschreiben.

Und jetzt schau mal bitte in die OH (TryStrToFloat) und prüfe was du falsch gemacht hast.

Ach ja, TryStrTo... lösen keine Exceptions aus.

[Chemiker]

Hallo,

oder mit KeyPress-Event nur Zahlen zulassen.

if not (Key in [#48..#57] then Key:=0;

Bis bald Chemiker

[DeddyH]

Dann kriegst Du aber auch kein Komma rein. Nimmst Du das mit in die Menge auf, kann es mehrfach oder an unsinniger Stelle vorkommen.

[AblukaAlarm]

Delphi-Quellcode:

procedure TForm1MSP.RadioGroup1Click(Sender: TObject);
begin

end;


Var 
zahl:string;

procedure TForm1MSP.Edit1MasseChange(Sender: TObject);
 begin
    if not TryStrToFloat(Edit1Masse.text, zahl)
       then showmessage('FEHLER')
 end;

nun siehts so aus und so kommt die Fehlermeldung:
unit1.pas(127,47) Error: Call by var for arg no. 2 has to match exactly: Got "AnsiString" expected "Extended"

[Chemiker]

Hallo DeddyH,

Zitat von AblukaAlarm:

(mit Komma oder ohne ist egal)

Bis bald Chemiker

[Sir Rufo]

Na dann schau dich mal was zahl für einen Typen hat und welcher Typ wohl erwartet wird?