Cara Membuat Looping Program Delphi

Kayak Gini AYAS buat Form nya NAWAK-NAWAK.


Copas kan saja List Program ini n ingat harus pada tempatnya ya Gan..!!

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
ListBox1: TListBox;
ComboBox1: TComboBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button6Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button7Click(Sender: TObject);
var k,j: integer;
begin
//this double loop is executed 4×4=16 times
for k:= 1 to 4 do
for j:= 4 downto 1 do
listbox1.Items.Add(IntToStr(k)+ ‘,’ + IntToStr(j)) ;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,dari,sampai:integer;
begin
dari:=strtoint(edit1.Text);
sampai:=strtoint(edit2.Text);
// increment
if darisampai then
begin
listbox1.Clear;
combobox1.Clear;
for i:=dari downto sampai do
begin
listbox1.Items.Add(inttostr(i));
combobox1.Items.Add(inttostr(i));
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var k,j,dari,sampai:integer;
begin
dari:=strtoint(edit1.Text);
sampai:=strtoint(edit2.Text);
listbox1.Clear;
combobox1.Clear;
//increment
for k:= dari to sampai do
for j:=sampai downto dari do
begin
listbox1.Items.Add(inttostr(k)+’,’+inttostr(j));
combobox1.Items.Add(inttostr(k)+’,’+inttostr(j));
end;
// decrement
for j:= dari downto sampai do
for k:=sampai to dari do
begin
listbox1.Items.Add(inttostr(k)+’,’+inttostr(j));
combobox1.Items.Add(inttostr(k)+’,’+inttostr(j));
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var i,dari,sampai:integer;
begin
dari:=strtoint(edit1.Text);
sampai:=strtoint(edit2.Text);
listbox1.Clear;
combobox1.Clear;
//increment
for i:=dari to sampai do
if i mod 2 0 then
begin
listbox1.Items.Add(inttostr(i));
combobox1.Items.Add(inttostr(i));
end;
// decrement akan kucari
for i:=dari downto sampai do
if i mod 2 0 then
begin
listbox1.Items.Add(inttostr(i));
combobox1.Items.Add(inttostr(i));
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var i,dari,sampai:integer;
begin
dari:=strtoint(edit1.Text);
sampai:=strtoint(edit2.Text);
listbox1.Clear;
combobox1.Clear;
//increment
for i:=dari to sampai do
if i mod 2 = 0 then
begin
listbox1.Items.Add(inttostr(i));
combobox1.Items.Add(inttostr(i));
end;
// Decriment
for i:=dari downto sampai do
if i mod 2 = 0 then
begin
listbox1.Items.Add(inttostr(i));
combobox1.Items.Add(inttostr(i));
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var i,dari,sampai:integer;
begin
dari:=strtoint(edit1.Text);
sampai:=strtoint(edit2.Text);
listbox1.Clear;
combobox1.Clear;
//increment
for i:=dari to sampai do
if i mod 2 0 then
begin
listbox1.Items.Add(inttostr(i));
combobox1.Items.Add(inttostr(i));
end;
// Decriment
for i:=dari downto sampai do
if i mod 2 0 then
begin
listbox1.Items.Add(inttostr(i));
combobox1.Items.Add(inttostr(i));
end;
end;
end.
JADI DECH..!!
Ni hasil kalau Program kita jalan kan..