Witam. Wrzuciłem na program obiekt TLabel2. Zmieniłem Caption na 2. Jest też funkcja random:
procedure TForm1.Button1Click(Sender: TObject);
var
j : integer; //Funkcja generujaca losowe karty
begin
Randomize;
j:= Random(7);
case j of
1:
I chcę zrobić, że jeżeli zostanie wylosowana liczba 1 to 1 zostanie dodane to tego Tlabel2 o którym mówiłem na początku. Czyli żeby Caption zmienił się na 3. Jeżeli zostanie wylosowana liczba 2 to żeby dodało 2 i caption zmienił się na 4. I tak dalej. Bawiłem sam się z tym trochę, ale niestety sam nic nie wykombinowałem, jedynie tyle, ale to jest zle:
case j of
1: begin
Label1.Caption:= 'Jedynka Pik';
StrToInt(Label2.Caption);
Label2.Caption:= Label2.Caption + 1;
Label2.Caption:= IntToStr(Label2.Caption);
Na Label1.Caption nie patrzeć bo to ma sie nie zmieniac
Ładny zwarty zapis. Ma jednak wadę: mianowicie ciężko się go będzie debugowało jeżeli się okaże, że nagle Caption pokazuje jakieś bzdury. I nie będziesz wiedział która część tego zapisu jest za to odpowiedzialna:) np. przepełni się int i się zaczną pojawiać wartości ujemne
Na początku sugerowałbym rozbić to sobie na 3 linijki, wtedy się łatwiej szuka błędów.
Jednak ogólnie rzecz biorąc dobrze to zapisałeś.
Powodzenia w dalszych naukach Delphi i programowania.