|
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.194 Beiträge
Delphi 12 Athens
|
Re: if then mit vielen möglichkeiten
30. Aug 2004, 15: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 
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. 
 my Delphi wish list : BugReports/FeatureRequests
|