bueno quiza ya fue respondida la pregunta....
pero aqui les envio lo que yo hago
Código Delphi
[-]
function Llenar(strValue: String; intNewWidth: Integer): String;
var intOldWidth, I: Integer;
begin
try
strValue := Trim (StrValue);
if strValue = '' then
strValue := '0';
if StrToInt(strValue) < 0 then
strValue := '0';
except
on EConvertError do strValue := '0';
end;
intOldWidth := Length(strValue);
if intOldWidth < intNewWidth then
for I := 1 to intNewWidth - intOldWidth do
strValue := '0' + strValue;
Result := strValue;
end;
para llamarlo
Código Delphi
[-]
edtNumIngreso.Text := Llenar(edtNumIngreso.Text, 11);