[es] - Problem sa FindComponent i sl.

sojic
Dalibor Sojic
Makedonija

Član broj: 7051
Poruke: 796
80.77.156.*

Sajt: right-sock.net

+1 Profil

^{20.09.2008. u 19:02 - pre 189 meseci}

Imam panel sa nekoliko SpinEdita. SpinEdit name idu: a34, a35, a36.... i tako dalje.

Kako da sa for ciklusu pristupim do svaki?

Pokusavao sam u stilu:

Code:

for i:=x to y do
FindComponent('a'+inttostr(i) as TSpinEdit).Value = 2323;

I svakojake kombinacije sa FindComponent, ali ne radi.

Pomoc ako moze :(

routing protocols enable routers to route routed protocols!

Odgovor na temu

0rc
BG

Član broj: 151321
Poruke: 107
*.adsl-a-1.sezampro.yu.

+40 Profil

Re: Problem sa FindComponent i sl.

^{20.09.2008. u 19:26 - pre 189 meseci}

Verovatno treba

Code:

(FindComponent('a'+inttostr(i)) as TSpinEdit).Value := 2323;

Sta znaci da "ne radi"? Da li dobijes neki exception?
Takodje, vrednost ce automatski biti ogranicena [MinValue, MaxValue] opsegom. Proveri da te to ne ometa.

Odgovor na temu

sojic
Dalibor Sojic
Makedonija

Član broj: 7051
Poruke: 796
80.77.156.*

Sajt: right-sock.net

+1 Profil

Re: Problem sa FindComponent i sl.

^{20.09.2008. u 19:36 - pre 189 meseci}

Ma pokusavao sam ShowMessage(IntToStr((FindComponent('a'+inttostr(i)) as TSpinEdit).Value)); i dobijem:

Project xxx raised exception class EConvertError with message ''' is not valid integer value'

Inace, sve SpinEdite imaju default vrednost 0.

routing protocols enable routers to route routed protocols!

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Problem sa FindComponent i sl.

^{20.09.2008. u 20:20 - pre 189 meseci}

> FindComponent('a'+inttostr(i) as TSpinEdit).Value = 2323;

Ne može tako.

TSpinEdit(FindComponent('a'+inttostr(i)).Value = 2323 ili
(FindComponent('a'+inttostr(i)) as TSpinEdit).Value = 2323.

> Ma pokusavao sam ShowMessage(IntToStr((FindComponent('a'+inttostr(i)) as TSpinEdit).Value)); i dobijem:
> Project xxx raised exception class EConvertError with message ''' is not valid integer value'

To znači da je pokušana konverzija stringa u Integer, npr. preko StrToInt, kako je ti ne pozivaš onda jedino da je poziva ta kontrola. Za početak proveri da li uopšte dobijaš nešto sa FindComponent.

Code:

var
  Temp: TSpinEdit;
begin
  Temp := TSpinEdit(FindComponent('a4'));
  if Assigned(Temp) then
   ...
end;

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

sojic
Dalibor Sojic
Makedonija

Član broj: 7051
Poruke: 796
80.77.156.*

Sajt: right-sock.net

+1 Profil

Re: Problem sa FindComponent i sl.

^{20.09.2008. u 20:30 - pre 189 meseci}

E sad se nista ne desava. Ne dobijem Showmessage.

routing protocols enable routers to route routed protocols!

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Problem sa FindComponent i sl.

^{20.09.2008. u 21:17 - pre 189 meseci}

> E sad se nista ne desava. Ne dobijem Showmessage.

Šta hoćeš da kažeš da uslov Assigned(Temp) nije ispunjen? To znači da FindComponent nije našla tu komponentu, verovatno pogrešan naziv ili forma nije njen Owner.

Odgovor na temu

0rc
BG

Član broj: 151321
Poruke: 107
*.adsl-a-1.sezampro.yu.

+40 Profil

Re: Problem sa FindComponent i sl.

^{20.09.2008. u 21:20 - pre 189 meseci}

Ok, to znaci da 1) ime nije dobro, 2) forma sa koje pozivas FindComponent nije Owner tih SpinEdit kontrola ili 3) greskom pozivas FindComponent metod neke druge komponente (a ne forme), sto je moguce ako si npr. u nekom with bloku.

Odgovor na temu

sojic
Dalibor Sojic
Makedonija

Član broj: 7051
Poruke: 796
80.77.156.*

Sajt: right-sock.net

+1 Profil

Re: Problem sa FindComponent i sl.

^{22.09.2008. u 17:56 - pre 189 meseci}

SpinEdit se nalaze u panelu. Dali mozda treba da pozovem FindComponent od panela?

routing protocols enable routers to route routed protocols!

Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 810
*.dynamic.sbb.rs.

+62 Profil

Re: Problem sa FindComponent i sl.

^{22.09.2008. u 22:10 - pre 189 meseci}

sojic, daj naziv metode iz koje pozivas gornji kod...

Rajko

Odgovor na temu

0rc
BG

Član broj: 151321
Poruke: 107
*.rcub.bg.ac.yu.

+40 Profil

Re: Problem sa FindComponent i sl.

^{23.09.2008. u 08:14 - pre 189 meseci}

Citat:

sojic: SpinEdit se nalaze u panelu. Dali mozda treba da pozovem FindComponent od panela?

Ne, osim ako nisi u kodu rucno podesio da Owner za SpinEdit kontrole bude panel.. Ako se ne varam, podrazumevano ponasanje za komponente koje se postavljaju u form designer-u je da im je forma Owner, bez obzira na panele, box-ove i slicno.

Odgovor na temu