dear para master delphi, nanya donk.... saya lagi query tapi ada error message yang saya nga ngerti, kurang lebih codingnya kyk gini: var thn,bln,hr:byte; total:integer; begin with q do begin close; sql.Clear; sql.Add('select tahun, bulan, hari from medrec where NoMedRec=''200609035977'' '); thn:=Fields[0].Value; bln:=Fields[1].Value; hr:=Fields[2].Value; open; end; total:=(thn365)+(bln 30)+hr; end; tapi pas dicompile salah tuch, bunyinya : List indexout of bound (0), kira-kira itu salahnya dimana yach? please dimohon bantuannya....

ql.Add('select tahun, bulan, hari from medrec where NoMedRec=''200609035977'' ');
thn:=Fields[0].Value;
bln:=Fields[1].Value;
hr:=Fields[2].Value;
open; 

ya iyalah error. wonk belum dibuka nilainya kok udah dimasukkan kedalam variabel. coba buka query dulu baru variabel thn, bln, dan hr itu di set. wekekeke :D. kok seneng amid sih copy paste tanpa tau maksud dari coding yang ditulis.... :P

hehehe iya tapi saya sempet test juga sich jadi malu :oops: :oops:

@cyber_hecker:

ql.Add('select tahun, bulan, hari from medrec where NoMedRec=''200609035977'' ');
thn:=Fields[0].Value;
bln:=Fields[1].Value;
hr:=Fields[2].Value;
open; 

ya iyalah error. wonk belum dibuka nilainya kok udah dimasukkan kedalam variabel. coba buka query dulu baru variabel thn, bln, dan hr itu di set. wekekeke :D. kok seneng amid sih copy paste tanpa tau maksud dari coding yang ditulis.... :P

tapi ngga papa to mas? khan baru belajar

ayo yang teliti dulu, algoritmanya kurang sip tuh!!!!!!!!!!! :D :D :D ====================================== KEEP SPIRIT OF PROGRAMMING...!!!! ======================================

tapi ngga papa to mas? khan baru belajar

waduh.. karena lagi belajar itulah gak boleh asal paste. bukannya sok pinter yach.. tp kalo belajar di ketik satu-satu aja koding yang ada, sambil mempelajari kira-kira perintah tersebut untuk apa ya ?... diriku juga dulu gitu waktu belajar.. :D

@cyber_hecker:

tapi ngga papa to mas? khan baru belajar

waduh.. karena lagi belajar itulah gak boleh asal paste. bukannya sok pinter yach.. tp kalo belajar di ketik satu-satu aja koding yang ada, sambil mempelajari kira-kira perintah tersebut untuk apa ya ?... diriku juga dulu gitu waktu belajar.. :D

bagus juga komentarnya, coba kalu di ubah sedikit ungkapanyaasti lebih bagus - bagiamanapun model balajar orang lain-lain - tidak bisa diterapkan ke semua orang - untuk semuanya kita mengucapkan semangat belajar Bravo cyber_hecker,n3o_cybertech Bravo kita semua

ngomong2 itu code saya yang bikin sendiri loh

- itu berarti bagus sekali - salah sedikit wajar - siiplah !!! tetap semangat terimaksih

:lol: kok program delphi saya komplie erroe yah padahal udah diinstall thanks