引言: 再給你一段sample看看 var Form1: TForm1; Labels: array[0..9, 0..9] of TLabel; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i, j: Integer; lb: TLabel; begin for i := Low(Labels) to High(Labels) do begin for j := Low(Labels[i]) to High(Labels[i]) do begin lb := TLabel.Create(self); lb.Parent := Self; lb.Caption := IntToStr(StrToInt(IntToStr(i) IntToStr(j)) 1); lb.Width := 50; lb.Height := 20; lb.Left := j * lb.Width 5; lb.Top := i * lb.Height 5; Labels[i, j] := lb; end; end; end;

各位好: 這樣是開了100個Label可是我如果要刪除其中幾個 ... 或是全部清除要怎麼做才好勒!!!

procedure killArray(i,j:Integer)  ;
begin
     Labels[i,j].Free ;
end;    procedure TForm1.Button2Click(Sender: TObject);
var
    i:Integer;
begin
    for i :=0  to 10 do
         killArray(i,1);
end;    

--【KTop SNG新聞現場】--記者:ddy----------------------------------------- 請各位市民做好資源回收與垃圾分類，讓不良標題與不當發言在KTop 市消失 ------------------------------------------------------------------------- 發表人 - ddy 於 2002/12/05 12:13:39