宣告了一個 TAA =(xPA,xER,xFR,xSR,xEL,xFL,xSL); 該如何 將 字串'PA' 轉為 TAA 的型態 ，謝謝 ^^

您要的是這樣？

var
  s: string;
  a: TAA;
begin
  s := 'PA';
  if s = 'PA' then
    a := xPA;
end;

dear hagar 是要這樣的結果 ，但 是否 有類似 直接轉換的方式，因為資料很多，想寫成比較有結構性的寫法

引言: 宣告了一個 TAA =(xPA,xER,xFR,xSR,xEL,xFL,xSL); 該如何 將 字串'PA' 轉為 TAA 的型態 ，謝謝 ^^

danajn 你好

uses typinfo    TAA(GetEnumValue(TypeInfo(TAA),'xPA'));
// ==> xPA   不是'xPA'喲  
 

_______________________________________ 深藍的魚，祝您好運..........連連

Dear Chance36 就是想要這個，謝謝 ^_______^

不好意思  我也跟著試一下 會有錯誤訊息耶...    

宣告 use typinfo type TAA =(xPA,xER,xFR,xSR,xEL,xFL,xSL); procedure TFmP300_Base.KButtonClick(Sender: TObject); var xSRC: TAA; begin xSRC:=TAA(GetEnumValue(TypeInfo(TAA),'xPA')); end; dear hahalin 是沒問題的

謝謝 這樣可以了 看來還有很多得學習的了