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

Kodla Büyü

nilebr93

Site Gezgini
Mesajlar
42
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.
 

Ekli dosyalar

  • listbox sorunu.jpg
    listbox sorunu.jpg
    7.2 KB · Görüntüleme: 2,252
  • hesapla butonuna tıklandığında çıkan hata.jpg
    hesapla butonuna tıklandığında çıkan hata.jpg
    44.6 KB · Görüntüleme: 2,252
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
 
Metehan' Alıntı:
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...
 

Ekli dosyalar

  • listboxornek.rar
    1 KB · Görüntüleme: 31
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..
 
Metehan' Alıntı:
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.
 

Ekli dosyalar

  • hata.jpg
    hata.jpg
    104.7 KB · Görüntüleme: 2,201
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
 
Metehan' Alıntı:
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
 
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.
 

Ekli dosyalar

  • listboxornek.rar
    491.9 KB · Görüntüleme: 33
  • listboxtoplama.jpg
    listboxtoplama.jpg
    25.1 KB · Görüntüleme: 2,186
Geri
Üst