números em seguencia

Delphi

22/02/2015

ola pessoal tentando fazer um codigo mais nao esta dando certo preciso mostra uma tabela do bancos de dados que mostre os produtos, ate ai tudo bem mostra, mas que mostrar em seguencia tipo assim 000001,000002, tenho esse codigo ai em baixo mas ele mostra os produtos mas o ultimo produto ele mostra 5 vezes

var
x: integer

begin
query.close;
query.sql.clear;
query.sql.add('select * from produto');
query.open;

for x := 1 to 30 do

begin

for x := 1 to 30 do
begin

COD_ITEM := FormatFloat('000000', x);

end;

end;
end;
Leonardo Walter

Leonardo Walter

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

22/02/2015

Para formatar a exibição de um campo você pode definir a propriedade DisplayFormat do field como 000000, sem precisar fazer isso via código.
GOSTEI 0
POSTAR