SQL con parametros Delphi 7

[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