Архив форумов ЦИТФорума

[Smitty]

Есть Label1, Label2, ...
Нужно:
for i:=1 to x do begin
StringGrid.Cells[0,i]:=Label(i).Caption;
...
end;
Помогите, пожалуйста...

[Ersh]

Чё нужно записать в stringrid начения из лабела по буквенно?

[Smitty]

Нужно присвоить значение label1 ячейке 1 полностью
label1 - ячейке2
и т.д.

[Smitty]

StringGrid1.Cells[0,1]:=Label1.Caption;
StringGrid1.Cells[0 ,2]:=Label2.Caption;
StringGrid1.Cells[0,3]:=Label3.Caption ;
...
StringGrid1.Cells[0,i]:=Labeli.Caption;

с помощью цикла

[Chief]

Это можно сделать в цикле, если завести массив указателей на твои лэйблы. Как в Паскале не помню, но в С так:

CLabel pLabs[nCount];
// init
pLabs[0]=&Label1;
.
.
pLabs[nCount-1]=&Label;
// cycle
for (int i=0;i!=nCount-1;++i)
StringGrid1.Cells[0][i+1]=pLabs[i];

[=IGOR=]

for i:= to Form1.ControlCount-1 do
begin
if Form1.Controls[i] is TLabel then
begin
StringGrid1.Cells[0,i] :=
(Form1.Controls[i]as TLabel).Caption;
end;
end;

[=IGOR=]

for i:= to Form1.ControlCount-1 do
begin
if Form1.Controls[i] is TLabel then
begin
StringGrid1.Cells[0,i] :=
(Form1.Controls[i]as TLabel).Caption;
end;
end;

[Ersh]

for i:=1 to x-1 do
stringgrid1.cells[o,i]:=label1.caption

[FFF]

Надо из ИМЕНИ (Form1.Controls[i]as TLabel).Name извлекать номер ячейки, в которую заносится (Form1.Controls[i]as TLabel).Caption;