Inkrementacja wartości na Label

0

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

Chodzi o to : jak zrobić , aby w czwartym labelu wartość zwiększała się o 1 , gdy w labelach 1,2,3 wartości są takie same (np: 3,3,3)

0

No bez przesady:

if (StrToInt(label1.Caption) = StrToInt(label2.Caption)) and
   (StrToInt(label2.Caption) = StrToInt(label3.Caption)) then
    Label4.Caption := IntToStr(StrToInt(Label4.Caption) + 1);
0

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

0

Zapamiętuje, zapamiętuje, tylko jak ty za każdym naciśnięciem klawisza wykonujesz :

d:=0;
label4.Caption:=d;

to ci się kasuje. Wywal te dwie linijki a Label4.Caption ustaw w ObjectInspectorze na 0, i będzie działać.

0

dzięki!!!!!

jesteś geniuszem!!!