Kako da u polju za tekst odnosno ...........................

[Veverica_igor_89_Dead]

Interesuje me kako da namestim da kada se klikne recimo na command 1 da ukoliko je u polje za text upisano neko slovo , a ne broj da se pjavi recimo msgbox("nemogu da se unose slova")

molim vas pomagajte hitno

 

[stormbringer1]

crknuta veverice, zaboravio si jednu "sitnicu": koji jezik?
u delphiju ti je sledece:

1. nacin (pascalski)

var r: real;
k: Integer;
begin
val(Edit1.Text, r, kod);
if kod <> 0 then
ShowMessage("Ne zezaj")
else
//radi nesto sa r

2. nacin (elegancija)
var Value: Integer;
begin
if not TryStrToInt(Edit1.Text, Value) then
ShowMessage("Ne zezaj");
//rezultat konverzije ti je u Value

3. nacin (ako je broj veci nego sto je tip Integer, tj 2^31)

for i := 1 to Length(Edit1.Text) do
if not (Edit1.Text in ['0'..'9']) then
begin
ShowMessage("Ne zezaj");
Break
end;

valjda ti je pomoglo sve ovo kucanje, sve je tu jasno i trivijalno

 

[Veverica_igor_89_Dead]

Prijatelju u pitanju je prokleti visual basic 6.0

 

Text box ti sve to tretira kao karaktere tako da ako si glup, mozes da ispitujes karakter po karakter, a ako si dovoljno pametan uocices da ti je kolega lepo napisao i dao ideju (Ako ne mozes da procitas to sto ti je napisao, onda se dobro zapitaj sta ti uopste radis). Jer prijatelju to je tako jasno da ako uopste znas VB6 mozes da procitas i da primenis njegovu ideju. Malo je uvredljivo da ti neko pise kod i ti da ga fazonski COPY/PASTE.
Nauci da citas i druge programske jezike to ti je osnova za sve, ne moras da znas tacno sta je, ali da znas otprilike sta je pesnik svim tim hteo da kaze.

 

[stormbringer1]

my point exactly
ako ti nemas vremena da portujes ovaj kod na VB onda mi je zaista zao sto sam utrosio 2 minuta zivota na tebe.

 

Verujem da ce mu ovo mnogo tesko pasti