Hola Jose.
Cita:
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