Arsip: Tanya StringGrid

more 16 years ago
ranum
Saya mau bertanya tentag StringGrid, begini masalahnya :
Ada StringGrid1, StringGrid2 dan StringGrid3.
StringGrid 1 dan StringGrid 2 fieldnya sama misalnya sebagai berikut:
StringGrid1
----------------------------
KdBrg Klasifikasi Jumlah
1 Susu 25
2 Beras 22
3 Mie Instant 20
----------------------------
StringGrid1
----------------------------
KdBrg Klasifikasi Jumlah
1 Susu 25
2 Beras 22
3 Mie Instant 20
----------------------------
Kemudian saya ingin menkombinasikan item Klasifikasi di StringGrid1 dan StringGrid2. yang kemudian akan ditaruh di StringGrid3.
jadi pada baris1 StringGrid1 dikombinasikan dengan baris2 StringGrid2 terus baris2 StringGrid1 dikombinasikan dengan baris3 StringGrid3 dst.
Sehingga StringGrid3 isinya nanti akan seperti ini
StringGrid3
-------------------------------
Kombinasi urutan Klasifikasi
2 1 Susu
2 2 Beras
2 1 Susu
2 2 MieInstant
2 1 Beras
2 2 MieInstant
3 1 Susu
3 2 Beras
3 3 Mie Instant
-------------------------------------------
Ada Yang bisa membantu ????

more 16 years ago
ranum
Aku coba buat codingnya seperti ini, nggak ada error seh cuman di StringGrid3-nya nga keisi filed dari StringGrid1 dan StringGrid2 .. kenapa yak ???
procedure TItemsetGeneratorForm.ButtonProsesClick(Sender: TObject);
var
i,baris,kolom : integer;
begin
with DataModule1.ADOConnection1 do
begin
StringGrid3.RowCount := DataModule1.ADOQuery1.RecordCount+1;
for i := 0 to DataModule1.ADOQuery1.RecordCount -1 do
begin
StringGrid4.Cells[0,0] := StringGrid1.Cells[baris,kolom]+StringGrid.Cells[baris,kolom];
DataModule1.ADOQuery1.Next;
end;
end;
end;
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago
Random Topic
- Back Up data Otomatis
by yusdi in Lain-lain more 17 years ago - sistem pakar...!
by Zulkarnain in OpenSource dan Gratis more 18 years ago - Hubungkan delphi dengan VB...???
by alvian_tc in Tip n Trik Pemrograman more 15 years ago - Koq Situs ini bahasanya campur aduk ya ????
by EkoIndri in Kritik & Saran more 19 years ago - Query pada SQL Server - akses variable bit
by shindo in Hal umum tentang Pascal Indonesia more 18 years ago - Store Procedure Seaching
by sp1d3r_n3tz in MsSQL more 17 years ago - Buat class di Delphi untuk sebagai manager
by hendra_sir84 in Hal umum tentang Pascal Indonesia more 18 years ago - Cara buat objek edit rata kanan
by hunter20040 in Tip n Trik Pemrograman more 17 years ago - Failed sending mail Line 250
by elva_ivana in Tip n Trik Pemrograman more 14 years ago - Bagaimana cara bikin installer bersamaan dengan db firebird
by wati in FireBird more 17 years ago