Arsip: Tulis Dan Hapus USES

more 17 years ago
dcnter
salam delphier..
mau bertanya lagi niii..
gimana caranya kita menulis ataupun menghapus suatu USES secara Run Time..??
maksudnya gini..
gw lagi buat suatu program dimana pada saat salah satu form dieksekusi maka secara Run Time USES untuk suatu unit akan di create (ditulis) dan setelah form tersebut di Close maka USES yang telah di tulis tadi akan dihapus...
Minta syntaxnya donk.. :oops: :)
mat kasi blom nya...

more 17 years ago
mas_kofa
bukan kah saat formcreate semua yg ada pada form (termasuk uses), akan diciptakan secara ostosmastis, begitu juga sebaliknya saat formdestroy / formclose
Maaf Jika Salah
Btw : pertanyaannya kok aneh ya???

more 17 years ago
mat_koder
konsep seperti itu ngga perlu.
Keperluan anda sepertinya dapat dilakukan dengan cara Dynamic linking : form yg hendak ditampilkan ditaruh dlm DLL terpisah dari aplikasi utama.

more 17 years ago
dcnter
terima kasih ni bos2..
bukan kah saat formcreate semua yg ada pada form (termasuk uses), akan diciptakan secara ostosmastis, begitu juga sebaliknya saat formdestroy / formclose
Btw : pertanyaannya kok aneh ya???maksudnya gini mas, gw buat form yang fungsunya manggil form lain, sewaktu gw manggil form yang lain dari form awal ternyata ada komponent yang Incompatible...klu gw cek sih ternyata kalau uses komponen itu dihapus maka errornya hilang..namun utk form awal uses itu diperlukan..makanya gw pengen klu diform awal uses itu ada dan di form yang dipanggil uses di form awal dihapus namun sesudah form yang dipanggil Close maka uses di form awal di create lagi... ada masukkan bos2..??? :oops:

more 17 years ago
old_shutterhand
bikin bpl aja file>new>package masukin tuh unit-unit komponent +unit form2 trus pokoknya semua yg dibutuhin lalu
save menjadi dpk> compile aklo ada error unit yg required tinggal masukin, compile again mpe jd bpl.
lalu di project option centang "build with runtime packages"
distribusi akan menjadi lebih besar dikit, tapi memory saat aplikasi running menjadi lebih kecil.
teknik ini biasa dipakai aplikasi yg kelas wah... kaya.. tuneup utilities dll. CMIIW
@DE
enak jadi onelite tinggal kasih clue or confirmed yg diatasnya :mrgreen:

more 17 years ago
DelphiExpert
itu namanya dependencies, anda ngga' bakalan bisa membuang itu kecuali membuang unit/komponen yg digunakan dlm komponen / form yg bersangkutan.
lagian ada teknik lain selain melalui uses (mainform - uses - other form), coba dibalik (other - uses - mainform).
caranya gimana? gunakan registerclass atau buat semacam class registry sendiri utk kemudian berdasar class of other form tsb; instance akan dibuat otomatis jika ada pemanggilan atas form tsb.
) other form:
unit OtherForm
interface
uses
...,
MainUnit;
type
TOtherForm = class(TForm);
...
end;
implementation
initialization
MainUnit.RegisterFormClass(TOtherForm);
finalization
MainUnit.UnregisterFormClass(TOtherForm);
end.
) mainunit:
unit MainUnit;
interface
uses
...; // OtherForm ngga' perlu di add
type
TFormClass = class of TForm; // typecast form class
...
implementation
// show TOtherForm
procedure MainForm.Button1Click(Sender: TObject);
begin
ShowRegisteredForm('TOtherForm'); // gunakan nama class sebagai string; so no dependecies to OtherForm.pas
end;
procedure MainForm.ShowRegisteredForm(const AFormClassName: string);
var I: Integer;
AForm: TForm;
begin
for I:= 0 to FClassRegistry.Count - 1 do
if SameText(TFormClass(FClassRegistry[I]).ClassName = AFormClassName) then
begin
AForm:= TFormClass(FClassRegistry[I]).Create(nil);
AForm.ShowModal;
Exit;
end;
end;
bingung ya... sukurin hak.. hak.. hak.. :mrgreen:
more 17 years ago
dcnter
bingung ya... sukurin hak.. hak.. hak..emang binguuunnng....khi..khi..khiiiii...... mohon pencerahan yang lebih cerah lagi.... :) but Tq2 buaaanget buat muaaa2 nya
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
- Sekedar tulisan
by ichan29 in OOT more 16 years ago - Tanya font/component barcode
by kacungdelphi24 in Bedah Kasus more 17 years ago - Create Form
by coacoac in Tip n Trik Pemrograman more 17 years ago - Koneksi Kartu Debit & Kredit
by IdrisZZ in Hal umum tentang Pascal Indonesia more 16 years ago - Tanya DCOM Connection....
by EkoIndri in Tip n Trik Pemrograman more 18 years ago - KONEKSI database INFORMIX di delphi
by DeulleDo-X in Hal umum tentang Pascal Indonesia more 18 years ago - FreePascal dan Lazarus
by simba in onLinux more 19 years ago - minta saran
by Kijokotopo in Hal umum tentang Pascal Indonesia more 17 years ago - Akses Ke Server dengan SQLyog error
by onsir in MySQL more 17 years ago - odbc data source not found
by ricky_seldjatem in Tip n Trik Pemrograman more 16 years ago