Buscar

Código Automático

Código

variáveis:
sCodigo: String
iCodigo: integer

DM.tbClien.Last;
sCodigo:=DM.tbClien.FieldByName('Codigo').AsString;
iCodigo:=StrToInt(sCodigo);
Inc(iCodigo);
sCodigo:=IntToStr(iCodigo);
sCodigo:=formatfloat('0000',StrToint(sCodigo));
 

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%

Detalhes da dica

Categoria: Componentes
Adicionada dia: 15/05/10
Por: Allan
Visualizada: 3836 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009