 | | |
 | Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
| Autor | Správa |
|---|
Registrovaný: 01.01.08
Prihlásený: 30.06.11
Príspevky: 28
Témy: 5 |  Napísal ovvo: 26.01.2009 18: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
|
|
Registrovaný: 19.09.06
Prihlásený: 17.01.24
Príspevky: 749
Témy: 31
Bydlisko: Ružomberok&... |
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
|
|
Registrovaný: 01.01.08
Prihlásený: 30.06.11
Príspevky: 28
Témy: 5 | Napísal autor témy ovvo: 26.01.2009 18:26 | |
|
stopa27 píše: 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
|
|
Registrovaný: 19.09.06
Prihlásený: 17.01.24
Príspevky: 749
Témy: 31
Bydlisko: Ružomberok&... |
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
|
|
Registrovaný: 01.01.08
Prihlásený: 30.06.11
Príspevky: 28
Témy: 5 | Napísal autor témy ovvo: 26.01.2009 18:39 | |
|
stopa27 píše: 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
|
|
| Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Podobné témy | | Témy | Odpovede | Zobrazenia | Posledný príspevok |
|---|
 | osetrenie vstupov a DB v PHP, ASP | 8 | 471 | 02.11.2012 18:42 DeiForm  |  | Osetrenie vstupov programu v C v Assembler, C, C++, Pascal, Java | 11 | 1079 | 16.12.2007 15:11 sento | | delphi zapis cisla do editu v delphi v Delphi, Visual Basic | 3 | 1105 | 11.05.2008 12:02 p360t | | C - viac vstupov v 1 riadku v Assembler, C, C++, Pascal, Java | 2 | 329 | 01.02.2016 20:14 faraon | | Bug/osetrenie v Správy pre vedenie fóra | 5 | 1144 | 28.10.2009 19:04 Jaro | | Osetrenie formulara v PHP, ASP | 2 | 518 | 25.01.2010 16:36 Slappy | | ošetrenie vstupu v Delphi, Visual Basic | 22 | 638 | 12.12.2015 21:11 camarovk19 |  | Chemické ošetrenie spojov v Biosy a ladenie výkonu | 4 | 3743 | 27.01.2013 12:56 shiro | | Osetrenie ulozenia JAVA v Assembler, C, C++, Pascal, Java | 2 | 559 | 25.11.2009 12:43 dEVIANT | | Ošetrenie/zabezpečenie Registracie? v PHP, ASP | 4 | 491 | 04.02.2010 17:00 d0.0b | | jquery - osetrenie trvania animacie v JavaScript, VBScript, Ajax | 4 | 564 | 05.06.2009 21:06 chrono | | C-ošetrenie nulového menovateľa v Assembler, C, C++, Pascal, Java | 3 | 487 | 04.06.2010 13:17 jarrro | | osetrenie korozie v radiatore vodnika v Chladiče a všetky druhy chladenia | 12 | 759 | 03.08.2011 13:44 zalgoo | | osetrenie nespravnej hodnoty pri scanf v Assembler, C, C++, Pascal, Java | 5 | 478 | 13.11.2011 16:14 walther | | Ošetrenie kroku späť a znovu vpred v PHP, ASP | 6 | 486 | 10.11.2012 10:42 xxx9955 | | Osetrenie vyjdenie z drahy (turbo pascal) v Assembler, C, C++, Pascal, Java | 11 | 777 | 14.12.2008 11:54 Blackshadow |
| Nemôžete zakladať nové témy v tomto fóre
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
|
|
