Unterprogramme in Delphi 7 Felder ansprechen

[Chillkröte]

du solltest dir die grundlagen von delphi angucken
themen bezogen vor allem prozeduren und funktionen

[snboy2010]

Ok. Jetzt bin ich etwas weiter. Das Programm startet jetzt es wird aber immer ein komplett falscher Wert berechnet. So sieht es jetzt aus:

Delphi-Quellcode:

procedure VerbrauchBGes(var verb, jahrk : real);
  var verbj: real;
   begin
      verbj := verb * jahrk;
end;

procedure TForm1.Button1Click(Sender: TObject);
var verb, jahrk, verbj: real;
begin
    verb := StrToFloat(Edit3.Text);
    jahrk := StrToFloat(Edit4.Text);
    VerbrauchBGes(verb, jahrk);

    Panel1.Caption := FloatToStr(verbj);

end;

Wo habe ich jetzt meinen Fehler?

[Chillkröte]

guckt dir mal funktionen an

[Chemiker]

Hallo snboy2010,

Delphi-Quellcode:

procedure VerbrauchBGes(var verb, jahrk : real);
var verbj: real;
begin
  verbj := verb * jahrk;
end;

diese Procedure ist sinnlos. Verbj ist eine lokale Variable!

Bis bald Chemiker

[mkinzler]

Mach eine Funktion draus:

Delphi-Quellcode:

function VerbrauchBGes(var verb, jahrk : real): real;
begin
      result := verb * jahrk;
end;

procedure TForm1.Button1Click(Sender: TObject);
var verb, jahrk, verbj: real;
begin
    verb := StrToFloat(Edit3.Text);
    jahrk := StrToFloat(Edit4.Text);
    verbj := VerbrauchBGes(verb, jahrk);

    Panel1.Caption := FloatToStr(verbj);
end;

[DeddyH]

Wieso als Var-Parameter?

[mkinzler]

Ich hab seinen Code nur kopiert und darauf nicht geachtet

[DeddyH]

Kein Thema, das kann jedem mal passieren