記得在Clipper 時代,有所謂"巨集變數"的東西: M=1 DO HWILE N<=12 S=STR(M) MONTH&S= ...... N ENDDO // 以上Assign MONTH01 到 MONTH12 共12個變數的值 .... .... IF N>="01" .AND. N<="12" RESULT= MONTH&N ELSE RESULT="" ENDIF // 當N="01" 時 RESULT= MONTH01 // 當N="02" 時 RESULT= MONTH02 // 以此類推 請問各位先進, Object Pascle 如何做到相同的功能呢? 謝謝!

如果變數只是單純的與數字有關 可以考慮採用陣列方式

var
  N:integer;
  arrayOfVar:array of String;
begin
  N:=1;
  While N<=12 do
  begin
    arrayOfVar[N]:=...
    Inc(N);
  end;
  
  if (N>1) and (N<=12) then
  begin
    Result:=arrayOfVar[N];
  end
  else
  begin
    Result:='';
  end;
  
end;

如果變數名稱不是單純的數字組合的情形 可參考以下方式 請教關於字串轉變數的難題

http://delphi.ktop.com.tw/topic.php?topic_id=56086

＠瞭解越多.懂得越少＠

我之前也寫Clipper, Foxpro.. 剛開始也很不習慣, 但後來仔細想想不見得要使用巨集, 到了Delphi, 動(靜)態array已可解決大部份的需求, 你可以試看看, 不要再留戀巨集啦, 那是直譯式軟體的產物。