Hitung Selisih Tanggal

Hitung Selisih Tanggal

Cara menghitung beda hari pada tanggal.

Deklarasi fungsi:
function SelisihTanggal(TglOld,TglNew: TDate): Integer;
begin
  Result:= Trunc(TglNew - TglOld);
end;
Contoh implementasi:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= IntToStr(SelisihTanggal(DateTimePicker1.Date, DateTimePicker2.Date));
end;

Baca Selengkapnya »»» Hitung Selisih Tanggal

Hitung Jumlah Karakter pada Kalimat

Hitung Jumlah Karakter pada Kalimat

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] = teks then Inc(tmp);
    end
    else
    begin
      if Lowercase(kalimat[i]) = Lowercase(teks) then Inc(tmp);
    end;
    Inc(i);
  end;
  Result:= tmp;
end;

Parameter:
teks: huruf/karakter yang ingin dihitung pada kalimat.
caseSensitive: Ubah menjadi False jika case sensitive diabaikan, begitupula sebaliknya.
Contoh penggunaan:

ShowMessage(IntToStr(HitungKarakter('k', 'Kasur ini Rusak', False)));
//Hasilnya adalah 2

Baca Selengkapnya »»» Hitung Jumlah Karakter pada Kalimat

Contoh Percabangan (IF, IF Else, Case Of)

Baca Selengkapnya »»» Contoh Percabangan (IF, IF Else, Case Of)

Fontm Style & Alignment pada Delphi

Font Style & Alignment Pada Delphi
Posting Kali ini akan belajar mengubah Style dan Alignment pada Label dengan menggunakan komponen checkbox dan radiobutton :k :k . .
aplikasi ini sangat sederhana bagi kita yang awam dan pemula (sama aja kale).
yang kita butuhkan dalam formnya hanya 1 label,3 buah checkbox dan 3 buah radiobutton, (semua komponen masih ada di komponen standar ko)...
kira-kira bentuk formnya seperti ini sajalah:


Jangan lupa pada label1 beri nilai false pada AutoSize nya (ada ko di object Inspector) :D dan ukuran labelnya 28 sajalah juga..

kemudian saatnya memberikan script pada 3 buah checkbox & 3 radio buttonnya..
klik ganda pada checkbox tebal dan scriptnya kaya gene
ini untuk 3 checkbox

dan ini untuk 3 radiobuttonnya

so sekarang jalankan saja dah... sukses ko dan sekali lagi memang mudah dalam belajar pemrograman delph

Baca Selengkapnya »»» Fontm Style & Alignment pada Delphi