Bagaimana menemukan tahun kabisat dengan delphi

Dalam program ini akan membantu Anda menemukan tahun kabisat, sehingga Anda tidak harus menghitung secara manual, dengan kode sederhana di bawah ini Anda akan menemukan tahun kabisat atau tidak.

kita dapat membuat fungsi baru berdasarkan komponen Tdate

ok langsung saja kita buat program.function KabisatByDate(const DT: TDate): Boolean;<br /> var<br /> d, m, y: Word;<br /> begin<br /> DecodeDate(DT, y, m, d);<br /> Result:= isLeapYear(y);<br /> end;

Kemudian masukkan kode di bawah ini untuk button
procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br /> if KabisatByDate(DateTimePicker1.Date) then ShowMessage('Yes') else<br /> ShowMessage('Not');<br /> end;

Source koding - leap year

 

Download

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck

Cara Menghitung Jumlah Karakter dengan delphi

Sekarang kita akan membuat program untuk Menghitung Jumlah Karakter, di sini kita dapat mengetahui berapa banyak karakter yang ada dalam surat-surat, tidak menghitung secara manual. kami baru saja mulai untuk memasukkan kode di bawah ini:

Fungsinya adalah sebagai berikut:function HitungKarakter(const teks: Char; kalimat: String;<br /> caseSensitive: Boolean): Integer;<br /> var<br /> i,tmp: Integer;<br /> begin<br /> Result:= 0;<br /> i:= 0;<br /> tmp:= 0;<br /> 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;

dalam program ini kita dapat menyaring letters caseSensitive.

Download

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck

Cara menyimpan gambar kedalam database dengan delphi

Seringkali pertanyaan kita adalah bagaimana menyimpan gambar ke database. Cara yang digunakan adalah sama dengan prosedur standar ketika Anda ingin menyimpan data baru (insert, edit) on the field.

tipe data dari gambar blob pada table kita menggunakan Assign.

Untuk contoh kamu ingin menyimpan graphic yang ada di TImage (image1) kedalam field BLOB (di sini saya menunjukkan, nama field adalah sebuah pic):
procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br /> if Image1.Picture.Graphic <> nil then<br /> begin<br /> with ADOTable1 do<br /> begin<br /> Insert;<br /> FieldByName('pic').Assign(Image1.Picture.Graphic);<br /> Post;<br /> end;<br /> end;<br /> end;

Untuk menyimpan gambar ke dalam field adalah jenis / format gambar yang ingin Anda simpan, apakah  JPEG / JPG, PNG, GIF atau BMP. Jika Anda ingin semua data pada field 'pic' hanyalah grafis tipe JPEG / JPG, maka Anda harus mengkonversi sebuah grafis yang ada di image1 untuk TJPEGImage kemudian disimpan ke lapangan. Hal ini akan memudahkan Anda ketika menampilkan grafis untuk TImage, karena grafis yang akan ditampilkan sudah pasti TJPEGImage, jadi tidak perlu untuk mendeteksi tipe gambar yang akan ditampilkan. Tapi semua tergantung pada orientasi dari program Anda buat.

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck

Mengecek letak file dengan delphi How to Check for File Existence delphi

Untuk memeriksa apakah file tersebut ada di direktori tertentu, Anda dapat menggunakan fungsi yang disediakan dalam Delphi.

Formula fungsi:
FileExists (const FileName: string): boolean.
Step 1: masukan koding didalam Edit Button and Form

Step two: enter the program with the program listings below :a
Procedure Tfrom.Button1Click(Sender:TObject);<br /> begin<br /> if Edit1.Text = ' ' then<br /> ShowMessage('fill in the name of the file is searched')<br /> else<br /> begin<br /> if FileExits(Edit1.Text) = true then <br /> ShowMessage('file " ' +Edit1.Text + ' " file exist. ')<br /> else <br /> showMessage('File " ' +Edit1.Text + ' " not exist. ');<br /> end;<br /> end;

Jalankan Program

Selamat Mencoba, semoga ilmu yang saya share bermanfaat.
Good Luck

Cara membuat form login dengan delphi

Tampilan bisa dibuat seperti gambar dibawah:

On public add koding dibawah:
public<br /> { Public declarations }<br /> class function Execute : Boolean;
Add koding dibawah implementation
class function TFrmLogin.Execute:Boolean;<br /> begin<br /> with TfrmLogin.Create(nil) do<br /> try<br /> Result := ShowModal = mrOK;<br /> finally<br /> free;<br /> end;<br /> end;
On Click Button Login add koding dibawah:

How to change background color delphi

You can change the background color by adding the components:

• ColorDialog

• button

And enter the code below
procedure TForm1.Button1Click(Sender: TObject);<br /> begin<br /> if ColorDialog1.Execute then<br /> form1.Color := ColorDialog1.Color;<br /> end;

Good Luck

Mengurutkan data dengan dbgrid delphi

mengkompile data penting untuk mempermudah pencarian data lagi. Berikut koding untuk menyortir data.

Mengurutkan data dengan ascending procedure TForm1.Button2Click(Sender: TObject);<br /> begin<br /> ADOTable1.Sort := 'column ASC'; //your name table.sort := 'yournamecolumn Ascending';<br /> end;
Mengurutkan data dengan descending

Bagaimana Filter Karakter di EditBox delphi

EditBox hanya bisa menerima input karakter tertentu. Sebagai contoh, agar EditBox hanya bisa diisi dengan angka, bukan karakter.

Program berikut menunjukkan bagaimana EditBox hanya bisa diisi dengan bilangan heksadesimal, percaya (0 .. 9), (A. F.), Atau (a. F.).

cara mengakses database dengan MS Access delphi

Untuk mengakses database dengan MS access bisa mengikuti step by step dibawah:

Step 1 buka your Ms Access:

Step 2  Klik File > New > Blank database > Choose Storage