EditBox - kontrola unosa

[ prginfo @ 05.03.2008. 06:21 ] @

Zelim da postavim TEditBox na formu i kada korisnik klikne na dogme koje se nalazi na formi, da se vrsi neko izracunavanje. Problem mi je da se kontrolise unos koji vrsi korisnik u EditBox. Potrebno je da se izvrsi kontrola da li je korisnik ispunio polje i da u polju budu upisani samo brojevi, ili u suprotnom, da se otvara forma na kojoj se ispisuje da je potrebno popuniti dato polje i da mora biti pounjeno brojevima a ne sme da sadrzi slova i druge znake.

Unapred Hvala.

[ krle_zr @ 05.03.2008. 08:17 ] @

Code:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  //provera unosa
  if not (Key in ['0'..'9', #8]) then   // #8 Backspace
  begin
    Key := #0; //u slucaju slova ne ispisi karakter na Edit kontrolu
    ShowMessage('Unesi samo broj');
  end;
end;

Ovo je samo jedno od mogucih resenja, a mozes koristiti i komponentu MaskEdit
Pozdrav.

[ prginfo @ 05.03.2008. 22:09 ] @

Najradije bi kontrolu unosa uradio preko MaskEdita, ali kako da definišem da se u MaskEditu upisuju samo brojevi, ali ne i koliko brojeva.

Da pojasnim. Neyzam da li će se upisivati trocifreni ili četvorocifreni broj, ali znam da će biti broj. U definiciji maski nisam nasao kako da definisem upis broj a da je nezavisan od količine cifara.

Hvala.

[ viking13 @ 05.03.2008. 23:11 ] @

Citat:

prginfo: Najradije bi kontrolu unosa uradio preko MaskEdita, ali kako da definišem da se u MaskEditu upisuju samo brojevi, ali ne i koliko brojeva.

Da pojasnim. Neyzam da li će se upisivati trocifreni ili četvorocifreni broj, ali znam da će biti broj. U definiciji maski nisam nasao kako da definisem upis broj a da je nezavisan od količine cifara.

Hvala.

Moraš da znaš minimalan i maksimalan broj cifara, ako hoćeš tako da radiš, kao i da li broj može da bude negativan.

99999 - od 0 do 5 cifara
09999 - od 1 do 5 cifara
00099 - od 3 do 5 cifara
....

[ prginfo @ 06.03.2008. 05:50 ] @

Znači, ako hoću da definišem upis na brojeve i to da može da se upiše najmanje jedna a najviše 5 cifara u definiciji maske stavim 09999?

[ mrceski @ 06.03.2008. 08:42 ] @

Evo ti edna dobra komponenta za tvojot problem. Besplatna e i imas 7 tipova na edit polina.

http://bak-o-soft.dk/Default.asp?Page=PBEditPack

Pozdrav