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 :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:

Zitat von mat72 (Beitrag 1156742)

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. :roll:

[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?

[himitsu]

Zitat:

Zitat von mat72 (Beitrag 1157178)

was bedeutet den [Fehler] test.pas(61): Nicht genügend wirkliche Parameter?

Daß deine Anzahl der Parameter nicht mit einer existieren Funktion übereinstimmen?

Such dir eines davon aus:

Delphi-Quellcode:

function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Extended; const AFormatSettings: TFormatSettings): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Double): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Double; const AFormatSettings: TFormatSettings): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Single): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Single; const AFormatSettings: TFormatSettings): Boolean; overload;

Mit einer der Funktion muß dein Aufruf übereinstimmen.

Zitat:

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

Kommt drauf an ... wenn man am Ende sowas macht

Delphi-Quellcode:

if nicht richtig then setze ersatzwert/standardwert

, dann würde Def schon passen. :angle:


Ja, OnExit und bei einem Fehler eventuell mit SetFocus wieder zurück.

[DeddyH]

Die Kombination von TryStrToFloat mit StrToFloatDef ist doch doppelt gemoppelt und somit blödsinnig. Lies doch künftig einfach vorher mal alles genau durch, dann müssen wir nicht ständig diese Diskussionen führen :stupid:

[Sir Rufo]

Zitat:

Zitat von mat72 (Beitrag 1157180)

Kann ich die Abfrage so weit ändern, dass schon beim wechsel auf das nächste TextFeld eine Überprüfung stattfindet?

Wie schon erwähnt im TEdit.OnExit aber auch im TEdit.OnChange

Delphi-Quellcode:

procedure TForm1.FloatEditOnChange( Sender : TObject );
var
  lEdit : TEdit;
  lValue : Extended;
begin
  if ( Sender is TEdit ) then
    begin
      lEdit := Sender as TEdit;
      if ( lEdit.Text = '') or TryStrToFloat( lEdit.Text, lValue ) then
        lEdit.Font.Color := clWindowText
      else
        lEdit.Font.Color := clRed;
    end;
end;

Diese Methode einfach nun bei allen Edit-Felder (die Float-Werte enthalten sollen) dem Event OnChange zuweisen.

[himitsu]

Das mit der Farbe ist im OnChange OK,
aber nur keine Fehlermeldungen im OnChange, denn

Delphi-Quellcode:

1,2

kann man nicht eingeben, ohne über

Delphi-Quellcode:

1,

zu kommen, was ja kein gültiger Wert ist.

Und im OnExit auch nicht immer mit SetFocus zurück, denn auch Abbrechen kann man das sonst nicht, ohne erst etwas Gültiges einzutragen.

[mat72]

Hallo,
Danke für die Hilfe.
Die Abfrage habe ich mit
if not TryStrToFloat(Edit4.Text, fl) then
ShowMessage('Please enter only Numbers!')
else
fl := fl;
gelöst.
Gruss
Mat