2 sonuçtan 1 ile 2 arası
  1. #1
    Acemi Üye Array
    Üyelik tarihi
    May 2012
    Mesajlar
    1
    İtibar Gücü
    0

    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.

    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.
    Project Project1.exe raised exception class EConvertError with message ''' is not a valid integer valuse'. Process stopped.Use Step or Run to continue.
    Konu nilebr tarafından (07-05-2012 Saat 13:19 ) değiştirilmiştir.

  2. #2
    Uzman Array sheone - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    Dec 2006
    Yer
    İstanbul
    Mesajlar
    3.636
    İtibar Gücü
    21
    Forum1.Panel1.Caption:=inttostr(toplam);
    kısımlarını döngünün dışına koyunuz. bunun dışında toplam değerini doğal tamsayı (integer) olarak tanımladığınızdan,
    bu sayı ondalık (float) olarak toplanan sayılar (fiyatlar ondalık ise, mesela 5,50 TL) için hata verecektir.

    fiyatlar dediğim gibi ondalıksa toplam sayısını float olarak tanımlamanız gerekir.

Konu Bilgileri

Users Browsing this Thread

Şu an 1 kullanıcı var. (0 üye ve 1 konuk)

Benzer Konular

  1. listbox arkadaşlar yardım....
    By oguz__ in forum Programlama
    Cevaplar: 0
    Son Mesaj: 24-04-2012, 17:02
  2. Cevaplar: 1
    Son Mesaj: 19-10-2010, 00:18
  3. Arkadaşlar lütfen yardim edinnnnn !!!
    By beto halil in forum Donanım Teknik Destek
    Cevaplar: 6
    Son Mesaj: 30-12-2009, 13:06
  4. Cevaplar: 5
    Son Mesaj: 23-01-2008, 23:45
  5. KAFAYI YİYECEĞİM ARKADAŞLAR YARDIM LÜTFEN
    By mubam in forum Donanım Teknik Destek
    Cevaplar: 3
    Son Mesaj: 10-02-2006, 09:10

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •  


Donanım forumu - Byte Hesaplayıcı - Notebook tamir Beşiktaş - beşiktaş bilgisayar servisi - beşiktaş bilgisayar servis - beşiktaş notebook servisi - beşiktaş servis - Beşiktaş Kamera Kurulumu -
 

SEO by vBSEO 3.6.0 RC 2