我的程式寫了一個 清空edit的 陳述句 用的是 edit.clear 但是這個陳述句好像只能清空3個 edit 到第四個的時候會報錯
uj5u.com熱心網友回復：
。。沒聽明白uj5u.com熱心網友回復：
要不就一個個的清空要不就遍歷清空
var
i:Integer;
begin
for i:=0 to Form1.ControlCount-1 do
begin
if Form1.Controls[i] is TEdit then
((Form1.Controls[i]) as TEdit).Text:='';
end;
end;
uj5u.com熱心網友回復：
一個一個清空的話會報錯uj5u.com熱心網友回復：
什么錯uj5u.com熱心網友回復：
測驗了50個，也沒錯誤……uj5u.com熱心網友回復：
這個應該不會出錯的，肯定是其他地方的問題uj5u.com熱心網友回復：
要不就遍歷清空2樓正解
uj5u.com熱心網友回復：
2樓正解啊 如果你出錯了 肯定是型別判斷出錯，組件個數出錯，又或者不是edituj5u.com熱心網友回復：
這樣做過，沒見出過錯啊uj5u.com熱心網友回復：
把代碼貼下,同意二樓uj5u.com熱心網友回復：
復制的陳述句，第4個忘記改元件名字了吧？uj5u.com熱心網友回復：
var
i: integer;
begin
for i := 0 to form1.ControlCount - 1 do
if Controls[i] is TEdit then
Tedit(Controls[i]).Text := '';
ShowMessage('任務完成');
for i := 0 to form1.ControlCount - 1 do
if Controls[i] is TEdit then
Tedit(Controls[i]).Text := 'csdn任務';
end;
uj5u.com熱心網友回復：
貼你的代碼嘛
uj5u.com熱心網友回復：
var
i: integer;
begin
for i := 0 to form1.ControlCount - 1 do
if Controls[i] is TEdit then
Tedit(Controls[i]).Clear;
//Tedit(Controls[i]).Text:=''; 也可
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/133614.html