Abfrage ob EditTextFeld Zahl oder Buchstabe

[mat72]

Hallo,
ich wollte einige Berechnungen mit Delphi programmieren.
Nun stehe ich vor dem Problem, dass ich mit einem Textfeld eine Zahl einlesen will. Dabei will ich prüfen, ob es eine Zahl ist und auch im richtigen Format ist.
Mit Delphi programmieren habe ich erst begonnen und würde es gern weiter führen.
Könnte mir da bitte jemand einen Tipp geben?
Vielen Dank.
Mat

[DeddyH]

Hallo und Willkommen in der DP ,

schau Dir einmal TryStrToInt bzw. TryStrToFloat an, das sollte Dir weiterhelfen.

[mat72]

Hallo Deddy,
ich lese das Textfeld mit StrToFloat(Edit2.Text)ein und benutze die Zahl zur Berechnung von Werten und gebe sie aus. Das funktioniert auch ohne Probleme.
Ich wollte prüfen, ob die Eingabe eine Zahl oder etwas anderes ist.
Ebenfalls wollte ich prüfen, ob die eingegebene Zahl das richtige Format hat (Bsp 0.123).
Danke, Gruß
Mat

[Bummi]

DeddyH hat Dir doch schon alle an die Hand gegeben was Du benötigst

mit StrToFloat gibt es eine Exception wenn es keine Zahl ist, mit TryStrToFloat kannst Du ohne Exception prüfen

[mat72]

Hallo,
da ich noch Anfänger im Programmieren mit Delphi bin, komme ich mit der Erklärung auf der Internetseite nicht ganz zurecht.
Es wäre nett, wenn du mir ein Paar mehr Infos geben könntest.
Ich binde die Funktion
function TryStrToFloat(const S: string; out Value: Double; const AFormatSettings: TFormatSettings): Boolean;
ein und frage dann meine Wert ab
xlp:=tryStrTofloat(Edit1.Text);
Ist das so richtig?
Mein Programm funktioniert mit StrToFloat ohne Problem. Nur muss ich halt Userfehler jetzt noch abfangen.
Vielen Dank.

[DeddyH]

Beispiel:

Delphi-Quellcode:

var
  Zahlvariable: double;
begin
  if not TryStrToFloat(Edit1.Text, Zahlvariable) then
    ShowMessage('Das ist keine Zahl')
  else
    Zahlvariable := Zahlvariable * 2;
end;

[himitsu]

Und StrToFloatDef, wenn man immer eine Zahl haben möchte und bei einem Fehler (keine gültige Zahl) einfach einen Standardwert bekommt.

[DeddyH]

Zitat von mat72:

Dabei will ich prüfen, ob es eine Zahl ist und auch im richtigen Format ist.

Da scheidet StrToFloatDef wohl aus, sonst hätte ich das erwähnt.

[mat72]

Hi,
was bedeutet den [Fehler] test.pas(61): Nicht genügend wirkliche Parameter?
Ich habe meine Zahlen als extended deklariert und auch die Funktion dahingehend geändert
function TryStrToFloat(const S: string; out Value: extended; const AFormatSettings: TFormatSettings): Boolean;

[mat72]

Hi,
habe das Problem gefunden.
Es fuinktioniert super. Danke.
Kann ich die Abfrage so weit ändern, dass schon beim wechsel auf das nächste TextFeld eine Überprüfung stattfindet?