Da li neko zna kako da se resi jedna zagonetka u Delphi.
Da li neko zna kako da se resi jedna zagonetka u Delphi.
Evo kako izgleda
Zamislite da imate 4 vrste voca: Banana, Ananas, Kivi, Mandarina.
Primera radi.
Banana
od 1kg do 4kg kosta 100 dinara
od 4kg do 8kg kosta 200 dinara
od 8kg do 12kg kosta 300 dinara
i tako dalje...
Za Ananas je malo drugacije
od 1kg do 4kg kosta 150 dinara
od 4kg do 8kg kosta 250 dinara
od 8kg do 12kg kosta 350 dinara
i tako dalje za sva druge vrsta voca.
U Delphi sam ovako postavio:
Dugme za izvrsenje naredbe ili racunanja,
(ComboBox1 za Artikal, Edit1 za kilograme, Edit2 za Dinare)
I normalno napravio tabele za Banane, ... itd...
Naziv Artikla> Banana
Kilogram > 1-4, 4-8, 8-12 svaki red.
Cena > 100, 200, 300 dinara
Zagonetka je:
Kako kada stavim u ComboBox1 da je Banana a u Edit1 stavim npr.
'3' da u Edit2 pokaze koliko dinara a to je 100 ili
'5' da u Edit2 pokaze koliko dinara a to je 200 ili
'10' da u Edit2 pokaze koliko dinara a to je 300 ne bitno kada pritisnem Dugme
Kako da resim ovaj problem.
Kada sam pokusao ovako nesto ne funkcionise.
procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox1.Text = 'Banana' then
begin
if Edit1.Text < '4' then // za kilograme
begin
Edit2.Text := Table1Cena.AsString; // za dinare
end;
if Edit1.Text < '8' then
begin
Edit2.Text := Table1Cena.AsString;
end;
end;
end;
Da li tu igra uloga StrtoInt ili umesto AsString da to bude AsInteger.
Da li mozete da mi objasnite. Bas se trudim da razumem kako sta funkcionise.
Hvala vam.
 |  |
 |
