Probleme mit Unit zum Rechnen

[Die Muhkuh]

Hi,


ich hab mir mal ne kleine Unit geschrieben:

Delphi-Quellcode:

unit SpRechnen;

interface

  type
    TZahlen   = Array of Integer;
    TZahlenEx = Array of Extended;


  procedure IntAdd(Zahl1, Zahl2: Integer); overload;
//  procedure IntAdd(Zahlen: TZahlen); overload;

implementation

procedure IntAdd(Zahl1, Zahl2: Integer);
var
  Ergebnis: Integer;
begin
  Ergebnis := Zahl1 + Zahl2;
end;

end.

In meinem Programm hab ich einen Button:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: Integer;
begin
  S := IntAdd(50,50);
  Label1.Caption := IntToStr(S);
end;

Das Problem:

Bei S gibt der Compiler folgende Fehlermeldung aus: [Fehler] Unit1.pas(31): Inkompatible Typen: 'Integer' und 'procedure, untyped pointer or untyped parameter'

Was kann man da machen?

[Die Muhkuh]

Ok so gehts:

Delphi-Quellcode:

type
    TZahlen   = Array of Integer;
    TZahlenEx = Array of Extended;


  procedure IntAdd(Zahl1, Zahl2: Integer; var Ergebnis: Integer); overload;
//  procedure IntAdd(Zahlen: TZahlen; var Ergebnis: Integer); overload;

implementation

procedure IntAdd(Zahl1, Zahl2: Integer; var Ergebnis: Integer);
begin
  Ergebnis := Zahl1 + Zahl2;
end;

Und so wirds aufgerufen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S : Integer;
begin
  IntAdd(50,50,S);
  Label1.Caption := IntToStr(S);
end;

[CalganX]

Hi Spider,
und war um machst du keine Funktion draus?

Delphi-Quellcode:

function AddZahl(Zahl1, Zahl2: integer): integer;

// ...

function AddZahl(Zahl1, Zahl2: integer): integer;
begin
  Result := Zahl1 + Zahl2;
end;

// ..

ver
  iRes: integer;
begin
  iRes := AddZahl(1,1);
  ShowMessage(IntToStr(iRes));
end;

Chris

[Die Muhkuh]

@Chris

um mal was neues auszuprobieren

[CalganX]

Hi,
okay... meinetwegen, allerdings denke ich, dass - wenn du die Unit veröffentlichen willst - sich jeder fragen wird, warum man das so umständlich machen muss...

Chris

[Die Muhkuh]

Dann können die anderen ja die Unit umschreiben