Reitarar os zeros a esquerda dos códigos ?

Delphi

16/10/2003

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!.


Essistemas

Essistemas

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

16/10/2003

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.


GOSTEI 0
Rafaelgm

Rafaelgm

16/10/2003

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


GOSTEI 0
POSTAR