![]() |
AW: Abfrage ob EditTextFeld Zahl oder Buchstabe
Zitat:
Such dir eines davon aus:
Delphi-Quellcode:
Mit einer der Funktion muß dein Aufruf übereinstimmen.
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; Zitat:
Delphi-Quellcode:
, dann würde Def schon passen. :angle:
if nicht richtig then setze ersatzwert/standardwert
Ja, OnExit und bei einem Fehler eventuell mit SetFocus wieder zurück. |
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:
|
AW: Abfrage ob EditTextFeld Zahl oder Buchstabe
Zitat:
![]() ![]()
Delphi-Quellcode:
Diese Methode einfach nun bei allen Edit-Felder (die Float-Werte enthalten sollen) dem Event OnChange zuweisen.
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; |
AW: Abfrage ob EditTextFeld Zahl oder Buchstabe
Das mit der Farbe ist im OnChange OK,
aber nur keine Fehlermeldungen im OnChange, denn
Delphi-Quellcode:
kann man nicht eingeben, ohne über
1,2
Delphi-Quellcode:
zu kommen, was ja kein gültiger Wert ist.
1,
Und im OnExit auch nicht immer mit SetFocus zurück, denn auch Abbrechen kann man das sonst nicht, ohne erst etwas Gültiges einzutragen. |
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. |
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