Procedure

[Dr4ke]

Das mit dem Out klappt nicht richtig ..

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFAnwendung = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edtZahl1: TEdit;
    edtZahl2: TEdit;
    edtAdd: TEdit;
    edtMal: TEdit;
    btnRechnen: TButton;
    procedure btnRechnenClick(Sender: TObject);
  private
  procedure Addieren (Zahl1, Zahl2,Out Ergebnis : integer);
  public
    { Public-Deklarationen }
  end;

var
  FAnwendung: TFAnwendung;

implementation

{$R *.dfm}


procedure TFAnwendung.btnRechnenClick(Sender: TObject);
var
Zahl1 : integer;
Zahl2 : integer;
Ergebnis : integer;
begin
Zahl1 := StrToInt(edtZahl1.Text);
Zahl2 := StrToInt(edtZahl2.Text);
Addieren(Zahl1, Zahl2, Ergebnis);
edtAdd.Text := IntToStr(Ergebnis);
end;

procedure TFAnwendung.Addieren (Zahl1, Zahl2,Out Ergebnis : integer);
begin
Ergebnis := Zahl1 + Zahl2;
end;

end.

Delphi-Quellcode:

[Fehler] Unit1.pas(22): E2067  Fehlender Parametertyp
[Fehler] Unit1.pas(43): E2035 Nicht genügend wirkliche Parameter
[Fehler] Unit1.pas(47): E2067  Fehlender Parametertyp
[Fataler Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Nebenbei: Ich bin noch Anfänger, das sind meine Ersten Schritte.