Optimierung einer SQL-Abfrage

[DeddyH]

Hab mal was gebastelt:

Delphi-Quellcode:

function SeekSQL(const sNumber: string; MinLength: integer = 1): string;
var i: integer;
    sl: TStringList;
begin
  Result := '';
  sl := TStringList.Create;
  try
    for i := Length(sNumber) downto MinLength do
      sl.Add(QuotedStr(Copy(sNumber,1,i)));
    Result := sl.CommaText;
  finally
    sl.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const sSQL = 'SELECT * FROM Tabelle WHERE Suchfeld IN (%s)';
begin
  ShowMessage(Format(sSQL,[SeekSQL('08154711059',4)]));
end;