Reitarar os zeros a esquerda dos c�digos ?

Question

Pessoal eu preciso retirar de uma tabela todos o zeros
dos codigos que est�o a esquerda !.
exemplo 0001 0002, s� que a quantidade de c�digo varia de acordo com o c�digo
que vai at� 4Mil Registro !.

Obrigado a tds!.

Marcio.theis · Answer

fa�a um procedimento que varre a sua vari�vel verificando, quando achar um n� diferente de 0 come�a a copiar, deve come�ar a varrer da esquerda para a direita....

Rafaelgm · Answer

Deixa eu ver se entendi: existe um campo CODIGO, que � uma string, numa tabela, onde os c�digos variam entre 0000 e 4000. Voc� quer remover os zeros excedentes. Acho que isso resolve:

with Table1 do
begin
  First;
  while not Eof do
  begin
    Edit;
    FieldByName(�CODIGO�).AsString := 
      IntToStr(StrToInt(FieldByName(�CODIGO�).AsString));
    Post;
    Next;
  end;
end;

Boa sorte!

Rafael Monteiro

F�rum Reitarar os zeros a esquerda dos c�digos ? #188979