Komandni niz

Odgovori Nova tema

4 odgovora
3.755 pregleda

Komandni niz 06.10.2002. u 00:28 · pre 293 meseca #1

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.

Potpis

sudo make me a sandwich

Re: Komandni niz 06.10.2002. u 12:04 · pre 293 meseca #2

Potrazi u help-u vise informacija o FindComponent. Ide od prilike ovako:
TImage(FindComponent('image' + IntToStr(i))).Visible := false;

Potpis

Pera električar 0637129710, BG, preporučujem.

Re: Komandni niz 06.10.2002. u 17:07 · pre 293 meseca #3

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.

Potpis

Don't try to impress me... I'm good !

Re: Komandni niz 07.10.2002. u 09:49 · pre 293 meseca #4

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;

Potpis

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

Re: Komandni niz 07.10.2002. u 16:01 · pre 293 meseca #5

Momci hvala vam puno na vasim lepim idejama, dosta ste mi pomogli i ubrzali rad.

Pozdrav,

Duca

Potpis

sudo make me a sandwich

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme