Abfrage ob EditTextFeld Zahl oder Buchstabe

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

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

[Sir Rufo]

Zitat von mat72:

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]

Zitat von mat72:

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 if nicht richtig then setze ersatzwert/standardwert , dann würde Def schon passen.


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

[himitsu]

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