請問各位。 如果有多個有規則的變數， 如何利用迴圈作變化。 已定義的變數如下： YM01 YM02 YM03 YM04 YM05 YM06 FOR I:=1 TO 6 DO begin YM Formatfloat('00',I) := 'AAAA'//程式似乎會有錯，是否可作到如此功能 Next; end 請問如不用陣列，是否可作到，另外，如利用陣列方式是如何定義呢。 麻煩大家。

您好: 似乎沒辦法像您這樣做耶,要用陣列來達到您的需求 var YM:Array[0..5] of String; i:integer; begin for i:=0 TO Length(YM)-1 DO begin YM[i]:='AAAA'; end; end; 發表人 - supman 於 2005/05/30 16:13:01

如果變數不多, 可以直接設定 YM01:='AAAA'; YM02:='AAAA'; YM03:='AAAA'; YM04:='AAAA'; YM05:='AAAA'; YM06:='AAAA'; ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

如果變數不多, 您也可以使用case for i:=1 to 6 do Begin Case i of 1: YM01:='AAAA'; 2: YM02:='AAAA'; 3: YM03:='AAAA'; 4: YM04:='AAAA'; 5: YM05:='AAAA'; 6: YM06:='AAAA'; End; Showmessage(YM03); End;