|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.326 Beiträge
Delphi 12 Athens
|
Re: if then mit vielen möglichkeiten
30. Aug 2004, 16:55
Ähm, so in etwa
Delphi-Quellcode:
procedure Prozedur1;
...
procedure Prozedur2;
...
procedure Prozedur3;
...
...
begin
case Random(100) of
1..5: Prozedur1;
6..9: Prozedur2;
0, 10..99: Prozedur3;
end;
end;
[edit]
ach menno 
Ein Therapeut entspricht 1024 Gigapeut.
|