Auto Incremento sem base de dados
Eu gostaria de saber se algum de vocês sabe uma maneira de fazer um código de autoincremento simples, que não use base de dados. Eu tentei de várias maneiras, mas só aparece o resultado final, quando uso repeat, por exemplo, e não os resultados intermediários.
Estou usando inc(variavel).
Alguém tem uma idéia de onde estou errando?
Acho que é algo simples, mas não consigo fazer.
Desde já, muito grato.
Estou usando inc(variavel).
Alguém tem uma idéia de onde estou errando?
Acho que é algo simples, mas não consigo fazer.
Desde já, muito grato.
Jonpline
Curtidas 0
Respostas
Andersonpgsql
31/12/2006
bom amigo...vc poderia postar seu código pra poder ser analizado??
assim poderie ajudar melhor...
Anderson
assim poderie ajudar melhor...
Anderson
GOSTEI 0
Aroldo Zanela
31/12/2006
Colega,
Fiz um exemplo usando repeat...until
mmo1 = Componente Memo (Classe TMemo).
Fiz um exemplo usando repeat...until
var Incremento: Integer;
begin
Incremento:= 0;
repeat
Inc(Incremento);
mmo1.Lines.Add(IntToStr(Incremento));
until Incremento >= 10000
end;mmo1 = Componente Memo (Classe TMemo).
GOSTEI 0
Brunolspp
31/12/2006
Salve Galera!!!
Na Revista ClubeDelphi eu fiz um artigo não sei em q numero, que mostra como gerar numeros únicos independente de bano de dados.
Eu uso um metodo de gerar esse valores unicos de forma totalmente segura e sem variação de erro de duplicação para o chamadas diferentes da função.
Este exemplo tb se encontra no meu link de downloads no code central, basta baixar o exemplo da BorCon deste ano e procurar no servidor a função RetornaID, o seu uso esta na apliocação cliente, procure pela mesma função tb.
Estou dizendo isso pq ela pode ser adaptada para usar sem banco de dados, por exemplo usando um arquivo binario no ClientDataSet, ao inves de acewssar o banco onde guarda os valores acessaum arquivo binario do ClientDataSet e o utiliza para armazenar os valores. Com certeza vai funcionar da mesma forma, só cuida da proteção do arequivo para o acesso ser simu.ltaneo, por exemplo, quando a função chamar, renomeie o arquivo e so nomeio de volta qdo tewrminar, e se nesse meio tempo alguma outra função chamar e perceber o nome renomeado, este esperara um tempo determinado no timer ate fazer a outra chamada.
O link de downloads é este:
http://cc.codegear.com/Author/795118
Abração
Na Revista ClubeDelphi eu fiz um artigo não sei em q numero, que mostra como gerar numeros únicos independente de bano de dados.
Eu uso um metodo de gerar esse valores unicos de forma totalmente segura e sem variação de erro de duplicação para o chamadas diferentes da função.
Este exemplo tb se encontra no meu link de downloads no code central, basta baixar o exemplo da BorCon deste ano e procurar no servidor a função RetornaID, o seu uso esta na apliocação cliente, procure pela mesma função tb.
Estou dizendo isso pq ela pode ser adaptada para usar sem banco de dados, por exemplo usando um arquivo binario no ClientDataSet, ao inves de acewssar o banco onde guarda os valores acessaum arquivo binario do ClientDataSet e o utiliza para armazenar os valores. Com certeza vai funcionar da mesma forma, só cuida da proteção do arequivo para o acesso ser simu.ltaneo, por exemplo, quando a função chamar, renomeie o arquivo e so nomeio de volta qdo tewrminar, e se nesse meio tempo alguma outra função chamar e perceber o nome renomeado, este esperara um tempo determinado no timer ate fazer a outra chamada.
O link de downloads é este:
http://cc.codegear.com/Author/795118
Abração
GOSTEI 0