Delphi-Quellcode:
function mittelwert(wert1;wert2:integer):real;
begin
wert1_edit:=strToInt(wert1_edit.text);
wert2_edit:=strToInt(wert2_edit.text);
mittelwert:=(wert1_edit+wert2_edit)/2;
mittelwert:=intToStr(ergebnis_panel.text);
end;
Funktioniert nicht oder?
wert1_edit ist ein TEdit (Eingabefeld) oder nicht?
Pass auf. Du musst folgendermaßen vorgehn.
1. Du schreibst direkt "Result" oder "Mittelwert" = (wert1+wert2) /2;
Damit gibt die Funktion den Mittelwert von zwei Zahlen aus die im Parameter angegeben wurden.
2. Du rufst die Funktion auf und zwar indem du dir zwei Variablen anlegst von Typ
Integer
3. Jetzt wandelst du den Inhalt des ersten Edits (Edit1.
Text) in eine Zahl um (
StrToInt) und schreibst diese in die erste Variable.
4. Das gleiche machst du mit dem zweiten Edit und der zweiten Variable.
5. Du übergibst diese beiden Zahlen als Parameter deiner Funktion.
6. Das Ergebnis gibst du z.B auf einem Label (Label.
Caption) aus indem du das Ergebnis in einen String umwandelst (
FloatToStr, weil das Ergebnis eine Kommazahl ist)
Gruß
Neutral General