Avatar billede anykey Nybegynder
22. oktober 2002 - 20:36 Der er 3 kommentarer og
1 løsning

Numeric streng

Jeg er ude efter en Edit1Change procedure, der når man taster et tegn i edit-feltet checker om Edit1.Text-strengen indeholder andet end tal, hvis den gør dette skal en showmessage() poppe op, og programmet sletter automatisk det forkerte tegn... Husk lige på at det sidste tegn ikke nødvendigvis er det bagerste i Edit1.Text...

Håber der er nogle, der ved hvordan dette kan gøres..
Avatar billede stoney Nybegynder
22. oktober 2002 - 20:46 #1
Jeg ved ikke om jeg har forstået dig rigtigt, men følgende gør
så du kun kan indtaste tal i edit1.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

      if not (Key in ['0'..'9']) then
        Key := #0;
        showmessage('Du må kun indtaste tal');
    end;

Stoney
Avatar billede anykey Nybegynder
22. oktober 2002 - 20:51 #2
den er okai.. bortset fra at backspace-key'en ikke er inkluderet.. og jeg kan ikke huske, hvad den hedder.... hvis du lige fikser det, så smider jeg de 60 point i hovedet på dig ;)
Avatar billede stoney Nybegynder
22. oktober 2002 - 20:54 #3
begin

      if not (Key in ['0'..'9',#8]) then
        Key := #0;
        showmessage('Du må kun indtaste tal');
    end;

Stoney
Avatar billede anykey Nybegynder
22. oktober 2002 - 21:06 #4
uh thx :) havde faktisk fundet den i delphi's manual hehe.. men wtf.. her er de ;)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester