Abfrage ob EditTextFeld Zahl oder Buchstabe

[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