若須一直Select資料庫,可採用TVirtualTable

1.SELECT所有資料至VT5
2.

    VT5.DisableControls;
    VT5.First;

    While not VT5.Eof do
    begin
      if Pos(SearchName,UpperCaseEx(VT5.FieldValues['swname']))<>0 then
      begin

        //FieldValues['swid']:=VT5.FieldValues['swid'];
        //FieldValues['swname']:=VT5.FieldValues['swname'];
        //FieldValues['swver']:=VT5.FieldValues['swver'];
        //FieldValues['snum']:=VT5.FieldValues['num'];

        VT5.Delete;
        Break;
      end else
        VT5.next;
    end;
    VT5.First;
    VT5.EnableControls;