DELPHİ ListBox Sorunu.. YARDIM EDERMİSİNİZ ARKADAŞLAR LÜTFEN

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.

 

listbox2.items.value şeklinde dene hocam..

 

Dediğiniz gibi denedim ama şu şekilde hata veriyor.

 

listbox2.items.text şeklinde deneyin..

 

Yine aynı hatayı veriyor..

 

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

 

Yarın teslim edicem . Çok teşekkür ederim.. Çok sağolun..

 

Maile bakamadım ama size bir örnek yaptım incelerseniz yapabilirsiniz. Kolay gelsin...

 

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..

 

Dediğiniz şekilde yazdım fakat şu şekilde hata veriyor.

 

forum yerine form yazın sanırım sizin formunuzun ismi form4 ??

 

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.