hey
die procedure soll ja auf die funktion zugreifen also in der funktion wird dann a ausgerechet.
hier mal bis zu dem problem ein auszug:
vielleicht hilfts ja:/
unit UEigeneGasrechner;
interface
type
TGaskosten = class
erdgas, stadtgas: real;
function erdgaspreisberechnen(a: real): real;
function stadtgaspreisberechnen(b: real): real;
procedure seterdgas(a: real);
procedure setstadtgas(b: real);
procedure erdgaschecked;
procedure stadtgaschecked;
end;
implementation
procedure TGaskosten.seterdgas(a: real);
begin
erdgas:= a;
end;
procedure TGaskosten.setstadtgas(b: real);
begin
stadtgas:= b;
end;
procedure TGaskosten.erdgaschecked;
var a: real;
begin
a:=erdgaspreisberechnen(a : real): real;
end;
achso und ich bin blutiger anfänger also wenn ihr noch mehr verbesserungsvorschläge habt raus damit
