for i := 1 to 6 do
  begin
    TEdit(FindComponent('Edit'   IntToStr(i))).Enabled := False;
  end;

TEDIT 可以用 FindComponent 方式指定內容或相關設定 請問 一般字串變數,除了用陣列方式外,可以用類似如上範例的方法指定初值嗎?? var vv1,vv2,vv3,vv4,vv5,vv6,vv7........... : string;

for i := 1 to 7 do
  begin
     __Findx???xxxxxx___('vv'   IntToStr(i))) := '初值';
  end;

謝謝您 -------------------------------- 這一網站,真的不錯!!

------
---------------------------------------
偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩.

Hi ANDY8C,    Why don't you use array !?     ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

你好：
  如 Fishman 大大所言，以陣列方式賦予變數值的做法最方便也最容易程式化。以下列出陣列直接賦值的宣告方式。
// 常數陣列宣告
const
  WeekStr : array [0..6] of string = ('星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');    // 變數陣列宣告
var
  Count : array [0..6] of integer = (0, 0, 0, 0, 0, 0, 0);