Function /Procedure

[DeddyH]

Das könnte z.B. so aussehen:

Delphi-Quellcode:

function ergebnis(const s1,s2,s3: string): integer;
var i1,i2,i3: integer;
begin
  //mal ohne Fehlerbehandlung, ein bisschen Arbeit soll Dir Übrig bleiben ;)
  i1 := StrToInt(s1);
  i2 := StrToInt(s2);
  i3 := StrToInt(s3);
  Result := i1 + i2 + i3;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Edit5.Text := IntToStr(ergebnis(Edit1.Text,Edit2.Text,Edit4.Text));
end;