veritabanı lütfen yardım

[twistero]

arkadaşlar yardımlarınızı bekliyorum.

Kod: Tümünü seç

UrunAraTable.Open;
UrunAraTable.First;
for u:=1 to UrunAraTable.RecordCount do
begin
combobox2.Items.Add(UrunAraTableUrunAd.value);
UrunAraTable.Next;

bu kodla veritabanından UrunAd bilgilerini alıyorum.
Sonrasında comboboxda seçilen ürünün fiyat bilgisini başka bir edit kutusuna nasıl aktarabilirim?
Şu benzeri kodları edit1 onchange eventıne yazarak denedim fakat yapamadım istediğim alanın fiyat bilgisini alamadım malesef.

Kod: Tümünü seç

UrunAraTable.Open;
UrunAraTable.next
edit1.Text:=floattostr(UrunAraTableUrunFiyat.Value);

[cinarbil]

forma 1 adet daha combobox ekle adı örnek: combobox3 olsun aşağıdaki kodla tek döngüde hep ürün adını hep de ürün fiyatı alınır.

Kod: Tümünü seç

UrunAraTable.Open;
UrunAraTable.First;
for u:=1 to UrunAraTable.RecordCount do
begin
combobox2.Items.Add(UrunAraTableUrunAd.value);
combobox3.Items.Add(floattostr(UrunAraTableUrunFiyat.Value));
UrunAraTable.Next;
combobox3.ItemIndex := combobox2.ItemIndex;
// bu şekilde combobox 2 de ürün adları combobox 3 de fiyatlar olur  combobox3  enabled false  yapın bu şekilde sadece fiyat görünür seçme yapılamaz

[adelphiforumz]

Listboxa ekleme yaparken
lstbox.Items.AddObject('Ali Veli', TObject(123));

Secilenin degerini alırkende
integer(lstbox.Items.Objects[lstbox.ItemIndex]);

[twistero]

//[/code]

hocam dediğinizi yaptım çok teşekkür ederim başka bir hata için yardımlarınız bekliyorum.

Listboxa ekleme yaparken
lstbox.Items.AddObject('Ali Veli', TObject(123));

Secilenin degerini alırkende
integer(lstbox.Items.Objects[lstbox.ItemIndex]);

deneyeceğim hocam çok teşekkür ederim.

[twistero]

şöyle bir sorunumda mevcut Ürün adlarını sıralama yaparken alfabetik sıraya göre aktarıyo combobox'a buda yanlış ürünün fiyatının gösterilmesine sebep oluyor yardım edebilecek varmı?