請問: 假如元件中之Properties其中一項如下 TBaudRate = (br110, br300, br600, br1200, br2400, br4800, br9600, br14400, br19200, br38400); 那我如何以程式方法去指定 比如已知 'br110'<--但此為字串形式如何轉為TBaudRate 形式 謝謝

kkccgg 您好：    底下利用一個字串來獲取不同設定的程式碼，請參考修改。 故意把每一種設定都當成長度一樣的子字串(長度為8)。  

type TBaudRate = (br110, br300, br600, br1200, br2400, br4800, br9600, br14400, br19200, br38400);    procedure TForm1.Button1Click(Sender: TObject);
var
   br    : TBaudRate;
   brStr : string;
   index : integer;
begin
  brStr := 'br110--,br300--,br600--,br1200-,br2400-,br4800-,br9600-,br14400,br19200,br38400';
         //'123456789........
  index := Pos('br2400', brStr)-1;
  index := index div 8;
  br    := TBaudRate(index);  // type casting      ShowMessage(IntToStr(ord(br)));
end;

RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

[code] 你好:     也可以利用 RTTI 的方式, 要記得uses typinfo 喔 var   br : TBaudRate; begin   br := TBaudRate (GetEnumValue (TypeInfo (TBaudRate), 'br110'));   Caption := IntToStr (Ord (br)); end; [code]