--- In [EMAIL PROTECTED], "Abdur Rahman" <[EMAIL PROTECTED]>
wrote:
> dari kolom-kolom : angsuran ke-n (string/numerik), tanggal jatuh
>tempo
> angsuran (date), besarnya angsuran pokok, angsuran bunga, jumlah
>angsuran
> pokok dan bunga (numerik), sedangkan jumlah barisnya adalah
>sebanyak jumlah
> periode pembayaran. Dalam clipper biasanya array tersebut saya >
>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/
