Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Komandni niz

[es] :: Pascal / Delphi / Kylix :: Komandni niz

[ Pregleda: 2753 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Dusan Aleksic
Student; web developer @ freelance
Beograd

Član broj: 5244
Poruke: 200
*.verat.net

ICQ: 129852450


+5 Profil

icon Komandni niz05.10.2002. u 23:28 - pre 231 meseci
Da li je i kako moguce u delphiju napraviti ono sto se u Visual Basicu zove "Command Array" (barem su mi tako rekli da se zove) tj. kako da u delphiju grupisem vise objekata istog tipa i istog imena a sa razlicitim indeksima. Tako da kada hocu da uradim nesto sa nekim objektom ja samo upisem imeobjekta(indeks).nesto
Potrebno mi je jer na jednoj formi imam oko sto objekata tipa image koji imaju imena image1, image2, image3 .. image100 koji treba da ucitaju odgovarajucu sliku na odgovarajuci dogacaj koji ce dodati ili oduzeti neku vrednost promenjivoj "n" koja bi bila indeks objekta.
Ja nisam ekspert ali ovo sigurno postoji u VBasicu pa pretpostavljam da postoji i u Delphiju.

Unapred hvala.
sudo make me a sandwich
 
Odgovor na temu

vilyu
Web Developer
Beograd, Srbija

Član broj: 1188
Poruke: 444



+2 Profil

icon Re: Komandni niz06.10.2002. u 11:04 - pre 231 meseci
Potrazi u help-u vise informacija o FindComponent. Ide od prilike ovako:
TImage(FindComponent('image' + IntToStr(i))).Visible := false;
Pera električar 0637129710, BG, preporučujem.
 
Odgovor na temu

goblin
Milan Aleksic
Gtech Belgrade, Sofware Engineer II
Beograd

Član broj: 4055
Poruke: 85
*.ptt.yu

Jabber: milanaleksic@gmail.com
Sajt: www.milanaleksic.net


Profil

icon Re: Komandni niz06.10.2002. u 16:07 - pre 231 meseci
Iskoristi metode forme: Components i ComponentCount. Prodji kroz listu sa obaveznim osvrtom na RTTI ovako:

for I := 0 to ComponentCount-1 do
if Components[I] is TImage then
with TImage(Components[I]) do
begin
// radi sta oces ovde...
end;

Pozdrav.
Don't try to impress me... I'm good !
 
Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
62.162.102.*

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk


Profil

icon Re: Komandni niz07.10.2002. u 08:49 - pre 231 meseci
Ukoliko ti ne pomogne Components, array, onda mozes u svako vreme definirati svoju listu od Object-a, i onda samo pri prolaz kroz listu kastiras kao trazeni objekt.

primer
Code:

var 
ListaLabela:TList;
k:integer;

begin
ListaLabela:=TList.Create;

ListaLabela.add(Label1);
ListaLabela.add(Label2);

for k:=0 to ListaLabela.Count-1 do
begin
ShowMessage(TLabel(ListaLabela[k]).Caption);
end;

ListaLabela.Free;

end;

People who think they know everything tend to irritate those of us who do.
 
Odgovor na temu

Dusan Aleksic
Student; web developer @ freelance
Beograd

Član broj: 5244
Poruke: 200
*.verat.net

ICQ: 129852450


+5 Profil

icon Re: Komandni niz07.10.2002. u 15:01 - pre 231 meseci
Momci hvala vam puno na vasim lepim idejama, dosta ste mi pomogli i ubrzali rad.

Pozdrav,

Duca
sudo make me a sandwich
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Komandni niz

[ Pregleda: 2753 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.