ActiveDelphi

[gbt]

Ola Pessoal! Tenho um edit que preciso preencher com um limite de 50 digitos, porém em alguns casos vou precisar preencher com zeros a esquerda pra completar esse quantidade. Como faço isso? Ex: posso digitar em alguma situações 8 numeros e vou precisar que seja preenchido o restante com zeros a esquerda.

[johnny-walker]

Tente assim:

[gbt]

Muito Obrigado Jhnny! Deu certo.....

[johnny-walker]

Disponha amigo.

Foi meio na gambi, mas funciona...



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[abagattini]

function StrZero(Numero: Real; Tamanho: Integer): String;
var
sNumero, Retorno: String;
Cont: Integer;
begin
sNumero := FloatToStr(Numero);
Retorno := EmptyStr;
for Cont := (Length(sNumero)) to Tamanho - 1 do
Retorno := Retorno + '0';
Retorno := Retorno + sNumero;
StrZero := Retorno;
end;

[abagattini]

a minha também foi gambiara.