SQL con parametros Delphi 7

[Jose Carlos Rey]

Hola que tal, gracias por su atencion y apoyo.
Ecfisa estuve leyendo la informacion de las funciones que mencionas TrimLeft, Trim y TrimRight y me parece que no me ayudan para lo que estoy haciendo.
El campo donde se busca el dato dice que es TEXTO de 10 caracteres. en el Edit1 yo ingreso cualquier numero digase numero de cliente, suspcriptor, empleado, etc. los cuales pueden ser desde 1 - 9999. Hasta aqui no hay problema pero si ingreso tales caracteres simple y sencillamente la consulta no me arroja informacion en el DBGrid. para esto tengo que ingresar (barra espaciadora) espacio, espacio, espacio, espacio, espacio, espacio y 114 por ejemplo para buscar la informacion del registro que tiene ese ID. Las funciones que me comentas sirven para recortar o remover los espacion de la cadena que se ingresa, pero para busqueda se requiere esta cadena a 10 caracteres numericos. Aqui la cuestion seria que alguna funcion ingrese por el usuario los espacios faltantes para completar la cadena de 10 caracteres o digitos. Tomando en cuenta que si el numero a buscar es 9997 por ejemplo tendria que completar con espacio, espacio, espacio, (seis veces) y el numero 997, con esto ya tendria dicha cadena. ' 9997' y lograr la busqueda
Espero haberme hecho entender.
Gracias nuevamente .

[ecfisa]

Hola Jose.

Empezado por Jose Carlos Rey

...
Aqui la cuestion seria que alguna funcion ingrese por el usuario los espacios faltantes para completar la cadena de 10 caracteres o digitos. Tomando en cuenta que si el numero a buscar es 9997 por ejemplo tendria que completar con espacio, espacio, espacio, (seis veces) y el numero 997, con esto ya tendria dicha cadena. ' 9997' y lograr la busqueda
Espero haberme hecho entender.

Entiendo, lo que buscas no es restaurar la cadena a su estado original sino agregarle la cantidad de espacios necesarias para que tenga una longitud de 10 caracteres.

Código Delphi [-]
function FillLeftSpc(const Str: string; const SpcNo: Integer): string;
begin
  Result:= StringOfChar(' ', SpcNo-Length(Str)) + Str;
end;

Ejemplo de uso:

Código Delphi [-]
  Edit1.Text:= FillLeftSpc(Edit1.Text, 10);

Aunque no entiendo el por que de ese requisito previo para que se presenten los resultados de la consulta...


Saludos