Arsip: [ask] Mencari letak error list index out of bound

more 7 years ago
kepiss
mas bagaimana sih mencari letak kesalahan list index out of bound...
boleh kah saya post Coding saya...untuk anda koreksi...heheh...
tapi panjang banget codingnya....
jadi gak tau salahnya dimana....
//ini sebagian conding saya post tolong bantuin koreksi ya...
with dm.Q1 , tree.Items do
begin
// bersihkan tree
tree.Items.Clear;
close;
SQl.Text:='delete from pohon';
ExecSQL;
//cari jenis jawaban
close;
SQL.Text:='select nama_atribut from tb_atribut where is_hasil="Y" and is_aktif="Y"';
open;
atribut_hasil:=fields[0].AsString; ;
close;
SQl.Text:='select distinct '+atribut_hasil+' from tb_kasus';
open;
//atribut yang sedang aktif
atribut_terpakai:=TstringList.Create;
id_node:=TstringList.Create;
nilai_atribut_terpakai:=TstringList.Create;
nocabang:=TstringList.Create;
//untuk menyimpan klasifikasi pada variable
hasil:=TStringList.Create;
tampil:=TStringList.Create;
jml_hasil:=0;
while not eof do
begin
hasil.Add('result_'+inttostr(recNo));
tampil.Add(Fields[0].AsString);
inc(jml_hasil);
next;
end;
level:=0;
jml_node:=0;
buat_node;
hasil.Free;
tampil.Free;
atribut_terpakai.Free;
id_node.Free;
nilai_atribut_terpakai.Free;
saya curiganya disini.....
more 7 years ago
mas_kofa
tentu perintah dm.q1.open; di atas kemungkinan bisa menghasilkan dataset yg kosong, jika ini terjadi tentunya perintah fields[0].string; akan berakibat index out of bounds....

more 7 years ago
kepiss
@mas_kofa: tentu perintah dm.q1.open; di atas kemungkinan bisa menghasilkan dataset yg kosong, jika ini terjadi tentunya perintah fields[0].string; akan berakibat index out of bounds....kenapa bisa kosong ya mas sedang kan perintah open tersebut untuk membuka Query 'select nama_atribut from tb_atribut where is_hasil="Y" and is_aktif="Y". mas_kofa bisa tolong benerin sedikit gak??

more 7 years ago
henry_sys
@kepiss:anda saja tidak tahu apalai kami yg gak lihat datanya..... utuk mengetahui dibaris mana coding yang menampilkan error itu coba ditrace aja pake F8, kalau memang ada di dataset yg null anda bisa exception misal pake if@mas_kofa: tentu perintah dm.q1.open; di atas kemungkinan bisa menghasilkan dataset yg kosong, jika ini terjadi tentunya perintah fields[0].string; akan berakibat index out of bounds....kenapa bisa kosong ya mas sedang kan perintah open tersebut untuk membuka Query 'select nama_atribut from tb_atribut where is_hasil="Y" and is_aktif="Y".
if not (Qu.IsEmpty) then
<maka lakukan perinta-perintah yg anda inginkan>
else
<bisa kasi message>
msgDlg('Data tidak ditemukan','mtWarning',[mbOk],0)
end;
Semoga membantu
more 7 years ago
kepiss
@henry_sys:ya mas.....terimakasih untuk saranya....... tak cobanya dulu,,,,,@kepiss: [quote:08d7f4d6a6="mas_kofa"]tentu perintah dm.q1.open; di atas kemungkinan bisa menghasilkan dataset yg kosong, jika ini terjadi tentunya perintah fields[0].string; akan berakibat index out of bounds....kenapa bisa kosong ya mas sedang kan perintah open tersebut untuk membuka Query 'select nama_atribut from tb_atribut where is_hasil="Y" and is_aktif="Y". [/quote:08d7f4d6a6] anda saja tidak tahu apalai kami yg gak lihat datanya..... utuk mengetahui dibaris mana coding yang menampilkan error itu coba ditrace aja pake F8, kalau memang ada di dataset yg null anda bisa exception misal pake ifSemoga membantuif not (Qu.IsEmpty) then <maka lakukan perinta-perintah yg anda inginkan> else <bisa kasi message> msgDlg('Data tidak ditemukan','mtWarning',[mbOk],0) end;
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Mendapatkan Direktori/Path dari suatu aplikasi
- Tips: Lacak Variabel dan Indentifer di Lazarus
- Tips: Leak Viewer di Lazarus
- Tips: Garis Panduan di Form Designer
- Referensi Pemrograman Bahasa Pascal dari Tim Pembina TOKI
- Tips: Syncro-Edit in Lazarus
- Tips: Macro OfAll and auto generate variable in Lazarus
- Dasar-Dasar Pemrograman Web
- Yang Tidak Bisa Dilakukan Turbo Pascal #4
- Yang Tidak Bisa Dilakukan Turbo Pascal #3
Last Topic
- Tempat Latihan Posting
by LuriDarmawan in OOT 17 days ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 7 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 7 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 7 years ago - Buat Menu akses dengan Otorisasi
by heriy4nt0 in Tip n Trik Pemrograman more 7 years ago - isi data di dbgrid bisa Multiline
by wati in Tip n Trik Pemrograman more 7 years ago - Membuat No Nota Secara Otomatis
by halimanh in Hal umum tentang Pascal Indonesia more 7 years ago - [tanya] bagaimana load file di listbox tanpa full path name
by andrypein in Hal umum tentang Pascal Indonesia more 7 years ago - AQ3: Cannot Perform this operation an a closed dataset
by tomxpatra in Hal umum tentang Pascal Indonesia more 7 years ago - [ASK] : Input Database
by tomxpatra in Hal umum tentang Pascal Indonesia more 7 years ago
Random Topic
- Penggajian PNS
by novankyoshi in Tip n Trik Pemrograman more 7 years ago - Ttg componentcount ?
by debby in Tip n Trik Pemrograman more 12 years ago - Clear Content all TEdit
by n3o_cybertech in Tip n Trik Pemrograman more 12 years ago - Conditional Insert/Update/Delete
by ZeAL in MySQL more 14 years ago - nanya dapetin teks di cell DBGrid yang diklik
by b3g1n312 in MsSQL more 12 years ago - bagaiman Develop Aplikasi Remote access dengan Delphi....?
by akur in Network, Files, I/O & System more 8 years ago - instalasi zeos
by chandra in Hal umum tentang Pascal Indonesia more 12 years ago - Apa Jenis Aplikasi saya?
by coco7seven in OOT more 9 years ago - Mohon bantuan...grayscale dan resize
by delphier in Multimedia & Graphic Enhancement more 11 years ago - help:merancang database inventaris yang benar
by her1z_yu2n in MySQL more 11 years ago