Obsah fóra » Softvér » Programovanie, vývoj softvéru a webu » Ostatné » osetrenie vstupov v delphi





 Stránka: 1 z 1
 [ Príspevkov: 5 ] 
AutorSpráva
Offline ovvo

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 01.01.08
Prihlásený: 30.06.11
Príspevky: 28
Témy: 5 | 5
NapísalOffline ovvo: 26.01.2009 18:07 | osetrenie vstupov v delphi

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


Offline stopa27

Užívateľ
Užívateľ
osetrenie vstupov v delphi

Registrovaný: 19.09.06
Prihlásený: 21.05.26
Príspevky: 749
Témy: 31 | 31
Bydlisko: Ružomberok&...
NapísalOffline stopa27: 26.01.2009 18:16 | osetrenie vstupov v delphi

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


Offline ovvo

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 01.01.08
Prihlásený: 30.06.11
Príspevky: 28
Témy: 5 | 5
Napísal autor témyOffline ovvo: 26.01.2009 18:26 | osetrenie vstupov v delphi

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


Offline stopa27

Užívateľ
Užívateľ
osetrenie vstupov v delphi

Registrovaný: 19.09.06
Prihlásený: 21.05.26
Príspevky: 749
Témy: 31 | 31
Bydlisko: Ružomberok&...
NapísalOffline stopa27: 26.01.2009 18:30 | osetrenie vstupov v delphi

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


Offline ovvo

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 01.01.08
Prihlásený: 30.06.11
Príspevky: 28
Témy: 5 | 5
Napísal autor témyOffline ovvo: 26.01.2009 18:39 | osetrenie vstupov v delphi

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 ] 


osetrenie vstupov v delphi


Obsah fóra » Softvér » Programovanie, vývoj softvéru a webu » Ostatné » osetrenie vstupov v delphi


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy.

osetrenie vstupov a DB

v Backend

8

553

02.11.2012 18:42

DeiForm

V tomto fóre nie sú ďalšie neprečítané témy.

Osetrenie vstupov programu v C

v Backend

11

1181

16.12.2007 15:11

sento

V tomto fóre nie sú ďalšie neprečítané témy.

delphi zapis cisla do editu v delphi

v Ostatné

3

1212

11.05.2008 12:02

p360t

V tomto fóre nie sú ďalšie neprečítané témy.

C - viac vstupov v 1 riadku

v Backend

2

421

01.02.2016 20:14

faraon

V tomto fóre nie sú ďalšie neprečítané témy.

Bug/osetrenie

v Oznámenia a návrhy

5

1231

28.10.2009 19:04

Jaro

V tomto fóre nie sú ďalšie neprečítané témy.

ošetrenie vstupu

v Ostatné

22

762

12.12.2015 21:11

camarovk19

V tomto fóre nie sú ďalšie neprečítané témy.

Osetrenie formulara

v Backend

2

585

25.01.2010 16:36

Slappy

V tomto fóre nie sú ďalšie neprečítané témy.

Ošetrenie/zabezpečenie Registracie?

v Backend

4

560

04.02.2010 17:00

d0.0b

V tomto fóre nie sú ďalšie neprečítané témy.

Chemické ošetrenie spojov

v Biosy a ladenie výkonu

4

3868

27.01.2013 12:56

shiro

V tomto fóre nie sú ďalšie neprečítané témy.

Osetrenie ulozenia JAVA

v Backend

2

625

25.11.2009 12:43

dEVIANT

V tomto fóre nie sú ďalšie neprečítané témy.

jquery - osetrenie trvania animacie

v Frontend

4

640

05.06.2009 21:06

chrono

V tomto fóre nie sú ďalšie neprečítané témy.

C-ošetrenie nulového menovateľa

v Backend

3

586

04.06.2010 13:17

jarrro

V tomto fóre nie sú ďalšie neprečítané témy.

osetrenie korozie v radiatore vodnika

v Chladiče a všetky druhy chladenia

12

853

03.08.2011 13:44

zalgoo

V tomto fóre nie sú ďalšie neprečítané témy.

osetrenie nespravnej hodnoty pri scanf

v Backend

5

572

13.11.2011 16:14

walther

V tomto fóre nie sú ďalšie neprečítané témy.

Ošetrenie kroku späť a znovu vpred

v Backend

6

560

10.11.2012 10:42

xxx9955

V tomto fóre nie sú ďalšie neprečítané témy.

Osetrenie vyjdenie z drahy (turbo pascal)

v Ostatné

11

892

14.12.2008 11:54

Blackshadow



© 2005 - 2026 PCforum, edited by JanoF