Forum: Programmieren allgemein
by BAMatze,
1. Sep 2009
himitsu hat Recht, du solltest das irgendwie übergeben an den "Rest" des Programmes, also entweder eine globale Variable:
// irgendwo im Interface-Teile
var Ergebnis: real;
// irgendwo zur gleichen Zeit im Implementations-Teil:
procedure Irgendwas;
begin
Forum: Programmieren allgemein
by BAMatze,
1. Sep 2009
Ansonsten kann man sich das ja auch schön in einer kleinen rekursiven Funktion selber bauen.
function TForm1.Hoch(iBasis: Integer; iHoch: Integer) : integer;
begin
if iHoch > 1 then result := iBasis * Hoch(iBasis, iHoch-1)
else result := iBasis;
end;