Procedure

[Dr4ke]

Ich habe ein kleines Problem mit Proceduren ... Ich bekomme immer einnen Fehler:

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, 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, Ergebnis : integer);
begin
Ergebnis := Zahl1 + Zahl2;
end;

end.

Fehler:

Delphi-Quellcode:

[Warnung] Unit1.pas(43): W1036 Variable 'Ergebnis' ist möglicherweise nicht initialisiert worden
[Hinweis] Unit1.pas(49): H2077 Auf 'Ergebnis' zugewiesener Wert wird niemals benutzt