1. Contoh Program Delphi Menggunakan Database
  2. Contoh Program Delphi Perpustakaan

Dengan menggunakan pernyataan percabangan, alur program tidak harus dari atas ke bawah tetapi dapat melompat menuju. Contoh Perulangan If then else Pada delphi 7.0. Dengan menggunakan pernyataan percabangan, alur program tidak harus dari atas ke bawah tetapi dapat melompat menuju. Contoh Perulangan If then else Pada delphi.

Contoh Program Delphi Menggunakan Database

Procedure TForm1.Button2Click(Sender: TObject); var nilai:integer; begin if StrToInt (edit2.Text).

Contoh Program Delphi Perpustakaan

Assalamu’alaikum Wr Wb Alhamdulillah, Selamat datang di blog saya. Masih berhubungan dengan Delphi, kali ini saya akan menjelaskan tentang bentuk-bentuk perulangan yang ada pada Delphi. Perulangan merupakan control program yang digunakan untuk suatu proses yang akan berjalan terus menerus. Kondisi perulangan merupakan proses berjalannya program secara terus menerus dan akan berhenti ketika proses mendapatkan kondisi yang sudah ditentukan. Macam-Macam bentuk perulangan pada Delphi: a. Perulangan For – To – Do Perulangan dengan statement for adalah perulangan yang digunakan untuk melakukan suatu proses dalam sebuah blok program. Proses perulangan For – To – Do dimulai dengan nilai terkecil ke besar.

Bentuk Umum: For variabel:= nilai awal to nilaiakhir statement Catatan: semua variabel yang berhubungan dengan perulangan harus mempunyai tipe data sama. Contoh: procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i:= 1 to 5 do editl.SelText:= inttostr(i); end; end. Bila Program tesebut dijalankan maka nilai i akan ditampilkan pada edit 1 dengan hasil sebagai berikut =.

Borland delphi

Perulangan For – DownTo-Do Perulangan For-Dowbto-Do adalah perulangan yang mengihutng suatu proses dengan nilai awal besar dan nilai akhinya lebih kecil, maka variabel sebagai control program yang diperoleh adalah dari besar ke kecil. Bentuk Umum: For Variabel:= nilai-awal Downto Nilai-akhir Do Pernyataan Contoh: procedure TForm1.Button2Click(Sender: TObject); var i: integer; begin for i:= 5 downto 1 do edit1.SelText:= inttostr(i); end; Bila program tersebut dijalankan maka hasil yang diperoleh adalah sebagai berikut.