Como utilizar campo do tipo Inteiro
Olá pessoal, tenho a seguinte duvida:
Define um campo chave Codcli como inteiro, a cada nova inserção tenho que definir Codcli:= Codcli+1 ...............?????????????
ou estou viajando?
Mesma coisa qdo vou excluir Codcli:= Codcli-1......??????????
Ou seja por exemplo tenho cliente 1,2,3 se eu exluir o 2 como faço para que o proximo cadastro ocupe a posição 2 ao invés da 4 posição?
OBS: Não quero utilizar autoincremento!
Define um campo chave Codcli como inteiro, a cada nova inserção tenho que definir Codcli:= Codcli+1 ...............?????????????
ou estou viajando?
Mesma coisa qdo vou excluir Codcli:= Codcli-1......??????????
Ou seja por exemplo tenho cliente 1,2,3 se eu exluir o 2 como faço para que o proximo cadastro ocupe a posição 2 ao invés da 4 posição?
OBS: Não quero utilizar autoincremento!
Rmeneghel
Curtidas 0
Respostas
Marlon Spiess
03/10/2003
Olá, vc pode montar uma pqna rotina q le apartir do 1 até o fim.
Ex.:
var
cod :integer;
begin
tabela.first;
cod := 1;
while not tabela.eof do
begin
if tabelaCodigo.value <> cod then
exit;
cod := cod + 1;
tabela.next;
end;
tabela.insert;
tabelaCodigo := cod;
end;
isso é um simples exemplo, mas é um caminho.
Boa sorte
Ex.:
var
cod :integer;
begin
tabela.first;
cod := 1;
while not tabela.eof do
begin
if tabelaCodigo.value <> cod then
exit;
cod := cod + 1;
tabela.next;
end;
tabela.insert;
tabelaCodigo := cod;
end;
isso é um simples exemplo, mas é um caminho.
Boa sorte
GOSTEI 0