Anonymous

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    procedure Image1Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public

  end;


var
  Form1: TForm1;
  tael, ialt, nummercomp, nummerplay : integer;  // ialt til at beskrive nummer tur, og tael til at beskrive hvor i løkken den er kommet til

implementation

{$R *.dfm}


procedure compmem(x:integer);
var
a,i : integer;
begin
for i:=0 to x do
begin
a:=random(4);
a:=a+1;
dosomething(a,1);
sleep(100);
Form1.Label1.Caption:=inttostr(nummercomp);
end;
end;

Procedure check();
begin
if StrToInt(Form1.Label1.Caption)=StrToInt(Form1.Label2.Caption) then
begin
tael:=tael+1;
Form1.compmem(tael);
end;
end;

procedure dosomething(x,y:integer);
begin

case y of
1: begin
nummercomp:=nummercomp*10+x;
ialt:=ialt-1;

end;

2:begin
nummerplay:=nummerplay*10+x;
Form1.Label2.Caption:=Inttostr(nummerplay);
if Length(Form1.Label1.Caption) = Length(Form1.Label2.Caption) then
check();
end;

end; // case

end;


procedure TForm1.Image1Click(Sender: TObject);
begin
dosomething(1,2);
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
dosomething(2,2);
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
dosomething(3,2);
end;

procedure TForm1.Image4Click(Sender: TObject);
begin
dosomething(4,2);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
tael:=4;
nummercomp:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
nummercomp:=0;
nummerplay:=0;
Randomize();
Label1.Caption:='';
Compmem(5);
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
Showmessage(inttostr(length(Label1.Caption)));
end;

end.