Forum: Sonstige Fragen zu Delphi
Delphi
by scp,
2. Nov 2003
Na, dann so:
function LongPowerLong(ABaseNum, AExponent : Word) : LongWord;
var
MultCount : Integer;
begin
Result := 1;
for MultCount := 1 to AExponent do
Result := Result * ABaseNum;
Forum: Sonstige Fragen zu Delphi
Delphi
by scp,
2. Nov 2003
Deswegen denke ich auch , am logischsten ist es ähnlich wie beim Hex-System '0' bis '9' und 'A' bis 'Z' zu verwenden, wie in meinem Beispiel weiter oben. Dann hat A den Dezimalwert 10 und Z den Dezimalwert 35.
'A' + 'Z' ergibt '19', während '1' + 'Z' zusammen '10' ist.
Forum: Sonstige Fragen zu Delphi
Delphi
by scp,
2. Nov 2003
Hier noch die 35er Variante mit 0 bis 9 und A bis Z (Buchstabe O weggelassen wegen Ähnlichkeit zu Zahl 0):
function IntPowerInt(ABaseNum, AExponent : Integer) : Integer;
var
MultCount : Integer;
begin
Result := 1;
for MultCount := 1 to AExponent do
Result := Result * ABaseNum;