Delphi

Menghitung Selisih Tanggal di Lazarus

Last Updated on 2 December 2014 By tommy Leave a Comment

Untuk mempermudah pemilihan tanggal kita akan menggunakan ZVDateTimeControls cara instalasinya bisa dilihat di wiki

Buat design aplikasi seperti gambar dibawah

Klik dua kali pada tombol Hitung edit biar tampilannya seperti dibawah ini

procedure TForm1.Button1Click(Sender: TObject);
 
var
  sekarang : TDateTime;
  nanti : TDateTime;
  selisih : String;
 
begin
     sekarang := ZVDateTimePicker3.Date;
     nanti := ZVDateTimePicker4.Date;
     selisih := IntToStr(DaysBetween(nanti,sekarang));
     // hasilnya
     edit1.Text:= selisih;
 
end;

dibagian uses paling atas tambahkan dateutils sehingga menjadi, karena fungsi DaysBetween ada disana.

uses
  Classes, SysUtils, mysql55conn, sqldb, db, FileUtil, Forms,
  Controls, Graphics, Dialogs, DBGrids, DbCtrls, StdCtrls, ZVDateTimePicker, dateutils;

Jalankan aplikasi dengan menekan tombol F9

Lazarus Cek File Ada atau Tidak

Last Updated on 30 November 2014 By tommy Leave a Comment

Contoh kita mau membuat aplikasi menggunakan stand alone database seperti SQLite, sebelum program dijalankan file SQLite (contoh database.db) di cek terlebih dahulu apakah sudah ada atau belum, bila belum ada di tampilkan error, bila sudah ada program dijalankan seperti biasa.

Deklarasikan fungsi DBSQLite atau apapun nama yang anda inginkan, dibawah var paling atas

DBSQLite : string;

klik dua kali di form yang pertama dibuka sewaktu menjalankan aplikasi, tambahkan code

  DBSQLite:= 'database.db';
  if FileExists(DBSQLite) then
  begin
       SQLite3Connection1.Connected:=TRUE
  end
  else
  begin
       ShowMessage(DBSQLite+' tidak ditemukan');
       Application.terminate;
  end

Bila database tidak ditemukan muncul pesan error

lalu program di tutup (exit), bila database ditemukan program berjalan seperti biasa.

Instalasi Lazarus IDE di Fedora 20

Last Updated on 23 September 2014 By tommy Leave a Comment

Lazarus bisa dibilang merupakan versi open source dari Delphi, dan banyak aplikasi yang bisa diporting dari Delphi ke Lazarus. Lazarus tidak tersedia di repository Fedora 20, makanya harus di install manual.
Download Lazarus
64 Bit

wget http://softlayer-sng.dl.sourceforge.net/project/lazarus/Lazarus%20Linux%20x86_64%20RPM/Lazarus%201.2.4/fpc-src-2.6.4-140420.x86_64.rpm
wget http://softlayer-sng.dl.sourceforge.net/project/lazarus/Lazarus%20Linux%20x86_64%20RPM/Lazarus%201.2.4/fpc-2.6.4-1.x86_64.rpm
wget http://softlayer-sng.dl.sourceforge.net/project/lazarus/Lazarus%20Linux%20x86_64%20RPM/Lazarus%201.2.4/lazarus-1.2.4-0.x86_64.rpm

32 Bit

wget http://sourceforge.net/projects/lazarus/files/Lazarus%20Linux%20i386%20RPM/Lazarus%201.2.4/lazarus-1.2.4-0.i686.rpm/download
wget http://sourceforge.net/projects/lazarus/files/Lazarus%20Linux%20i386%20RPM/Lazarus%201.2.4/fpc-src-2.6.4-140420.i686.rpm/download
wget http://sourceforge.net/projects/lazarus/files/Lazarus%20Linux%20i386%20RPM/Lazarus%201.2.4/fpc-2.6.4-1.i686.rpm/download

ketiga file diatas harus di install sekaligus, gunakan YUM untuk menginstall ketiganya beserta dependency nya
64 Bit

yum localinstall fpc-2.6.4-1.x86_64.rpm  fpc-src-2.6.4-140420.x86_64.rpm  lazarus-1.2.4-0.x86_64.rpm

32 Bit

yum localinstall fpc-2.6.4-1.i686.rpm fpc-src-2.6.4-140420.i686.rpm lazarus-1.2.4-0.i686.rpm

Saat tulisan ini dibuat Lazarus terbaru adalah Lazarus 1.2.4 untuk informasi terudate kungjungi situs Lazarus. Nantikan tulisan selanjutnya mengenai Lazarus.

Untuk menjalankan lazarus dari terminal eksekusi

lazarus-ide