Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#2

Re: Probleme mit Unit zum Rechnen

  Alt 21. Mär 2004, 10:35
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;
  Mit Zitat antworten Zitat