Ĺadny brzuch
Witam mam problem ponieważ chce zrobić gre ekonomiczna
chce żeby w jednym miejscu na formie wyswietlał sie stan konta tzn kapitał ;D
i gdy cos kupuje to powinien sie odejmować tylko jest jedenm problem gdy odejmuje chcialbym aby stan konta po kolejnym kupowaniu nie wracal to starego stanu nie wiem czy dobze to opisalem a tu jest kod Z góry wielkie Dzięki
procedure TForm1.FormCreate(Sender: TObject); begin kasa:=100; forsa.caption:=inttostr(kasa); end; procedure TForm1.Button1Click(Sender: TObject); var odejmij,kup:Integer; begin kup:=strtoint(edit1.text); odejmij:=kasa-kup; forsa.Caption:=inttostr(odejmij); end;
Zamiast odejmij := daj kasa := kasa - kup;
a mam jeszcze jedno pytanko gdy zabraknie kasy to jak zrobic zeby nie wychodzilo na minusie tylko wyswietlil sie komunikat sorry nie masz kasy
if (kasa - kup < 0) then ShowMessage('Sorry nie masz kasy');
dzieki tylko jest jeden problem poniewaz gdy bedzie na minusie fakt pojawi mi sie komunikat ale gdy klikne OK to wtedy i tak mam na minusie a dalo by sie tak zeby bylo 0
if (kasa - kup < 0) then begin ShowMessage('Sorry nie masz kasy'); kasa := 0; end;
Sorry ,że męcze was pytaniami ale poprostu zakochalem się w Delphi i Strasznie przyjemnie mi sie w nim robi I pragne jak najwiecej wiedzy na jego temat wiec jeszcze jedno pytanko mam RadioButtona i chciałbym tak ze gdy go zaznacze wcisne ok to jego nazwa zostanie dodana do ListBoxa
if (kasa - kup < 0) then begin ShowMessage('Sorry nie masz kasy'); kasa := 0; end;
rozumiem masz racje wiesz moze jak to zrobic to co ^wyżej^ napisałem
Dobra z tym sobie poradzilem w ten sposob tylko jeszcze gdy wpisuje
if RadioButton4.checked then listbox1.Items.Add(RadioButton4.caption ); kup:=900; kasa:=kasa-kup; forsa.Caption:=inttostr(kasa); if (kasa - kup < 0) then begin ShowMessage('Sorry nie masz kasy'); exit; end; end.
wyskakuje mi "Record object or Class type required"
a na ktora linie ci wskazuje?
na ta z
end.
na ta z
end.
To dodaj przed nia
end;
Ale z kodu żaden inny błąd nie wynika :) Record object or Class type required to typowe odwołanie do typu prostego zamiast rekordowego/obiektowego. Niech dopisze to end; i zobaczymy :)
Swoją drogą, to ja jestem ciekawy efektów wysiłków gozdzika :P
if RadioButton4.checked then listbox1.Items.Add(RadioButton4.caption ); kup:=900; kasa:=kasa-kup; forsa.Caption:=inttostr(kasa); if (kasa - kup < 0) then begin ShowMessage('Sorry nie masz kasy'); exit; end;
Ale ten kod wraz zabierze kase, a jesli jest jej za malo to przerywa procedure nie zwracajac kasy:blink:
Użytkownik Kajetanek edytował ten post 06 grudzień 2005, 09:32
if RadioButton4.checked then listbox1.Items.Add(RadioButton4.caption ); kup:=900; kasa:=kasa-kup; forsa.Caption:=inttostr(kasa); if (kasa - kup < 0) then begin ShowMessage('Sorry nie masz kasy'); exit; end;
Ale ten kod wraz zabierze kase, a jesli jest jej za malo to przerywa procedure nie zwracajac kasy:blink:
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
chce żeby w jednym miejscu na formie wyswietlał sie stan konta tzn kapitał ;D
i gdy cos kupuje to powinien sie odejmować tylko jest jedenm problem gdy odejmuje chcialbym aby stan konta po kolejnym kupowaniu nie wracal to starego stanu nie wiem czy dobze to opisalem a tu jest kod Z góry wielkie Dzięki
procedure TForm1.FormCreate(Sender: TObject); begin kasa:=100; forsa.caption:=inttostr(kasa); end; procedure TForm1.Button1Click(Sender: TObject); var odejmij,kup:Integer; begin kup:=strtoint(edit1.text); odejmij:=kasa-kup; forsa.Caption:=inttostr(odejmij); end;
Zamiast odejmij := daj kasa := kasa - kup;
a mam jeszcze jedno pytanko gdy zabraknie kasy to jak zrobic zeby nie wychodzilo na minusie tylko wyswietlil sie komunikat sorry nie masz kasy
if (kasa - kup < 0) then ShowMessage('Sorry nie masz kasy');
dzieki tylko jest jeden problem poniewaz gdy bedzie na minusie fakt pojawi mi sie komunikat ale gdy klikne OK to wtedy i tak mam na minusie a dalo by sie tak zeby bylo 0
if (kasa - kup < 0) then begin ShowMessage('Sorry nie masz kasy'); kasa := 0; end;
Sorry ,że męcze was pytaniami ale poprostu zakochalem się w Delphi i Strasznie przyjemnie mi sie w nim robi I pragne jak najwiecej wiedzy na jego temat wiec jeszcze jedno pytanko mam RadioButtona i chciałbym tak ze gdy go zaznacze wcisne ok to jego nazwa zostanie dodana do ListBoxa
if (kasa - kup < 0) then begin ShowMessage('Sorry nie masz kasy'); kasa := 0; end;
rozumiem masz racje wiesz moze jak to zrobic to co ^wyżej^ napisałem
Dobra z tym sobie poradzilem w ten sposob tylko jeszcze gdy wpisuje
if RadioButton4.checked then listbox1.Items.Add(RadioButton4.caption ); kup:=900; kasa:=kasa-kup; forsa.Caption:=inttostr(kasa); if (kasa - kup < 0) then begin ShowMessage('Sorry nie masz kasy'); exit; end; end.
wyskakuje mi "Record object or Class type required"
a na ktora linie ci wskazuje?
na ta z
end.
na ta z
end.
To dodaj przed nia
end;
Ale z kodu żaden inny błąd nie wynika :) Record object or Class type required to typowe odwołanie do typu prostego zamiast rekordowego/obiektowego. Niech dopisze to end; i zobaczymy :)
Swoją drogą, to ja jestem ciekawy efektów wysiłków gozdzika :P
if RadioButton4.checked then listbox1.Items.Add(RadioButton4.caption ); kup:=900; kasa:=kasa-kup; forsa.Caption:=inttostr(kasa); if (kasa - kup < 0) then begin ShowMessage('Sorry nie masz kasy'); exit; end;
Ale ten kod wraz zabierze kase, a jesli jest jej za malo to przerywa procedure nie zwracajac kasy:blink:
Użytkownik Kajetanek edytował ten post 06 grudzień 2005, 09:32
if RadioButton4.checked then listbox1.Items.Add(RadioButton4.caption ); kup:=900; kasa:=kasa-kup; forsa.Caption:=inttostr(kasa); if (kasa - kup < 0) then begin ShowMessage('Sorry nie masz kasy'); exit; end;
Ale ten kod wraz zabierze kase, a jesli jest jej za malo to przerywa procedure nie zwracajac kasy:blink: