Formatar variavel

[LHR 0]

Olá pessoal,

 

Pra variar um pouquinho, estou eu aqui recorrendo à vocês para mais uma duvida.

Bom, estou com o seguinte problema atualmente:

-Possou um Edit que será digitado o valor: 0000#### (onde # são numeros, como exemplo: 3055)

E eu preciso pegar esse valor e somar outros valores nele.

Porem quando transformo esse valor de string para integer, ele retira os zeros e deixa apenas o 3055.

 

Gostaria de saber uma forma para que os zeros continuassem.

Alguem saberia me ajudar?

 

 

Obrigado pela atenção de todos.

Até mais!

[Rodrigo Miss 1]

Poderia fazer uma função assim:

function TForm1.string_format(const S: string; len: Smallint): string;
begin
  Result:= StringOfChar('0', len - Length(S)) + S;
end;

Edit2.Text:= string_format(Edit1.Text, 4);

[LHR 0]

Então cara, acho que até serviria...

Mas o problema é que nao será pra sempre essa regra de que os 4 primeiros serao zeros, e os outros 4 numeros.

É um valor que cresce todos os dias.

Assim entao em breve ja serão apenas 3 zeros, e 5 numeros, entende?

Nao consigo imaginar nenhuma forma de fazer isso =(

Pensei que o MaskedEdit talvez pudesse funcionar, mas ele usa a propriedade TEXT tambem. Entao eu tenho de converter da mesma forma o valor para Integer por exemplo, para soma-lo =/

 

Bom, vlw pela ajuda desde já.

 

 

Abraço e até mais!!!

[Rodrigo Miss 1]

Mais kra, experimente colocar em pratica minha função... Tenho certeza q ela vai lhe ajudar ....

ela vai formatar um nro de acordo com o parametro len que você passar na funcao ....

faça um teste aew

[LHR 0]

Consegui aqui cara!

Vendo +/- sua idéia, e pesquisando, acabei encontrando uma função, que acabo se encaixando certinho no meu programa.

Ficou assim:

 

Label1.Caption := Format('%.*d', [8, cindex]);

Bom, vlwzão pela ajuda.

Abraço!

 

Até mais ;)