procedure TForm1.Button1Click(Sender: TObject);
var
  SL : TStrings;
  I : Integer;
  SQLCommand : String;
  LikeCommand : String;
begin
  SL := TStringList.Create;
  SL.Delimiter := ';';
  SL.DelimitedText := Edit1.Text;
  SQLCommand := 'SELECT * FROM YOURTABLE WHERE 1 = 1';
  LikeCommand := '';
  For I := 0 to SL.Count - 1 do
    begin
      if LikeCommand = '' then
        LikeCommand := ' AND (USERNAME LIKE '   Quotedstr('%'    SL.Strings[I]   '%')
      else
        LikeCommand := LikeCommand   ' OR USERNAME LIKE '   Quotedstr('%'    SL.Strings[I]   '%');
    end;
  IF LikeCommand <> '' THEN
    LikeCommand := LikeCommand   ')';
  SL.Free;
  Query1.SQL.Clear;
  Query1.SQL.Add(SQLCommand   LikeCommand);
  Query1.Open;
end;

引言: 請問各位先進: 我現在有一個查詢的輸入欄位(edit),想要在其中輸入多個值來作為查詢條件,範例如下 edit1.text:='A;B;C'==>使用';'來當作分隔的符號(請問我要如何拆字) sql=>(username like %A% or username like %B% or username like %C%) 請問我要如何做到 謝謝

function TForm1.getData(Var myS:string): string;
     var nowpos: integer;
         posstr, linedata: string;
begin
     linedata:= myS;
     nowpos:= Pos(';',linedata);
     if nowpos > 0 then begin
        posstr:= copy(linedata,1,nowpos-1);
        myS:= trim(copy(linedata,nowpos 1,length(linedata)));
     end
     else myS:= '';
     result:= posstr;
end;    procedure TForm1.Button1Click(sender: TObject);
      var myS: string;
          getWord: string;
begin
    myS:= Edit1.Text;  // 此法的Text值必須為'A;B;C;'
    while trim(myS)<>'' do begin
       getWord:= Form1.getData(myS);  -->可以依序取出A,B,C三值
    end;    
end;