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:
Código:
TAdoQuery1.Sql -> "Select * from Tabla";
Referencia := QuitarCerosIzquierda(Referencia);
TAdoQuery1.Filter -> (Referencia) = '134-580'