急！！菜鸟请教一个关于枚举的问题

Question

我想把('1200','2400','4800','9600','5400')付给一个buf，然后用buf[i]来调用里面的内容
该怎么写？？

Answer 1

('1200','2400','4800','9600','5400')仿佛是串口通信的波特率阿，不知道楼主要搞什么。
var
  buf:array[1..5] of string = ('1200','2400','4800','9600','5400');
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
begin
    for I:=1 to 5 do
    begin
        showmessage(buf[I]);
    end;
end;

Answer 2

楼上好像有个错误的地方
buf:array[1..5] of string = ('1200','2400','4800','9600','5400');
必须写在const下面

Answer 3

下面是根据你的要求写的，不过不实用 :)
type
  Tbaud = (b1=1200, b2=2400, b3=4800, b4=9600, b5=5400);
procedure Tfrm_main.btn13Click(Sender: TObject);
var
 b: Tbaud;
begin
  showmessage(inttostr(ord(b1)));
end;// 建议使用整型数组
const
  a: array[0..2] of integer = (1200, 5400);a[0]=1200;..

Answer 4

const
     arr:array [0..3] of integer=(1200,2400,9600,115200) ;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  s:string;
begin
  s:='';
  for i:=0 to High(arr) do
    s:=s+inttostr(arr[i]);
  showmessage(s);
end;