Ładny brzuch

Proste pytanie(dla mnie trudne:) ). Jak robi eby komponent Edit wywietla tylko cyfry, czyli eby nie wywietla liter.


1. W onkeypress (czy co takiego) zrobi to:

if key not in ['0'..'9'] then
key=#0;

2. W on change :

var i:integer;
tmp:string;

for i:=1 to length(edit.text) do
begin
if edit.text[i] in ['0'..'9'] then
tmp:=tmp+edit.text[i];
end

edit.text:=tmp;

3. mona to te zrobi OnExit zamiast onchange,bdzie to szybsze, ale mniej "bezpieczne" :D

----
m@il: ali88@tlen.pl
GG: 2083160

Mozesz uzyc komponetu MaskEdit i ustawic wlasciwosc
MaskEdit1.EditMask:='00000';
ale bedzie mozna wpisywac tylko cyfry ile podales zer.

pozdro

GG: 4596137

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •