I tam waste z 3k weszlo bo softow mi nie zostawiles - trololol .


procedure TForm1.Button1Click(Sender: TObject);
var
mino, arch, guard, mage : integer;
oblicz, oblicz2 : integer;
begin
mino := (strToInt(Edit1.Text));
arch := (strToInt(Edit2.Text));
guard := (strToInt(Edit3.Text));
mage := (strToInt(Edit4.Text));
oblicz := mino + arch + guard + mage;
oblicz2 := 5000 - oblicz;
Label5.Caption := 'Zabiles: ' + intToStr(oblicz);
Label6.Caption := 'Zostalo: ' + intToStr(oblicz2);
end;
Ostatnio zmieniony przez Cro : 03-10-2010, 01:36
Ostatnio zmieniony przez FoX-x : 04-10-2010, 14:39
Ostatnio zmieniony przez Aga : 04-10-2010, 14:44
Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)
Zakładki