hallo,
ich versuche mal eine Function zu schreiben aber ich kriege noch einige fehler. so sieht mein Code aus:
Delphi-Quellcode:
public
{ Public declarations }
function ergebnis(edt:TEdit; a, b, c, d, e: integer):integer;
end;
......................................................................
function ergebnis(edt:TEdit; a, b, c, d, e: integer):integer;
begin
a:= StrToInt(Edit1.Text);
b:= StrtoInt(Edit3.Text);
c:= StrToInt(Edit4.Text);
d:= a + b + c;
Edit5.Text:= IntToStr(d);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
result: integer;
begin
result:= ergbnis();
end;
Ich möchte in der Function die Werte von Edit1,Edit3 und Edit4 addieren und bei button click an
Edit5 zeigen lassen.
weisst jemand, wo es hackt?
grüß
poter