ich kopier euch einfach mal den gesamten quelltext das porb. is das ich es noch nich in delphi geschrieben habe, mache das hier mit mehreren Leuten hat bisher noch keiner ins Delphi übertragen,
Delphi-Quellcode:
var
f_lotto: Tf_lotto;
lotto, zufall: array[1..6] of integer;
urne: array [1..49] of integer;
implementation
{$R *.DFM}
procedure Tf_lotto.b_endClick(Sender: TObject);
begin
close;
end;
procedure Tf_lotto.b_lottoClick(Sender: TObject);
var i,j, zufallszahl, tausche :integer;
begin
lotto [1] := sp_1.value;
lotto [2] := sp_2.value;
lotto [3] := sp_3.value;
lotto [4] := sp_4.value;
lotto [5] := sp_5.value;
lotto [6] := sp_6.value;
for i:= 1 to 6 do
begin
repeat
zufallszahl:=random (49)+1;
until urne[zufallszahl]>0;
urne[zufallszahl]:=0;
zufall[i]:=zufallszahl;
end;
for i:= 1 to 6 do
begin
for j := 1 to 6 -i do
begin
if zufall [j] > zufall [j+1]
then
begin
tausche := zufall[j];
zufall[j] := zufall[j+1];
zufall[j+1] := tausche;
end;
end;
end;
for i:= 0 to 5 do
sg_lotto.cells[i,0]:=IntToStr(zufall[i+1]);
end;
procedure Tf_lotto.b_urneClick(Sender: TObject);
var i:integer;
begin
for i:= 1 to 49 do
urne[i]:=i;
end;
procedure Tf_lotto.Beenden1Click(Sender: TObject);
begin
close;
end;
procedure Tf_lotto.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 49 do
urne [i]:=i;
end;
procedure Tf_lotto.b_neuClick(Sender: TObject);
var i:integer;
begin
randomize;
for i:=0 to 5 do
sg_lotto.cells[i,0]:='';
for i:=1 to 49 do
urne[i]:=i;
end;
procedure Tf_lotto.e_auswertenClick(Sender: TObject);
var i,j:integer;
richtige:integer;
begin
richtige:=0;
for i:=0 to 6 do
begin
for j:=1 to 6 do
begin
if lotto[i]=zufall[j]
then richtige:=richtige+1;
end;
end;
e_ausgabe.text:= 'Sie haben ' + inttostr (richtige)+ ' Richtige';
end;
end.