Fórum funcao .. #188562

Pessoal eu fiz uma funcao q mosta o saldo de uma conta pq q quando coloco por exemplo :

label9.caption := MostraSdBancarioconta:string;sdbancario:string);

o Label9 fica em branco alguem pdoe de ajudar

************************************************************

function MostraSdBancario(conta:string;sdbancario:string):string; //
begin
try
dados.ADOConnection1.Connected := true;
dados.ADOConnection1.BeginTrans;
dados.Tbl_conta.open;

if not dados.Tbl_conta.Locate(´conta´,conta,[]) then
begin
Application.MessageBox( ´Não foi possível localizar o saldo!´,´CFI - Controle Financeiro integrado´, MB_ICONEXCLAMATION + MB_OK );
abort;
end
else
sdbancario := CurrToStr(dados.Tbl_contasdBancario.Value);


dados.Tbl_conta.Close;
dados.ADOConnection1.CommitTrans;
except on EDatabaseError do
begin
dados.ADOConnection1.RollbackTrans;
DADOS.Tbl_conta.Close;
Application.MessageBox( ´Ocorreu um erro ao vizualizar saldos bancários !´,´CFI - Controle Financeiro integrado´, MB_ICONEXCLAMATION + MB_OK );
dados.ADOConnection1.Connected := false;
end;
end;
end;
end.