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

more 13 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 13 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 13 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 13 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 13 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
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 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 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 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Append dan Post
by Thunder in Tip n Trik Pemrograman more 16 years ago - inisial folder
by strike_set in Enginering more 18 years ago - Tanya Fast Report yang cukup sulit bagi saya,heheheheh??/
by ahmeed in Reporting more 16 years ago - ask QReport
by don2103 in MsSQL more 14 years ago - mencetak / print form
by radhutz in Bedah Kasus more 15 years ago - alter table
by mas_kofa in MySQL more 17 years ago - Mohon Bantuannya....
by Jokuy in OOT more 17 years ago - Penambahan Secara Otomatis Do Dbgrid
by anie_manis in MySQL more 19 years ago - [HELP] Access, flash, ADO
by agis in MySQL more 12 years ago - gimana cara men-encryit script kita??
by tkankjagal in Lain-lain more 13 years ago