Bitte wie
Delphi-Quellcode:
function fla(var a1,a2,a3:real):string;
var sf,s:real;
begin
sf:=a1+a2+a3;
s:=sf/2;
sf:=sqrt(s*(s-a1)*(s-a2)*(s-a3));
end;
so?
Wenn ich das dann so aufrufe
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c :real;
begin
a:=StrToFloat(Edit1.Text );
b:=StrToFloat(Edit2.Text );
c:=StrToFloat(Edit3.Text );
edit4.Text :=fla(a,b,c);
erscheint nix... ich weiss nicht wieso.
Aber ich will das mit der Prozedure auch mal versuchen, aber wie geht daS? ^^