Ups, danke, habe ich übersehen.
Versuch ich mal. ^^
Aber warum brauch ich eine Zwischenablage? Es sieht doch so ganz logisch aus...
P.S.:
Ich glaube ich erhänge mich gleich.
Delphi-Quellcode:
procedure TfrmMain.btnRandomClick(Sender: TObject);
var
Getippte_Zahlen: Array [1..6] of integer;
i: integer;
c: TObject;
Label2: TLabel;
begin
MixNumber(10);
if durchlaeufe > 0 then
begin
for i:= 1 to 6 do
begin
if Assigned(c) and (c is TLabel) then
begin
Label2:=TLabel(c);
Label2.Font.color:=clblack;
Label2.Font.size:=14;
Label2.Top:=Label2.Top+2;
Label2.Left:=Label2.Left+2;
end;
end;
end;
for i:= 1 to 6 do
begin
Getippte_Zahlen[i]:=Lottozahlen[i];
c := FindComponent('label'+inttostr(lottozahlen[i]));
if Assigned(c) and (c is TLabel) then
begin
Label2:=TLabel(c);
Label2.Font.color:=clred;
Label2.Font.size:=18;
Label2.Top:=Label2.Top-2;
Label2.Left:=Label2.Left-2;
end;
end;
Durchlaeufe:=Durchlaeufe+1;
end;
Selber Fehler.