Überprüfen auf Zahl

[ByStones2]

Hi,

wie kann ich überprüfen ob die eingabe in Edit1 eine Zahl ist ???

ByStones2

[Sharky]

Zitat von ByStones2:

...wie kann ich überprüfen ob die eingabe in Edit1 eine Zahl ist ....

Hai ByStones2,

schaue Dir einmal die Procedure Val an.

Wenn Du aber das Edit nur für Zahlen brauchst solltest Du bei der Eingabe einfach verhindern das etwas falsches in dem Edit stehen kann.

[ByStones2]

????????????????
Sorry, aber damit kann ich leider nichts anfangen

[ByStones2]

Zitat von Sharky:

Zitat von ByStones2:

...wie kann ich überprüfen ob die eingabe in Edit1 eine Zahl ist ....

Hai ByStones2,

schaue Dir einmal die Procedure Val an.

Wenn Du aber das Edit nur für Zahlen brauchst solltest Du bei der Eingabe einfach verhindern das etwas falsches in dem Edit stehen kann.

Wie geht das ???????????

[ByStones2]

Ich hab ne Lösung gefunden !!!!!!!!!!!!
Danke

[Christian S.]

Du?

[Sharky]

Hier mal ein kleines Beispiel:
[code=delphi]
procedure TForm1.btn_TestClick(Sender: TObject);
var
s: string;
zahl: real;
code: integer;
begin
s := edt_Edit1.Text;
Val(s, zahl, code);
if (code > 0) then
begin
ShowMessageFmt('An Position %d des Strings ' + #10 +
'ist ein Fehler beim konvertieren aufgetreten',

Code:

);
  end;
end;

[Helmi]

Hallo

schau dir dochh mal das TMaskEdit an

und bei dem die Property EditMask

dort kannst du angeben was eingegeben werden soll - z. B. nur Zahlen

[juergen]

Hallo ByStones2,
wenn du eine Fehleingabe verhindern willst, würde ich folgendes empfehlen:

Delphi-Quellcode:

procedure TMyProg.InputAKeyPress(Sender: TObject;
  var Key: Char);
var
  string1: string;
begin
  string1:=Edit1.text;
if key in [',','.',':'] then key := DecimalSeparator; 
 
  if not (key in[#8,#13,#45,#44,#48..#57]) then key:=#0; {allgemeine Sperrung von allen Zeichen ausser
                                                          backspace, Enter, (-) , (,) , (.) , (:) und alle Zahlen }  
  
if (Edit1.selstart <> 0) and( key=#45) then key:=#0;     // das Minus darf nur am Anfang benutzt werden

  if (pos(#44,string1)>0) and (key=#44) then key:=#0;    // nur ein Komma

  if (Edit1.SelStart=0) and (key= #44) then key:=#0;    // kein Komma am Anfang

  if (Edit1.selstart=1) and                             // Kein Minus und anschließend ein Komma
     (string1[1]='-')   and
     (key=#44) then
     key:=#0;
       if not (key in[#8,#13,#45,#44,#48..#57]) then begin
       Key:=#0;
       Windows.Beep(2500,80) ;                        // anstelle einer Fehlermeldung ein kurzer Beep?????
       end;
  end;

Das ganze dann dem OnKeyPress Ereignis zuordnen->fertig.
Fehlermeldungen können ganz schön nerven