Jak wpisać w 4 umieszczonych komponentach na formie cztery różne napisy, a z czego to musi działać za pomocą pętli np. for.
tz. jedna iteracja jeden napis w jednym komponencie
druga iteracja drugi napis w drugim komponencie itd.
za pomoc z góry dzięki...
pozdrawiam.
0
0
for i:=1 to 4 do
if i=1 then
label1.caption:='napis1'
else
if i=2 then
label2.caption:='napis2'
else
if i=3 then
label3.caption:='napis3'
else
label4.caption:='napis4';
Albo zamiast instrukcji warunkowych możesz skorzystać z
case of
0
A nie łatwiej:
var
I: Integer;
begin
TLabel(Form1.FindComponent('Label'+IntToStr(I))).Caption:='nazwa'+IntToStr(I);
end;
;)
0
A nie łatwiej:
var
I: Integer;
begin
TLabel(Form1.FindComponent('label'+IntToStr(I))).Caption:='nazwa'+IntToStr(I);
end; ;)
Niby tak, ale jeżeli w label1.caption ma być 'jakis_napis', w label2.caption 'napis2', w label3.caption 'cos' itd. Wtedy twój sposób nie jest za bardzo skuteczny. :)
0
Jest, bo zmieniasz Caption, a nie Name.
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.