var a:integer;
begin
if a in [1,2,3] then
showmessage('ok');
end;

假設以上 1,2,3 的個數是變動的，可能會是1,2,3或者1,2,3,4，
當a是integer時，可以用in的方式去寫，
那如果現在a是string的話，要用什麼方法才可以達到跟in一樣的效果呢
如果a是string，它的值可以是 'AA','BB','CC','DD'.....個數不固定，
那要怎麼寫呢?

var a:string
begin
if a ...... then
showmessage('ok');
end;

//請用TStringList 的 IndexOf method
var
animals : TStringList; // Define our string list variable
i : Integer;
str1 : string;
begin
// Define a string list object, and point our variable at it
animals := TStringList.Create;
// Now add some names to our list
animals.Add('Cat');
animals.Add('Mouse');
animals.Add('Giraffe');
// Now display these animals
//for i := 0 to animals.Count-1 do
// ShowMessage(animals[i]);
ShowMessage(inttostr(animals.indexof('Cat')));
ShowMessage(inttostr(animals.indexof('Mouse')));
//indexof method
//Gets the index position of the first string matching the given string. Or -1 if not found
str1:='Giraffe';
if animals.IndexOf(str1) >=0 then
ShowMessage('Hello, str1 in the animals StringList.');
animals.Free
end;

Ref: http://www.delphibasics.co.uk/RTL.asp?Name=TStringList

------
What do we live for if not to make life less difficult for each other?

編輯記錄

上面的大大以經有把方法做出來，自已是測試實做..

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
VAR
w_if :TStringList;
w_i :INteger;
begin
w_if := TStringList.Create;
w_if.Add('AA');
w_if.Add('BB');
FOR w_i:=0 TO w_if.Count-1 DO
IF edit1.Text = w_if.Strings[w_i] THEN
showmessage('OK');
w_if.Free;
end;
[/code]

------
初學、初學、學了很久...還是在初學階段..Orz

編輯記錄

不好意思，我只是想問看看，有沒有一行就可以寫完的那種語法，
看來是沒有的樣子。
大大寫的也算是另一種方法啦，一樣謝謝嘍!!