Como usar essa Fun��o ?

Question

Tenho Edt s
Como posso usalos para calcular valor percentual com esso fun�ao ??
Alguem pode me explicar ?

function Gerapercentual(valor:real;Percent:Real):real;
begin
percent := percent / 100;
try
valor := valor * Percent;
finally
result := valor;
end;
end;

Delphiinciante · Answer

[quote:2a37f22cc9=�DelphiInciante�]Tenho Edt s Como posso usalos para calcular valor percentual com esso fun�ao  ??Alguem pode me explicar ?function Gerapercentual(valor:real;Percent:Real):real;beginpercent := percent / 100;try  valor := valor * Percent;finally  result := valor;end;end;[/quote:2a37f22cc9]Bom Tenho uma uma Turma com 30 alunos queria calcular o valor percentual sobre os aluno de perdeu media no bimestre Exemplo   30 Alunos numa Turma, 10 Perderam media como eu faco para usar essa funcao ???/?...

Rebel_inside · Answer

[quote:ee89ed413f=�DelphiInciante�]Tenho Edt s Como posso usalos para calcular valor percentual com esso fun�ao  ??Alguem pode me explicar ?function Gerapercentual(valor:real;Percent:Real):real;beginpercent := percent / 100;try  valor := valor * Percent;finally  result := valor;end;end;[/quote:ee89ed413f]Bom, primeiro vc podia fazer esta fun��o desta maneira:function GeraPercentual(Valor, Percent: Real): Real;begin  Result:= (Valor*(Percent/100));end;E em segundo, n�o sei se foi o que vc qria escrever com �Edt s�, mas acho que seria TEdit�s, ent�o fa�a o seguinte:[code:1:ee89ed413f]procedure TForm1.Button1Click(Sender: TObject);begin  Edit1.Text:= FloatToStr(GeraPercentual(StrToFloatDef(edit2.Text, 0), StrToFloatDef(edit3.Text, 0)));end;[/code:1:ee89ed413f]explica��o:Voc� teria um Form com 3 Edits (Edit1, Edit2, Edit3) e 1 bot�o.O [b:ee89ed413f]Edit1[/b:ee89ed413f] exibiria o resultado da fun��o;O [b:ee89ed413f]Edit2[/b:ee89ed413f] conteria o valor e,O [b:ee89ed413f]Edit3[/b:ee89ed413f] conteria a porcetagem (no formato de 0 a 100)O [b:ee89ed413f]Button1[/b:ee89ed413f], quando clicado, calcularia a f�rmula...