var a,b:string; begin   b:='like';   a:='%'+'H'+'%';   Query1.Close;   Query1.SQL.Text:='select * from mhsodmas where sailing='+QuotedStr(Edit1.Text)+' and sorder_id ' + b + a  ;   Query1.ExecSQL;   ShowMessage(Query1.SQL.Text);   Query1.Active:=true;

您要的類似這樣試著改改看ㄅ with query1 do begin close; sql.Clear; ttstr:='select * from animals where NAME LIKE ' '''A%'''; sql.Add(ttstr); open; end; 還有個問題 您的程式 Query1.ExecSQL;--> 這行是使用於update 或是 delete 依您的程式碼應該無需用到 Query1.open; OR query1.Active:=true;-->用於select 人心惟微，道心惟危，惟精唯一，允執厥中。 剛剛開始學習的新人 發表人 - lesae 於 2005/01/04 11:15:17

謝謝lesae回答  請問 >

'''A%'''<----關鍵在這裡.. 謝謝lesae指教 Query1.Close; Query1.SQL.Text:='select * from mhsodmas where sailing=' QuotedStr(Edit1.Text) ' and sorder_id like ' '''H%''' ; Query1.Open; ShowMessage(Query1.SQL.Text);