Essa é Facil + não Consigo - alguém Me Ajuda?

[Guest Mk Castro]

Olá Thurma do delphi, se alguém souber por favor me de uma dica nessa?

Trabalho com o banco de dados Interbase

Possuo uma tabela aonde tenho diversos dados já cadastrados nela, e preciso reaproveitar essa tabela, apenas com uma alteração que não consigo fazer ainda veja no ex abaixo :

minha tabela esta assim antes da alteração que preciso :

CAMPO_REG CAMPO_NOME CAMPO_DATA CAMPO_VALOR

1 MARIA AMELIA 01/01/2005 100,00

1 JORGE ARAGAO 01/01/2005 50,00

1 JOAO ALMEIDA 01/01/2005 205,00

1 MAGAL PINHEIRO 01/01/2005 15,00

1 SEVERINO DIAS 01/01/2005 300,00

1 MICHELLE SILVA 01/01/2005 450,00

1 MONICA SOUZA 01/01/2005 121,65

1 SILVANA RODRIGUES 01/01/2005 147,97

1 AMADEU CARDOSOS 01/01/2005 452,11

...

o campo_reg é o numero de registros de cada pessoa do campo_nome e todos os meus regsistros estao com o numero 1 cadastrados precisava muito de uma ideia aonde uma rotina qualquer, abrisse minha tabela e substituisse os registros e gravasse-os, sempre somando + 1 independente do tamanho da minha tabela e que minha tabela ficasse no final da rotina da seguinte forma abaixo :

CAMPO_REG CAMPO_NOME CAMPO_DATA CAMPO_VALOR

1 MARIA AMELIA 01/01/2005 100,00

2 JORGE ARAGAO 01/01/2005 50,00

3 JOAO ALMEIDA 01/01/2005 205,00

4 MAGAL PINHEIRO 01/01/2005 15,00

5 SEVERINO DIAS 01/01/2005 300,00

6 MICHELLE SILVA 01/01/2005 450,00

7 MONICA SOUZA 01/01/2005 121,65

8 SILVANA RODRIGUES 01/01/2005 147,97

9 AMADEU CARDOSOS 01/01/2005 452,11

...

se alguém souber essa, ou uma rotina que faça isso nesta tabela já pronta, me ajude? agradeço bastante e que Deus abençoe, em dobro. Um abracao maique Castro.

[Churc]

opa

de um loop na sua tabela, inicie uma variável do tipo integer, o valor inicial dela é 1, então pra cada campo que o loop passar, você passa o valor pra + 1 e joga no campo CAMPO_REG.

exemplo bem simples espero que compreenda

usei InttoStr pois não sei que tipo o campo CAMPO_REG é, no exemplo abaixo seria como texto

var

i: Integer;

begin

i := 1;

while not table1.eof do

begin

.....

table1.fieldbyname('CAMPO_REG').value := InttoStr(i);

i := i + 1;

end;

....

mais ou menos isso, não tem como eu testar aqui

qlq coisa posta ai que mais gente te ajuda também

abraços