[Resolvido] retirar zero de uma string

[kklj 0]

pessoal tenho uma string de numeros, e keria retirar os 0(zeros) iniciais dessa string, como faco isso?

 

exemplo

a string esta assim: "0000001220201" queria retirar somente os zeros da frente dela, o resto ficar.

 

obrigado

[marcos moreno 0]

e ai kklj

aki vai um codigo pra você retira os zeros iniciais

nao vo entrar em detalhes mas ta funcionando é so coloca um edit e um botao no form e adicionar esse codigo no botao

procedure TForm1.Button1Click(Sender: TObject);

var

s : String;

begin

s := Edit1.Text;

 

while s[1] = '0' do

delete(s,1,1);

 

 

Edit1.Text := s;

end;

 

falo

[kklj 0]

po amigo simples e funcional... eu nao entendi o parametro do while...

 

obrigado

[Jerfs 1]

po amigo simples e funcional... eu nao entendi o parametro do while...

 

obrigado

 

Vou tentar explicar...

 

while s[1] = '0' do //enquanto a primeira letra da variável s for igual a 0

delete(s,1,1); //apague 1 letra a partir da 1ª letra.

 

Acho que tá entendível né!? rs

[kklj 0]

amigo, mas claro impossivel, rsrs. valeu mesmo.

 

obrigado