StringGrid

[eqity]

Arkadaşlar Delphide alış satış programı yapmak istiyorum bazı şeyler yerinde gidiyor fakat şu sepet konusunda takıldım

form içerisinde bir EditBox ve StringGrid var editten 12 haneli kodu mysqlden çekiyorum sorun yok fakat StringGrid'le bir türlü birleştiremiyorum

yani mantıken eğer sepette ürün varsa aynı ürün miktarına +1 ekle
eğer yoksa sadece ürünü ekle miktar 1
işte kdv hesaplamaları vs StringGridde bu tip işlemleri nasıl yaparım ?

[Lost Soul]

Anladığım kadarıyla ödev yapıyorsunuz.

Database den çektiğiniz her veri için StringGrid.RowCount ile listeyi taramanuz gerekecek.
Taradığınız rtowlarda bu kayıt daha önceden var ise diyelim ki RowNumber gibi bir değişkenle tarıyorsanız

Kod: Tümünü seç

StringGrid.Cells[ArttirilacakSutunNumarasi, RowNumber] :=  IntToStr(StrToIntDef(StringGrid.Cells[ArttirilacakSutunNumarasi, RowNumber],0) +1 );

diyerek miktara 1 eklenir.
Yok tarama sonucunda birşey bulunamadı ise

Kod: Tümünü seç

StringGrid.RowCount = StringGridRowCount +1;

ile bir satır eklenir

Kod: Tümünü seç

StringGrid.Cells[SütunNo, StringGrid.RowCount - 1] := Eklenecek değer

ile eklenir.
Kolay gelsin