Listing Program
Perulangan:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure
TForm1.Button1Click(Sender: TObject);
var
M,I:Integer;
begin
Memo1.Clear;
M:=Strtoint
(edit1.Text);
I:=1;
While I <>
Strtoint (Edit2.Text) do
begin
memo1.Lines.add
('Perulangan ke- ' + inttostr (I) + ('=') + inttostr (M));
M:= M+1;
I:= I+1;
end;
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:= ' ';
Edit2.Text:= ' ';
memo1.Text:= ' ';
label1.Caption:='bilangan
1:';
label2.Caption:='bilangan
2:';
end;
end.
Logika Program :
Jika anda ingin membuat
suatu program sederhana pada Delphi, mula-mula yang harus anda lakukan adalah :
1. Buka program Delphi maka dengan otomatis
akan keluar gambar seperti ini :
2. Kliklah tanda 
dan 
buatlah
masing-masing dua seperti gambar berikut :
dan buatlah
masing-masing dua seperti gambar berikut :
3. Lalu kliklah tanda 
buatlah satu di
bawah label dan klik tanda 
buatlah dua di
sebelah kanan edit, seperti pada gambar berikut:
buatlah satu di
bawah label dan klik tanda buatlah dua di
sebelah kanan edit, seperti pada gambar berikut:
4. Lalu ubahlah bacaan label1 pada properties-Caption dengan bilangan1 dan
label2 dengan bilangan2 seperti gambar berikut :
5. Lalu hapuslah kata edit1 seperti pada
gambar :
6. Lalu ubahlah kata button1 dengan kata Ok
dan button2 dengan kata clear seperti pada gambar berikut :
7. Klik double pada button1 yang telah diganti
dengan Ok dengan ketiklah program berikut :
var
M,I:Integer;
begin
Memo1.Clear;
M:=Strtoint
(edit1.Text);
I:=1;
While
I <> Strtoint (Edit2.Text) do
begin
memo1.Lines.add
('Perulangan ke- ' + inttostr (I) + ('=') + inttostr(M));
M:= M+1;
I:=
I+1;
end;
end;
seperti
pada gambar berikut :
8. Setelah anda mengetik program seperti di
atas lalu kliklah tanda 
atau tekan f5
pada PC anda sampai keluar gambar seperti berikut :
atau tekan f5
pada PC anda sampai keluar gambar seperti berikut :
9. Masukkanlah inputtan bilangan yang anda
inginkan, saya mengambil contoh masukan inputtan pada bilangan1 yaitu 2 dan
inputtan bilangan2 yaitu 12 lalu klik Ok, di layar PC akan tampil seperti
berikut :
10 .
Jika anda ingin menghapus data yang telah di atas , klik double
Clear dan ketikkan program berikut :
procedure TForm1.Button2Click(Sender:
TObject);
begin
Edit1.Text:= ' ';
Edit2.Text:= ' ';
memo1.Text:= ' ';
label1.Caption:='bilangan 1:';
label2.Caption:='bilangan 2:';
end;
end.
Seperti pada gambar berikut :
11
lalu klik tanda atau f5 pada PC
anda, dan masukkan kembali
atau f5 pada PC
anda, dan masukkan kembali
Bilangan yang anda inginkan lalu klik
Clear maka button akan
Hilang, seperti pada gambar berikut :
Output :
