Eliminar zeros

[Casimiro Noteví]

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