Zitat von
himitsu:
Einfach nur in dein Programm kopieren, wobei es eventuell besser ist, wenn du diese Funktion etwas umbenennst.
Und dann statt der "standardmäßigen" Random-Funktion verwenden.
Bei mir heißt diese Funktion z.B. RandomC.
Procedure RandomC(Range: LongInt): LongInt;
Delphi-Quellcode:
updown := RandomC(2) + 1;
if updown = 1 then
...
else
...
Zitat:
[Warning] MainUnit.pas(183): W1024 Combining signed and unsigned types - widened both operands
[Warning] MainUnit.pas(203): W1035 Return value of function 'TForm1.rechnen' might be undefined
[Error] MainUnit.pas(159): E2065 Unsatisfied forward or external declaration: 'TForm1.RandomC'
[Fatal Error] Tycoon.dpr(5): F2063 Could not compile used
unit 'MainUnit.pas'
Dabei wird die function-Zeile pben bei den anderen functions rot !!!
da wo auch
Delphi-Quellcode:
procedure GeldTimerTimer(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
function rechnen(zahl1, zahl2, zahl3 :double): double;
ist