ccLib

cclib

Beberapa unit dan komponen Delphi yang berguna yang ditawarkan oleh Cornelius Concepts, LLC.

---

Perpustakaan ini berisi unit dan komponen yang saya kembangkan yang berguna dalam banyak situasi. Tetapi mereka melampaui hanya berguna-mereka juga mengajar. Ada komentar dan sampel, dan komponen menunjukkan beberapa aspek tentang cara menulis komponen Delphi, seperti pemisahan paket antara run-time dan desain waktu, cara mengintegrasikan komponen membantu diaktifkan dengan mengklik kanan pada komponen, dan bahkan integrasi ke layar splash Delphi dan sekitar kotak.

Komponen: LayoutSaver

Cukup jatuhkan komponen ini pada formulir dan ukuran dan posisinya secara otomatis disimpan ketika ditutup dan dipulihkan saat dibuka. Selain itu simpan nilai lain dengan metode yang nyaman. Ada dua variasi:

• CcregistryLayoutSaver - Menghemat pengaturan ke Windows Registry, di bawah tombol Current_user/Perangkat Lunak.
• ccinilayoutSaver - menyimpan pengaturan ke file INI (file teks dengan nama = pasangan nilai). Anda dapat mengontrol di mana file tinggal atau mengaturnya ke default jalur data aplikasi.

Kedua komponen ini memiliki default untuk menyimpan file atau pengaturan registri di tempat yang sesuai dengan pengaturan minimal dan membuat kunci atau bagian berdasarkan nama formulir. Jadi Anda dapat dengan cepat dan mudah menjatuhkan salah satu komponen ini di setiap bentuk.

Dengan metode tambahan untuk menghemat/memulihkan nilai integer, string, dan boolean, itu membuat mengingat data pengguna sederhana menjadi sangat mudah:

 - procedure SaveStrValue(const Name:string;const Value:string);
- procedure SaveIntValue(const Name:string;const Value: Integer);
- procedure SaveBoolValue(const Name:string;const Value: Boolean);
- function RestoreStrValue(const Name:string; const Default: string = ''):string;
- function RestoreIntValue(const Name:string; const Default: Integer = 0): Integer;
- function RestoreBoolValue(const Name:string; const Default: Boolean = False): Boolean;

Komponen: CloseAppLication

Komponen ini mencakup rutinitas yang ditulis oleh seseorang bernama Neil di DBISAM Newsgroups beberapa tahun yang lalu. Diubah menjadi komponen, ini melekat pada beberapa kait keyboard dan mouse windows untuk menonton tidak aktif di komputer dan memunculkan pesan dengan timer penghitung mundur untuk menutup aplikasi. Satu kasus penggunaan adalah aplikasi database 2-tier yang membiarkan file dan catatan terbuka.

Komponen: LalucedTimer (sudah usang)

Komponen ini dihapus dari versi Delphi 10.3 Rio yang mendukung penggunaan kelas TSTOPWATCH Delphi.

Ini adalah komponen yang sangat sederhana yang menyembunyikan detail waktu operasi. Cukup hubungi mulai, lakukan barang -barang Anda, lalu hubungi berhenti dan Anda memiliki properti berikut yang tersedia:

• Waktu berlalu: tDateTime
• Berlalu -Disekrok: Double
• Berlurang dengan Double
• Berlurang: ganda
• Berlalu hari: ganda
• Lontak: ganda
• ELAPSEDEEARS: Ganda

Komponen ini tidak memeriksa perubahan zona waktu (jika digunakan pada perangkat seluler) atau akun untuk waktu penghematan siang hari. Itu dirancang untuk operasi yang cukup singkat (kurang dari satu jam).

Komponen lainnya

Komponen -komponen berikut hanya didukung melalui Delphi XE dan dihapus dari paket yang lebih baru.

Komponen: ccdbisamtablelookup (usang)

Dahulu kala, saya menggunakan rangkaian komponen InfoPower yang memiliki komponen pencarian tambahan yang sangat bagus yang akan mencantumkan catatan yang cocok saat Anda mengetik. Saya memola komponen ini dari ide itu tetapi juga menambahkan tombol yang ditentukan pengguna dan banyak fitur lainnya. Saya juga menggunakan kontrol RAIZE untuk beberapa fitur tampilan ekstra bagus-dan mengikat semuanya dengan sangat dekat dengan komponen database DBISAM. Itu untuk proyek tertentu pada saat itu, tetapi saya menggunakannya dan variasi (seperti mengganti DBISAM untuk komponen yang ditinggikan) di proyek lain sejak saat itu.

