Na formie mam cztery "labele" , w trzech pierwszych losowane są liczby , a wartość czwartego ma się zwiększać o 1 za każdym razem, gdy w trzech pierwszych 'labelach" wartości są takie same (np: 3,3,3).
//Pisz normalne tematy!! - m.M
tak wygląda kod:
procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
b:integer;
c:integer;
d:integer;
e:integer;
begin
a:=random(3)+1;
label1.Caption:=inttostr(a);
b:=random(3)+1;
label2.Caption:=inttostr(b);
c:=random(3)+1;
label3.Caption:=inttostr(c);
d:=0
label4.Caption:=d;
if (StrToInt(label1.Caption) = StrToInt(label2.Caption)) and
(StrToInt(label2.Caption) = StrToInt(label3.Caption)) then
Label4.Caption := IntToStr(StrToInt(Label4.Caption) + 1);
end;
chodzi mi jeszcze o to by w trafienia były zliczane(sumowane) w label4 ,a w powyższym kodzie po ponownym kliknięci label4 wyświetla 0 nie zapamiętuje tej 1