ARKADAŞLAR.. Form1 de 1 tane HESAP BUTONU, 1 tane PANEL, Form2 de 8 tane CHECKBOX , 8 tane COMBOBOX ve 8 tane LABEL , Form3 te 1 tane LABEL , 2 tane LİSTBOX ve 1 tane HESAPLA BUTONUm var - Kullanıcı Form2 de Checkboxlarla yiyeceklerini seçip, ComboBoxlar ile Porsiyonunu seçtiğinde her ComboBox ın yanında bulunan Label da 'Seçtiği yiyeceğe ait Fiyat' yazıyor.. - Ardından Form1 deki Hesap Butonuna tıkladığında ; Form2 de seçtiği yiyeceklerin isimleri Form3 deki ListBox1 de, fiyatları Form3 deki ListBox2 de görüntülenecektir.. - Daha sonra kullanıcı Form3 deki Hesapla Butonuna tıkladığında ; Form3 deki ListBox2 de yazan fiyatlar toplanıp Form1 deki Panelde yazıcak.. Şuan yazdığım kodlarda ; - Form2 de seçtiğim yiyecekleri ve porsiyonlarına karşılık gelen fiyatı Form3 deki ListBoxlarda yazdırdım. Seçilen yiyecekleri yazdırmada sorun çıkmadı. Seçilen yiyeceklere karşılık gelen fiyatı ListBox2 ye yazdırdığımda şöyle bir ekran ortaya çıkıyor. 1 5 3 2 Yani işaretlediklerimin fiyatı yazıyor, işaretlemediklerimin satırları BOŞ gözüküyor. Ben sadece işaretlediklerimin fiyatının yazmasını istiyorum. Ayrıca ListBox2 deki fiyatların toplamını Form1 deki Panel de yazdırmada şu kodu kullanıyorum HATA VERİYOR .. HESAPLA BUTONU: procedure TForm1.Button1Click(Sender: TObject); var toplam,i:integer; begin toplam:=0; for i:=0 to listbox2.items.count-1 do begin toplam:=toplam+strtoint(listbox2.items); Forum1.Panel1.Caption:=inttostr(toplam); end; end; Bu kodları yazdığımda aşağıdaki hata ekrana çıkıyor.
hocam eve geçtiğimde ben size bir örnek yapıp göndereyim. şu an bu bilgisayarda kurulu değil evden örnekler gönderirim size acelesi yoksa
procedure TForm1.Button1Click(Sender: TObject); var toplam,i:integer; begin toplam:=0; for i:=0 to listbox2.items.count-1 do begin toplam:=toplam+strtoint(listbox2.items.strings); Forum1.Panel1.Caption:=inttostr(toplam); end; şeklinde düzeltirseniz kodunuz çalışacaktır..
Form1 deki Panele yazdıracağım için Form1.Panel1.Caption yazdım fakat hala aynı hatayı veriyor.. Diğer butonlar için aynı düzeltmeleri de yaptım ama
Form1 deki Panele yazdıracağım için Form1.Panel1.Caption yazdım fakat hala aynı hatayı veriyor.. Diğer butonlar için aynı düzeltmeleri de yaptım ama
Yaptıım örneği gönderiyorum size . ekran görüntüüde var program çalışyor. muhtemelen siz kodlamanızda bir problem var gibi görünüyor. bu örneğin tüm dosyalarıdır proje halinde exede var içerisinde. kodlarınızla karşılaştırın hatanızı göreceksinizdir eminim. birde form geçişlerinde hide kullanmayın projenizi indirdim iceledim. showmodal ile forma dönünü ve o formu close ile kapatarak diğer formlara geçiş salayın.