Problem mit einfügen einer function in procedure

[wolfaa]

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

[Sir Rufo]

Ja, bitte benutze die Delphi-Tags für den Quelltext

Ansonsten würde ich dir als Anfänger ein Grundlagen Tutorial empfehlen.

Das was ich bisher sehe ist doch sehr konfus

Erklär mal, was du mit der Klasse genau erreichen möchtest.