Eliminar zeros

[kambiz]

Casimiro, en mi primer post digo:
Lo que quiero es que con el siguiente select (uso un TAdoQuery), o sea,
en Delphi, tengo un TAdoQuery con las siguientes propiedades:
TAdoQuery1.Sql -> "Select * from Tabla"
TAdoQuery1.Filter -> Funcion(Referencia) = '134-580'

donde funcion sería la que me gustaría saber si existe, una que elimine los ceros de la izquierda en un string.

La base de datos que uso es Access

[Casimiro Notevi]

Aunque no exista una función que quite los ceros, puedes hacerlo tú, por ejemplo, algo simple como esto te puede valer:

Código Delphi [-]
function QuitarCerosIzquierda(cReferencia:string):string;
begin
  result := cReferencia;
  while result[1]='0' do
    result := copy(Result,2,length(Result));
end;

Y para usarlo:

Código Delphi [-]
TAdoQuery1.Sql -> "Select * from Tabla"[/i]
TAdoQuery1.Filter -> QuitarCerosIzquierda(Referencia) = '134-580'

No sé cómo funciona el filtro del adoquery, pero también puedes hacer algo así como:

TAdoQuery1.Sql -> "Select * from Tabla";
Referencia := QuitarCerosIzquierda(Referencia);
TAdoQuery1.Filter -> (Referencia) = '134-580'

[kambiz]

Buenas de nuevo Casimiro, jamás he utilizado una función en un filtro, pero si lo mencionas será porqué es posible.
Lo he probado y de momento me da error. Por la tarde insistiré y informaré del resultado.
Gracias