var kind: string; begin case kind of 'abc': ...; 'def': ...; end; end; when compile, why kind can't be string.

RoxetteI 你好: 因為delphi本來就沒提供字串型態的case呀... 你可以把'abc','cde'轉成列舉型態如果你硬要 用的話啦!!

C裡面的Case才能用字串,Delphi硬要用就用列舉,但不好用,建議直接用 if (kind=xxx) then 這樣就好了,不過還是提供給你參考.    

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,TypInfo, StdCtrls;    type
  TMessage = (S1,S2,S3,S4);
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    function GetErrorMsg(AErrorCode: String): String;
var
 Msg : String;
begin
case TMessage(GetEnumValue(TypeInfo(TMessage),AErrorCode)) of
 S1:Msg:='1';
 S2:Msg:='2';
 S3:Msg:='3';
 S4:Msg:='4';
 else
  Msg := 'Not Defined';
 end;
 Result := Msg;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
showMessage(GetErrorMsg('S1'));
end;    end.

借花献佛，这里有关Case的文章,很精采： http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18531

感謝xxiaowang提供這篇文章,之前常在寫xml常常用的這方式,卻沒想到可以應用到這裡,整理使用範例如下. procedure TForm1.Button1Click(Sender: TObject); var List:TStringList; begin List:=TStringList.Create(); List.Add('a'); List.Add('b'); List.Add('c'); case List.IndexOf('b') of 0:ShowMessage('Msg1'); 1:ShowMessage('Msg2'); 2:ShowMessage('Msg3'); else ShowMessage('Not Defined'); end; end;

supman的方法感觉上是最实用的。