wie kann ich nur Integer in Edit erlauben?

[thomas2009]

Hallo

ich versuche Fehlermeldungen zu vermeiden "bla bla ist kein Integer"
ich habe folgendes gemacht :

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
// Teil 1 :
if NOT (key IN ['0'..'9', '-', #13, #8]) then begin
   key := #0;
   exit;
   end;
// Teil 2: here möchte ich das minus Zeichen nur am Anfang haben,
// weil ich zahlen mit minus Zeichen benötige
...

Wie kann ich das erste Character überprüfen und das "-" zeichen nur am Anfang
erlauben ?

[sirius]

Du schaust dir einfach den Text an und siehst nach, wo das Minus ist, oder?

[DeddyH]

Wozu das Rad neu erfinden? Klick

[edit] Tippfehler [/edit]

[thomas2009]

Momentan verwende ich diesen Code:

Delphi-Quellcode:

if (key = '-') and (Length(Edit1.Text) > 0) then begin
    key := #0; end;

das funktioniert aber nur wenn der feld Edit nicht markiert ist

wenn im Feld Edit1 bereits eine Zahl ist und markiere (selektiere) ich diese
und dann die taste "-" drücke, dann funktioniert nicht. Das ist das Problem

[mirage228]

Ich verweise da gerne auf den Edit-Fenster-Stil ES_NUMBER, wie in diesem Post von mir (von 2004 :mrgreen:):
http://www.delphipraxis.net/internal...=214406#214406

Viele Grüße

[thomas2009]

Zitat:

Zitat von mirage228

Ich verweise da gerne auf den Edit-Fenster-Stil ES_NUMBER, wie in diesem Post von mir (von 2004 :mrgreen:):
http://www.delphipraxis.net/internal...=214406#214406

Viele Grüße

Dann werden nur positive zahlen angenommen ! Ich brauche auch die negative dazu

[nahpets]

Hallo,

kann TMaskEdit von der Palettenseite Zubehör das nicht und die JVCL hat da auch nichts. Mag ich nicht glauben.

[Der.Kaktus]

Hallo,
also ich nutze nach wie vor..Orpheus Numedit..(von ehemals Turbopower nun Open Source)..da gabs/gibt es.. dieses Problem nicht.