Problemas para crear una funcion

[fartycl]

Lo que pasa es que al declarar la funcion me tira un error


Function Ptotal(cuenta:Integer):String;


esta es la funcion


Function Ptotal(cuenta:Integer):String;
var a:integer;
cTotal:String;
begin
cTotal:='0';
If Fvta.SqlTemp.RecordCount <> 0 then
Fvta.SqlTemp.First;
For a:=1 to Fvta.SqlTemp.RecordCount do
begin
Ctotal:= IntToStr(StrToInt(Ctotal)+StrToInt(Fvta.sqltemp.FieldByName('importe').AsString));
Fvta.SqlTemp.Next;
end;
Result :=ctotal;
end;


y este es el error: Unsatisfied forward or esternal declaration: 'TFVTA.Ptotal'

Fvta es el nombre de mi formulario

bien si me pueden ayudar seria grandioso

[seoane]

Dejame adivinar, declaraste la funcion dentro de la declaracion del formulario FVTA, por lo que en la implementacion deberias haber puesto esto:


Function TFTVA.Ptotal(cuenta:Integer):String;
var a:integer;
cTotal:String;
begin
cTotal:='0';
If Fvta.SqlTemp.RecordCount <> 0 then
Fvta.SqlTemp.First;
For a:=1 to Fvta.SqlTemp.RecordCount do
begin
Ctotal:= IntToStr(StrToInt(Ctotal)+StrToInt(Fvta.sqltemp.FieldByName('importe').AsString));
Fvta.SqlTemp.Next;
end;
Result :=ctotal;
end;


otra solucion es dejarla como esta pero sacar la declaracion de dentro de la declaracion del formulario. :) Espero haberme explicado