Ini mungkin komponen yang menarik untuk dilihat karena ini adalah contoh yang baik tentang cara membangun komponen majemuk.

Komponen: cctextmerge (usang)

Ditulis untuk mendukung proyek lama bertahun -tahun yang lalu, ini memungkinkan penggabungan nama yang sederhana = pasangan nilai dengan pembatas. Tercepang mendukung penggunaan TStringList.

Komponen: cctextfilelogger (usang)

Memberikan logging cepat dan mudah ke file teks. Tercerahkan karena perpustakaan dan metode pencatatan yang lebih baru lebih disukai.

Komponen: cctextViewer (usang)

Penampil file teks sederhana di jendela modal pop-up.

---

Akhirnya, sepatah kata tentang unit yang berdiri sendiri.

Webgen

Folder ini berisi dua unit, UDMCustomWebGenerator dan UDMDBISAMWebGenerator. Mereka adalah modul data dan yang pertama adalah kelas dasar dengan beberapa komponen webbroker, TPAGEPRODUCER dan TDatasTableProducer. Ini ditulis bertahun -tahun yang lalu sebelum sistem manajemen konten (CMSS) populer dan saya mencoba menggunakan Delphi untuk semua pengembangan web saya. Ternyata lebih banyak pekerjaan daripada nilainya untuk proyek -proyek besar dan ada banyak alat web hebat di luar sana sekarang, jadi itu tidak banyak digunakan lagi. Namun, masih ada tugas sesekali yang menemukan rutinitas ini berguna, jadi saya menyimpannya.

Kelas -kelas ini memperluas kegunaan webbroker dengan membangun tautan antara tag HTML dan database. Satu -satunya database yang pernah saya gunakan dengan cara ini adalah DBISAM. Saya belum menggunakan DBISAM selama beberapa tahun, jadi saya tidak tahu apakah itu masih dikompilasi, tetapi itu menunjukkan bagaimana kelas dasar dapat diturunkan untuk kebutuhan khusus Anda.

Harap baca komentar dalam kode untuk informasi lebih lanjut.

Aneka ragam

Folder "Misc" berisi tiga unit (lebih banyak lagi dapat ditambahkan nanti): USEarchReclist , UXMLDATES , dan UTESTUTILS .

Yang pertama, USEarchReclist , berisi beberapa deklarasi jenis prosedur dan satu prosedur: getsearchrecs.

 TPathStatusProc = reference to procedure (const Path: string; var Stop: Boolean);
TFileFoundProc = reference to procedure (FileInfo: TSearchRec);
procedure GetSearchRecs(const Path, Pattern: string; const Recursive: Boolean; PathStatusProc: TPathStatusProc; FileFoundProc: TFileFoundProc);

GetSearchRecs melintasi pohon direktori yang mencari file yang cocok dengan pola dan memanggil PathstatusProc untuk setiap jalur yang ditemukan dan filefoundproc untuk setiap file yang ditemukan yang cocok dengan pola tersebut.

Berikut adalah contoh panggilan yang akan menghapus file log lama:

 GetSearchRecs(LogFolder, '*.log', False, nil,
	procedure (FileInfo: TSearchRec)
	begin
	  if FileInfo.TimeStamp < Now - 90 then
		FileDelete(TPath.Combine(LogFolder, FileInfo.Name), True);
	end);

Unit kedua, UXMLDATES , memudahkan untuk bekerja dengan tanggal yang ditemukan dalam file XML. Format umum adalah: yyyy-mm-dd "t" hh: mm: ss, tetapi metodenya, convertTodelphidateFromXML, dapat mengambil string tanpa bagian waktu.

Unit ketiga, UTESTUTILS , menyediakan beberapa fungsi yang digunakan dalam beberapa proyek di mana saya perlu menghasilkan data uji seperti tanggal, waktu, angka, jenis pembayaran, dll. Mereka hanya berguna untuk dimiliki.