Thema
:
Delphi
Probleme mit Unit zum Rechnen
Einzelnen Beitrag anzeigen
Die Muhkuh
Registriert seit: 21. Aug 2003
7.332 Beiträge
Delphi 2009 Professional
#
2
Re: Probleme mit Unit zum Rechnen
21. Mär 2004, 10:35
Ok so gehts:
zusammenfalten
·
markieren
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:
markieren
Delphi-Quellcode:
procedure
TForm1.Button1Click(Sender: TObject);
var
S : Integer;
begin
IntAdd(50,50,S);
Label1.Caption := IntToStr(S);
end
;
Manuel
Blog reactivated
Zitat
Die Muhkuh
Öffentliches Profil ansehen
Besuche die Homepage von Die Muhkuh!
Mehr Beiträge von Die Muhkuh finden