Var
  FindResult: Variant;
  //宣告一個名為FindResult的Variant型態變數
  //此變數的作用是存放Locate查詢后回傳欄位的值
begin
  FindResult := Query1.Locate('欄位名1; 欄位名2'), VarArrayOf([Edit1.Text, Edit2.Text]), '回傳欄位名1; 回傳欄位名2', [loCaseInsensitive]);
  //進行Locate查詢﹐查詢條件為﹕'欄位名1=Edit1.Text'和
  //'欄位名2=Edit2.Text'﹐如果有查詢到相關的資料﹐就將其
  //回傳欄位名所對應的值賦給FindResult變數
  //[loCaseInsensitive, loPartialkey]的使用方法相同普通的Locate查詢
  //回傳欄位名即是資料表中的欄位名﹐只有注明回傳欄位名的欄位
  //才會將欄位值賦給FindResult變數
  if Not VarIsNull(FindResult) then
    ShowMessage('找不到資料!');
  //如果FindResult孌數中沒有任何的回傳欄位值﹐即說明沒有找到
  //對應的資料﹒
end;

Var
  Str1, Str2: String;
begin
  Str1 := VarToStr(FindResult[0]);
  //此即為上述程式碼中提到的回傳欄位名1所對應的值
  Str2 := VarToStr(FindResult[1]);
  //此即為上述程式碼中提到的回傳欄位名2所對應的值
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

引言: 恩… 我設了，但還是不行唷.. < face="Verdana, Arial, Helvetica"> 您好﹗ 這樣的形容很難判斷問題所在﹐貼上程式碼部分來看看吧﹒ ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================