|
 | | |
| Autor | Správa |
|---|
ovvo
Užívateľ
Založený: 01.01.2008
Príspevky: 28
 |  Zaslal: Po 26.01.09 19:07 |   |
Pozeral som pozorne cele forum ale nenasiel som to nikde preto zakladam novy topic. Ak to tu uz je, vopred sa ospravedlnujem.
A teraz k teme:
Robim aplikaciu v delphi a mam v nej komponent TEdit z ktoreho beriem informacie od uzivatela. Konkretne sa jedna o ciselnu hodnotu typu Integer
potreboval by som tento vstup osetrit tak, aby mi po napisani nejakeho charu, stringu alebo realneho cisla nespadol program pripadne aby to upozornilo uzivatela o chybnom vstupe do TEdit-u. Informacie sa nasledne odosielaju klasickym buttonom.
za kazdu pomoc dakujem |
| |
  |
|
stopa27
Užívateľ
Založený: 19.09.2006
Príspevky: 729
Bydlisko: Ružomberok<->Bratislava (21)
| | Zaslal: Po 26.01.09 19:16 | |
| kód: | procedure TForm1.Button1Click(Sender: TObject);
i:integer;
begin
if (TryStrToInt(edit1.Text,i)=false) then showmessage('sfdg');
end;
|
skusi previest edit1.text na cislo, ak sa nepodari tak nieco zobrazi |
| |
     |
|
ovvo
Užívateľ
Založený: 01.01.2008
Príspevky: 28
| | Zaslal: Po 26.01.09 19:26 | |
| stopa27 napísal: | procedure TForm1.Button1Click(Sender: TObject);
i:integer;
begin
if (TryStrToInt(edit1.Text,i)=false) then showmessage('sfdg');
end;
skusi previest edit1.text na cislo, ak sa nepodari tak nieco zobrazi |
dakujem presne nieco taketo som potreboval ...pomohlo |
| |
|
|
stopa27
Užívateľ
Založený: 19.09.2006
Príspevky: 729
Bydlisko: Ružomberok<->Bratislava (21)
| | Zaslal: Po 26.01.09 19:30 | |
| kód: | procedure TForm1.Edit1Change(Sender: TObject);
begin
if lstrlenA(pansichar(edit1.Text))<>0 then
if (edit1.Text[lstrlenA(pansichar(edit1.Text))]<'0') or (edit1.Text[length(pansichar(edit1.Text))]>'9') then
begin
showmessage('nepovoleny znak');
end;
end; |
ak to chces kontrolovat hned pri zadavani, tak mozno by bolo vhodnejsie toto |
| |
|
|
ovvo
Užívateľ
Založený: 01.01.2008
Príspevky: 28
| | Zaslal: Po 26.01.09 19:39 | |
| stopa27 napísal: | procedure TForm1.Edit1Change(Sender: TObject);
begin
if lstrlenA(pansichar(edit1.Text))<>0 then
if (edit1.Text[lstrlenA(pansichar(edit1.Text))]<'0') or (edit1.Text[length(pansichar(edit1.Text))]>'9') then
begin
showmessage('nepovoleny znak');
end;
end;
ak to chces kontrolovat hned pri zadavani, tak mozno by bolo vhodnejsie toto |
myslim ze prva moznost uplne staci..jedna sa len o jednoduchu ilustracnu aplikaciu ale aj tak dik |
| |
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.
|
| |
