> od 8kg do 12kg kosta 350 dinara
> i tako dalje za sva druge vrsta voca.
Da li se ti podaci nalaze u nekoj tabeli ili ih moraš provući kroz kod?
> Kada sam pokusao ovako nesto ne funkcionise.
Code:
> if ComboBox1.Text = 'Banana' then
> begin
> if Edit1.Text < '4' then // za kilograme
Prvo deklariši odgovarajuće promenljive: npr.
var
ArtNaziv: string;
Kolicina: Integer;
Cena: Double;
dodeli vrednosti promenljivama:
ArtNaziv := cbArtNaziv.Text; // Mnogo je bolje kada pravilno imenuješ kontrole umesto upotrebe generičkih imena poput ComboBox1
Kolicina := StrToIntDef(edtKolicina.Text, 0);
if ArtNaziv = 'Banana' then
begin
if Kolicina < 4 then
Cena := 100
else
if Kolicina < 8 then
Cena := 200
else
if Kolicina < 12 then
Cena := 300;
// Ovako pisanje uslova nije previse prakticno, ako imas vise podataka onda bi to trebalo cuvati u nekom nizu.
end;
if ArtNaziv = 'Ananas' then
begin
...
end;
edtCena := FloatToStr(Cena);
end;
Ako sve uslove čuvaš u tabeli onda je mnogo lakše, uz nekoliko qverija možeš dobiti odmah sve podatke, ali primere ne mogu davati bez strukture tabele.