Ein String auf numerisch Testen

[Progger2005]

Hallo Leutz!

Ich übergebe mir aus einen EditFeld den Inhalt an eine Variable(integer). Durch StrToInt lasse ich es umwandeln...
Wenn man Zaheln eingibt alles schön und gut.. nur was wenn man plötzlich mal einen Buchstabe eingibt? -> Logischer weiße eine Fehler! Nun möchte ich vor dem Umwandeln testen ob im Textfeld nur Ziffern eingegeben wurden?? Wie geht das? Unter VB mit IsNumeric ... aber unter Delphi keine Ahnung? Gibt es etwas vorgefertigtes??


Danke Schonmal

MfG
Progger2005

[Flare]

Probiere es mal mit TryStrToInt!


Flare

[Progger2005]

Servus!

Ich habe es versucht jedoch ohne Ergebnis geblieben??
Ich will ja möglichst auch noch eine Ausgabe tätigen um den Benutze mitzuteilen was er falsch gemacht hat..

[mkinzler]

Zeig mal etwas Code, dann kann man die u.U. sagen, warum das gewünschte Ergebnis ausgeblieben ist.

[Progger2005]

Hier der CODE
Habe es jedoch mit TryStrToFloat gemacht...sollte ja aber trotzdem gehen..

Also ich will herausfiltern wenn ein Buchstabe eingegeben wurde...das da net gerechnet wird...

Delphi-Quellcode:

procedure Tmain.cmdBerechnenClick(Sender: TObject);
  var F,A,p:Real;
begin
  F:=TryStrToFloat(txtF.Text);
  A:=TryStrToFloat(txtA.Text);
  If A=0 Then
    //Ausgabe das Falsche Werte eingegeben wurden
    txtp.text:='Falsche Werte'
  Else
    begin
    //Weiterrechnen
    p:=F/A;
    txtp.Text:=FloatToStr(p);
    end;

end;

[mkinzler]

Du hast die Funktion falsch angewandt.
Als Rückgabewert erhälst du ein Boolean, der aussagt, ob die Konvertierung erfolgreich war. Den Wert erhälst du per var-Parameter.

[Progger2005]

Also um es mal darzulegen das Problem.
b:=TryStrToFloat(txtA.Text,A); also:
b - boolean Wert
A- Float Wert


Hab ich das richtig verstanden?

[mkinzler]

Zitat:

Hab ich das richtig verstanden?

Ja.

also:

Delphi-Quellcode:

if not TryStrToFloat(txtF.Text, F) then
   //Ausgabe das Falsche Werte eingegeben wurden

[Thanatos81]

Ja, richtig. Man könnte es auch so machen:

Delphi-Quellcode:

procedure Tmain.cmdBerechnenClick(Sender: TObject);
var
  F, A: Real;
begin
  if TryStrToFloat(txtF.Text, F) and TryStrToFloat(txtA.Text, A) then
  begin
    //Weiterrechnen
    p := F/A;
    txtp.Text := FloatToStr(p);
  end
  else
    txtp.text := 'Falsche Werte'
end;

//Edit: Und denk dran A auf <> 0 zu überprüfen sonst gibt es evtl. ne nette Division durch null

[mkinzler]

Dann würde ich aber noch überprüfen, ob A <> 0 ist!