En este caso lo recomedable para ti es que si deseas que el valor a grabar en el campo de datos sea
llenado con zeros a la izq, y en su caso cuando recuperes esa informacion pues lo llenes con alguna
funcion escrita por ti..
ejemplo:
Código Delphi
[-]
FUNCTiON STRZERO(nValor,nLong:INteger):String;
Var
cCadena:String;
nZeros:INteger;
begin
cCadena := TrimRight(InttoStr(nValor));
cCadena := StringOfChar('0',(nLong-length(cCadena))) + cCadena;
result := cCadena;
end;
: Insertando el Valor
cValor := strzero(500,10);
cSql := 'INSERT INTO mtabla (campo,campo....) VALUES ('+qUOTEDsTR(cValor)+','......);
: Obteniendo el Valor de un SELECT
SELECT campo.... FROM mtabla ...
cCampo := StrZero(qryTabla['campo'],10);
Y/O En su caso tendrias que crear un UDF con dicha funcion y asi la podrias integrar a tus consultas cuando
lo requieras de esa forma para cualquier valor numerico..
SELECT STRZERO(campo,10),campo2...... FROM mtabla ...
Saludos..