各位先進您好，請幫忙看看錯在哪裡。 =============================================

procedure TINVOICE.SpeedButton1Click(Sender: TObject);
var
 INVO: string;
begin
if (All_Invoice.Text <>'All_Invoice') and (edit1.Text ='') Then
 showmessage('請輸入搜索條件');
 begin
  LJSJK.INVOICE.Active:=false;
  LJSJK.INVOICE.sql.Clear;
  INVO:='select * from [INVOICE] order by INID Desc';
  LJSJK.INVOICE.sql.Add(INVO);
  LJSJK.INVOICE.Active :=True;
begin
if (edit1.Text <>'') Then
showmessage('trim(edit1.Text)');        //******問題在這裡，信息反映的不是Edit1的內容，請問什麼原因？如何獲取Edit1的內容？
end;
end;
 end;
----------------------------------------

寫程序——新問題會接踵而來！

建議你查一下trim的help 如下 Trims leading and trailing spaces and control characters from a string. function Trim(const S: string): string; Description Trim removes leading and trailing spaces and control characters from the given string S. 回傳值是一個字串，所以你就showmessage中就不要再用單引號了 so 原來的 if (edit1.Text <>'') Then showmessage('trim(edit1.Text)'); 應改成 if (edit1.Text <>'') Then showmessage(trim(edit1.Text));

------
熊的學習 http://huwk.blogspot.com

謝謝！！問題解決了。    

引言: 建議你查一下trim的help 如下 Trims leading and trailing spaces and control characters from a string. function Trim(const S: string): string; Description Trim removes leading and trailing spaces and control characters from the given string S. 回傳值是一個字串，所以你就showmessage中就不要再用單引號了 so 原來的 if (edit1.Text <>'') Then showmessage('trim(edit1.Text)'); 應改成 if (edit1.Text <>'') Then showmessage(trim(edit1.Text));

寫程序——新問題會接踵而來！