Terima kasih Mas Ary, saya akan coba pelajar tipe data record tersebut dan string grid tersebut.
Semoga sukses ----- Original Message ----- > Date: Wed, 03 Sep 2003 06:22:09 -0000 > From: "AryKZ" <[EMAIL PROTECTED]> > Subject: Re: Browse Array dlm bentuk grid > > >1. Bagaimana membuat array dalam delphi yang kolom-kolomnya berbeda- > >beda > > format datanya, pakai apa? > > pake record: > > type TLeasing = record > no_angs : integer; > tgl_jt : TDateTime; > angs_pokok : Currency; > angs_bunga : Currency; > jum_angs : Currency; > end; > > PLeasing = ^TLeasing; //pointer ke TLeasing > > lalu buat arraynya, dynamic saja supaya bisa diresize anytime: > > type TLeasingArray : array of PLeasing; > > untuk me-resize TLeasingArray: > > var myleasing : TLeasingArray; > jum_periode : integer; > begin > jum_periode := 36; > SetLength(myleasing, jum_periode); > //isi myleasing > for i := 1 to jum_periode do > begin > myleasing[i]^.no_angs := i; > myleasing[i]^.tgl_jt := <tanggal-nya>; > ....dll > end; > end; > > > 2. Bagaimana menampilkan array tersebut dalam bentuk grid, sehingga > >nantinya > > payment schedule tersebut dapat dicetak? > > StringGrid1.Cells[1,1] := CurrToStr(myleasing[1]^.angs_pokok); > > tapi mungkin fleksibel enak kalo prosedur ngeprintnya dibuat sendiri > (just my opinion). > > > 3. Dapatkan diberikan contoh-contohnya? > > ~_~/ ....atas tuh > > semoga bisa membantu. > ----------------------- > Ary > http://www.geocities.com/ary_murthy > ------------------------ Yahoo! Groups Sponsor ---------------------~--> Buy Ink Cartridges or Refill Kits for Your HP, Epson, Canon or Lexmark Printer at Myinks.com. Free s/h on orders $50 or more to the US & Canada. http://www.c1tracking.com/l.asp?cid=5511 http://us.click.yahoo.com/l.m7sD/LIdGAA/qnsNAA/i7folB/TM ---------------------------------------------------------------------~-> Berlangganan: [EMAIL PROTECTED] Stop Berlangganan: [EMAIL PROTECTED] Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
