Ładny brzuch

Witam
Bardzo prosze o wytlumaczenie mi na czym polega podwojna konwersja w delphi. Oto przyklad:

procedure TForm1.Button1Click(Sender: TObject);
var
X:Integer;
begin
X:=random(5)+1;

if X=1 then
label1.caption:=IntToStr(Strtoint(label1.Caption)+1);
if X=2 then
label2.caption:=IntToStr(Strtoint(label2.Caption)+1);
if X=3 then
label3.caption:=IntToStr(Strtoint(label3.Caption)+1);
if X=4 then
label4.caption:=IntToStr(Strtoint(label4.Caption)+1);
if X=5 then
label5.caption:=IntToStr(Strtoint(label5.Caption)+1);

memo1.Lines.add('wylosowano '+IntToSTr(x));
end;
Z gory dziekuje !


A co tu tumaczy. Losujesz liczb, potem zgodnie z nia wybierasz odpowiedni label. Pobierasz jago warto (string), eby arytmetycznie doda 1 zamieniasz na typ integer, a eby zpowrotem przypisac pod label zamieniasz liczba na string, bo tak wartoc przechowuje label. I tyle.
Uytkownik reVis edytowa ten post 03 wrzesie 2006, 13:03
Ok, dzieki :)

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •