aa:string ; MyArray : Array[0..20] of string ; if aa in MyArray then {此句的語法應該怎樣寫,我這樣的寫法肯定是錯誤的} begin end; 我的目的是只要 AA 屬于 MyArray 中的任何一個值即為 True ,哪位高手幫忙解決一下,我是初學者

另一種想法, 把 MyArray 改用 TStringList 來做 然後用 TStringList.IndexOf 來看有沒有符合的.    --- 每個人都是一本書

可以直接跑loop 來判斷嗎 for i = 0 to 20 then begin if MyArray[i] := aa bfind := true end;

Hi turboted : 用 Loop 确實可以解決這個問題,但沒有效率了,我外面是還有一個循環的 倒是 hagar 說得對,可我找不到這個控件呢,在哪里呢?我以前是見過的

uses Classes;    var sl: TStringList;
  i, idx: integer;
begin
  aa := '15';
  sl := TStringList.Create;
  try
    for i := 1 to 20 do
      sl.Add(IntToStr(i));
    idx := sl.IndexOf(aa);
    if idx = -1 then
      ShowMessage(aa + ' 不在裏面')
    else
      ShowMessage(aa + ' 在第 ' + IntToStr(idx+1) + ' 個);
  finally
    sl.Free;
  end;
end;

--- 每個人都是一本書

補充一下 一般來說 用 loop 的方法應比 TStringList 有效率，而且可合用於各種形態的數據。 但 TStringList 真的方便又多功能所以我也多數會用 TStringList 來處理類似的事，亦同意 hagar 版主建議使用 TStringList。 只是想說明 loop 並非效率轉差。