Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Abfrage ob EditTextFeld Zahl oder Buchstabe (https://www.delphipraxis.net/167158-abfrage-ob-edittextfeld-zahl-oder-buchstabe.html)

himitsu 18. Mär 2012 12:01

AW: Abfrage ob EditTextFeld Zahl oder Buchstabe
 
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 18. Mär 2012 12:49

AW: Abfrage ob EditTextFeld Zahl oder Buchstabe
 
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 18. Mär 2012 12:57

AW: Abfrage ob EditTextFeld Zahl oder Buchstabe
 
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 Delphi-Referenz durchsuchenTEdit.OnExit aber auch im Delphi-Referenz durchsuchenTEdit.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 18. Mär 2012 13:18

AW: Abfrage ob EditTextFeld Zahl oder Buchstabe
 
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 22. Mär 2012 08:41

AW: Abfrage ob EditTextFeld Zahl oder Buchstabe
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:54 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz