Fórum Gerar Código (ultimo 1) #280123

Olá pessoal..

Preciso q vc´s me ajudem a resolver essa função, ou me sugiram outra. A função é a seguinte:
-----------------------------------------------------------------------------
Function TDmBaseDados.GERA_NUM2(tabela:TIBTable;campo:string):string;
var {Novo_Num,}N:string ;
{Tamanho,}x:Integer;
begin
tabela.Last;
if tabela.RecordCount=0 then
begin
X:=tabela.FieldByName(Campo).AsInteger;
x:=0+1;
N:=inttostr(x);
GERA_NUM2:=N;
end
else
begin
X:=tabela.FieldByName(Campo).AsInteger;
x:=X+1;
N:=inttostr(x);
GERA_NUM2:=N;
end;
End;
-------------------------------------------------------------------------------
soh q qndo é o primeiro código, ela dah erro de ´´ is not valid integer value...

Conto com vc´s.
Valew.