Ya saya paham,
Yg jadi permasalahan saya adalah cara deklarasi dari Function tersebut
var
Form1: TForm1;
Form: TForm;
...
FormAuthority(TForm1, Form1, True); --> Error;
FormAuthority(TForm1, Form, True); --> Ok
with Form as TForm1 do ...
Kita anggap Form sebagai parameter 2 dan
TForm1 sebagai parameter 1.
Berarti kembali lagi ke pertanyaan saya yg awal, kalau di deklarasinya tidak ada
syntax VAR sbb:
FormAuthority(Cls : TComponentClass; Form : TForm; isModal : boolean); --> OK, BISA,
OJID !!
Tapi hasil form yg di create ini gak akan kembali ke main program alias NIL, jadi saya
kasih tambahan syntax sbb :
FormAuthority(Cls : TComponentClass; var Form : TForm; isModal : boolean); --> Error
!!
Karena tipenya harus sama yaitu Cls , sedangkan disini, pada waktu masuk dia bertipe
TForm dan saat keluar bertipe CLs, walaupun sya juga tahu kalau Cls itu selalu turunan
dari TForm. Itulah masalahnya.
Bisa nggak kalau kita bikin tipe parameter ke 2 adalah apa yg di masukkan di parameter
1
FormAuthority(Cls : TComponentClass; var Form : Cls; isModal : boolean); --> Kira-2
gimana caranya ?
Demikian bang Oguds ....
----- Original Message -----
From: Mpu Gondrong
To: Yosi
Sent: Tuesday, September 02, 2003 6:04 PM
Subject: Re[2]: [Delphindo] Masalah paramaeter tidak sama
Selasa, 02/09/03 16:40:05, Yosi menulis:
Y> bagian manakah yg diganti tsb ? sepertinya saya sudah pakai "Form :
Lha, errornya menunjuk ke mana? Pelajaran #1, mulailah dari error. :)
var
Form1: TForm1;
Form: TForm;
...
FormAuthority(TForm1, Form1, True); --> Error;
FormAuthority(TForm1, Form, True); --> Ok
with Form as TForm1 do ...
Tertanda,
Oguds [36856104]
Yahoo! Groups Sponsor
ADVERTISEMENT
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
[Non-text portions of this message have been removed]
------------------------ 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/
