opxbit.web.id

Hitung Jumlah Karakter pada Kalimat

opx — Tue, 04 Jan 2011 10:31:04 +0000

Trik menghitung jumlah huruf tertentu pada kalimat. Deklarasi fungsi: function HitungKarakter(const teks: Char; kalimat: String; caseSensitive: Boolean): Integer; var i,tmp: Integer; begin Result:= 0; i:= 0; tmp:= 0; while i <= Length(Kalimat) do begin if caseSensitive then begin if kalimat[i] =

Tahun Kabisat

opx — Tue, 04 Jan 2011 10:28:50 +0000

Trik untuk mengetahui apakah nilai tahun adalah kabisat atau bukan. Fungsi yang dapat digunakan: function IsLeapYear(Year: Word): Boolean; Contoh penggunaan: if isLeapYear(2020) then ShowMessage('Ya') else ShowMessage('Bukan'); Anda dapat membuat fungsi baru untuk mengetahui apakah tahun kabisat berdasarkan TDate. function KabisatByDate(const DT: TDate): Boolean; var d, m, y: Word; begin DecodeDate(DT, y, m, d);

Find Hidden

opx — Fri, 24 Dec 2010 17:51:07 +0000

Utility yang didesain untuk menemukan file-file dan folder-folder tersembunyi di dalam disk anda secara cepat dan mudah. File/folder yang memiliki attribut “Hidden” memang sengaja diberikan oleh system, user maupun oleh aplikasi lain untuk alasan tertentu. Bukanlah hal yang sulit untuk menemukan, mengakses dan menampilkannya pada explorer view, hanya saja kita akan menemui sedikit masalah ketika

Create Splash Screen

opx — Fri, 24 Dec 2010 17:45:12 +0000

Trik membuat splash screen untuk aplikasi anda. Form design: Tambahkan form baru (form ini nantinya menjadi yang splash screen) dengan nama unit: Unit2 dan nama formnya adalah Form2 (dalam contoh ini yang menjadi main form adalah Form1). Tambahkan komponen TTimer (Timer1) pada Form2 tadi. Atur intervalnya sesuai keinginan. Misalkan interval pada timer tersebut = 5000,

Add and Remove Startup

opx — Fri, 24 Dec 2010 17:41:35 +0000

Teknik bagaimana meletakkan aplikasi kita maupun aplikasi lain pada start-up Windows di registry dan direktori startup folder. Deklarasi fungsi: uses Registry, ActiveX, ShlObj, ComObj; const CURRENT_USER = 1; ALL_USERS = 2; keyReg = 'Software\Microsoft\Windows\CurrentVersion\Run'; shellFolder = 'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders'; strPath = '\Start Menu\Programs\Startup\'; //Fungsi untuk membaca environment variable Windows function