Forum: Object-Pascal / Delphi-Language
Delphi
by Armageddon,
1. Apr 2006
Keine Ahnung wen Du meinst. Hab das einfach dort rauskopiert und hier gepostet weil mit der Helper auf meiner Festplatte beim entrümpeln grad über den Weg gelaufen ist.
Forum: Object-Pascal / Delphi-Language
Delphi
by Armageddon,
1. Apr 2006
Das hab ich grad durch Zufall im Easy Delphi Helper gesehen. Dachte ich poste es mal, vielleicht hilfts ja.
procedure TMainForm.Button1Click(Sender: TObject);
var Zahlen: Array of Boolean;
i, z: Integer;
begin
for i:= 1 to 49 do Zahlen:=false;
for i:=1 to 6 do begin
repeat
z:=random(49)+1