Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi RandomRange Problem (https://www.delphipraxis.net/45044-randomrange-problem.html)

TheAn00bis 28. Apr 2005 15:23


RandomRange Problem
 
Hi, ich wollte RandomRange aus der Unit math benutzen. Hab die unit "Math" eingebunden.
Dennoch kommt die Fehlermeldung "undefinierter Bezeichner "randomrange".

Liegt das daran, dass ich Delphi 4 benutze, was die Funktion noch nicht kennt?

Wenn das anders nicht zu lösen ist, wie kann ich diese Funktion selber realisieren?

PS: Ja, ich hab "randomrange" richtig geschrieben...

toms 28. Apr 2005 15:27

Re: RandomRange problem
 
Delphi-Quellcode:
function RandomRange(const AFrom, ATo: Integer): Integer;
begin
  if AFrom > ATo then
    Result := Random(AFrom - ATo) + ATo
  else
    Result := Random(ATo - AFrom) + AFrom;
end;

TheAn00bis 28. Apr 2005 15:29

Re: RandomRange Problem
 
Danke!


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:49 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz