Ĺadny brzuch
Pisze właśnie program, w którym na jednym panelu umieszczam wiele komponentów "Edit". Mam pytanie czy jest możliwość, aby odwoływać się do nich poprzez indeksy, a nie przez ich nazwy czyli miałoby wyglądać to np. tak:
Edit[indeks], a nie Edit1, Edit2 itd.
var i:integer; begin for i:=1 to 4 do TEdit(FindComponent('Edit'+IntToStr(i))).Text:='test';
Jezeli chcesz przez indeksy to daj edity: array of TEdit i odwoluj sie przez edity[x]a jak nie bedzie dzialac (nie wiem czy nie bedzie sie delphi czepial ze klasa jest w tablicy, choc raczej nie powinien) to daj edity: array of pointer i odwoluj sie przez tedit(edity[x])
//EDIT
Cyrkiel: of course :D Juz poprawilem.
Użytkownik Ali240 edytował ten post 18 sierpień 2005, 21:16
Jezeli chcesz przez indeksy to daj edity: array of edit ... of tedit ;)
Użytkownik Cyrkiel edytował ten post 18 sierpień 2005, 12:13
var i:integer; begin for i:=1 to 4 do TEdit(FindComponent('Edit'+IntToStr(i))).Text:='test';
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Edit[indeks], a nie Edit1, Edit2 itd.
var i:integer; begin for i:=1 to 4 do TEdit(FindComponent('Edit'+IntToStr(i))).Text:='test';
Jezeli chcesz przez indeksy to daj edity: array of TEdit i odwoluj sie przez edity[x]a jak nie bedzie dzialac (nie wiem czy nie bedzie sie delphi czepial ze klasa jest w tablicy, choc raczej nie powinien) to daj edity: array of pointer i odwoluj sie przez tedit(edity[x])
//EDIT
Cyrkiel: of course :D Juz poprawilem.
Użytkownik Ali240 edytował ten post 18 sierpień 2005, 21:16
Jezeli chcesz przez indeksy to daj edity: array of edit ... of tedit ;)
Użytkownik Cyrkiel edytował ten post 18 sierpień 2005, 12:13
var i:integer; begin for i:=1 to 4 do TEdit(FindComponent('Edit'+IntToStr(i))).Text:='test';