j := 0;
for i := 0 to ComponentCount - 1 do
if Components[i] is TLabel then
begin
TLabel(Components[i]).Caption := IntToStr(j);
Inc(j);
end;
for i := 0 to ComponentCount - 1 do
if Components[i] is TLabel then
begin
TLabel(Components[i]).Caption := IntToStr(j);
Inc(j);
end;
顺便问一下,怎样把问题点数加给你?