我有這樣的代碼
Label1.Caption := '';
Label2.Caption := '';
Label3.Caption := '';
Label4.Caption := '';
Label5.Caption := '';
Label6.Caption := '';
我怎樣才能做一個回圈或某事以使其更短？
uj5u.com熱心網友回復：
制作簡單的程式來處理標簽陣列：
procedure ClearLabels(LabelsArr: array of TLabel);
var
i: Integer;
begin
for i := Low(LabelsArr) to High(LabelsArr) do
LabelsArr[i].Caption := '';
end;
并這樣稱呼它：
ClearLabels([Label1, Label2, Label3]);
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/315591.html
標籤：德尔福
上一篇：針對MSGraphAPI的IndyTIdHttpput命令的內容范圍問題
下一篇：如何更改Linux的部署路徑？