Função, estou com problemas...
Pessoal fiz uma função assim
assim eu prototipei ela na PUBLIC mas ele esta dando erro
O erro que mostra é ´Unsatisfied forward or external declaration:´TfmPagamentos.calcula_prod´´
Oque que sera o erro Agradeço muito a atenção....
FUNCTION calcula_prod(var prod: char; var safra: String;
var produto_prod: String): Real;
begin
DTmodule.QrAuxiliar.Close;
DTmodule.QrAuxiliar.SQL.Clear;
DTmodule.QrAuxiliar.SQL.Add(´Select SUM(Preco_comp) as Preco from Compra where Tipo_prod_comp = :cond1 and paga_comp=´V´ and safra_comp= :cond2 and prod_safra_comp= :cond3´);
DTmodule.QrAuxiliar.Params[0].AsString:= prod;
DTmodule.QrAuxiliar.Params[1].AsString:= safra;
DTmodule.QrAuxiliar.Params[2].AsString:= produto_prod;
DTmodule.QrAuxiliar.Open;
Result:=(Dtmodule.QrAuxiliar.FieldByName(´Preco´).AsFloat);
end;
assim eu prototipei ela na PUBLIC mas ele esta dando erro
O erro que mostra é ´Unsatisfied forward or external declaration:´TfmPagamentos.calcula_prod´´
Oque que sera o erro Agradeço muito a atenção....
Japa
Curtidas 0
Respostas
Rômulo Barros
16/08/2003
Adicione na seção IMPLEMETATION :
forward FUNCTION calcula_prod(var prod: char; var safra: String;
var produto_prod: String): Real;
forward FUNCTION calcula_prod(var prod: char; var safra: String;
var produto_prod: String): Real;
GOSTEI 0
Japa
16/08/2003
obrigado amigo vou tentar aqui e eu falo a resposta :wink:
GOSTEI 0
E_gama
16/08/2003
Se ela está na sessão Public do Form, então declare-a assim;
function TfmPagamentos.calcula_prod( ... )
begin
...
end;
function TfmPagamentos.calcula_prod( ... )
begin
...
end;
GOSTEI 0