Zitat von
lena:
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;
ist das so richtig?
Wenn du die funktion so aufbaust:
function mittelwert(wert1;wert2:integer):real;
Muss du die übergebenen Werte schon bei der Übergabe an die Funktion in integer umwandeln, denn dieser Typ wird von der Funktion erwartet.
Zum Bsp: im OnClick eines Buttons:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var wert:real;
begin
wert:=mittelwert(strtoint(edit1.text),strtoint(edit2.text));
// hier den wert dann noch wieder in string umwandeln und entsprechen dahin schriebn wo du ihn haben möchtest
end;
[edit=alcaeus]Delphi-Tags eingefuegt. Mfg, alcaeus[/edit]