stringgrid groupToplama

[DelphiNV]

Merhaba Arkadaşlar;


bir stringgrid'im var ve içeriği aşağıdaki gibi

Tipi---------------------değeri
1------------------------ 1
2------------------------ 2
3------------------------ 3
2------------------------ 5
1------------------------ 6
1------------------------ 7
2------------------------ 3
3------------------------ 5

Burada Tipi 1,2,3 olanların değerlerini ayrı ayrı toplatmak istiyorum yani:

Tipi 1 olanların toplamı =14
Tipi 2 olanların toplamı =10
Tipi 3 olanların toplamı =8

gibi bunları toplatmak isteğim yer stringgrid'in bir hücresi'de olabilir veya bir bileşende(edit,CurrencyEdit ) olabilir

tabiki bu arada bu hesaplamalar benim istediğim belli bir coll'lar veya row'lar arasında geçiş yaptığımda da yapılabilmeli..


ben döngü ile denedim fakat coll ve row'lar arasında geçiş yaptığımda değerler sürekli üstüne toplandı..

bu iş için nasıl bir mantık kullanmalıyım..



Saygılar Arkadaşlar

[lazio]

Döngü içinde..

Kod: Tümünü seç

x : Array[1..10] of Integer;  // 10 farklı tip diye düşünelim

x[StrToInt(StringGrid1.Cells[xcol, xrow])] := x[StrToInt(StringGrid1.Cells[xcol, xrow])] + StrToInt(StringGrid1.Cells[xcol + 1, xrow]);

x dizisinin, seçili hücrenin içindeki tip değerine, seçili hücrenin yanındaki hücrenin değerini atar.. bu arada değer hücresini tip hücresinin sağında olduğunu varsaydım

[DelphiNV]

lazio Cevabın için teşekkür ederim.


Farklı bir yöntem ile hallettim.. Çok kolaymış Bazen kafa duruyor işte..


Saygılar...

[rsimsek]

Yukarıdaki de pratik bir yöntem fakat döngü içinde yazılmalı

Ayrıca cevabını paylaşırsan sorularının çözümünü paylaşanlar da olacaktır

[DelphiNV]

Çözüm olarak şöyle bir şey yaptım.

her tipin toplamını farklı bir coll'a aldırdım...

yani
tipi 1 ise toplamı coll 5
tipi 2 ise toplamı Coll 6
tipi 3 ise toplamı Coll 7


işimi gördü

saygılar...