algo parecido a findnearest

[ecfisa]

Hola martita.

Podés usar la condición LIKE y parametrizar la consulta:

Código Delphi [-]
function QueryNearest(AQuery: TIBQuery; Tabla, Campo: string; Dato: Variant): Boolean;
begin
  AQuery.Close;
  AQuery.SQL.Clear;
  AQuery.SQL.Add('SELECT * FROM '+Tabla);
  AQuery.SQL.Add('WHERE '+Campo+' LIKE :DATO || ''%''');
  AQuery.ParamByName('DATO').Value:= Dato;
  AQuery.Open;
  Result:= not AQuery.IsEmpty;
end;

Si usas BDE basta con cambiar el tipo TIBQuery del parámetro AQuery por el tipo TQuery.

Saludos.