Source code Delphi pake String Grid dan Button

unit Perulangan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Clear: TButton;
    Exit: TButton;
    A: TButton;
    B: TButton;
    C: TButton;
    E: TButton;
    D: TButton;
    H: TButton;
    J2: TButton;
    G: TButton;
    L: TButton;
    R: TButton;
    N: TButton;
    I1: TButton;
    M: TButton;
    Q: TButton;
    P: TButton;
    O: TButton;
    F: TButton;
    K: TButton;
    S: TButton;
    T: TButton;
    U: TButton;
    V: TButton;
    W: TButton;
    X: TButton;
    Y: TButton;
    Z: TButton;
    Label2: TLabel;
    satu: TButton;
    dua: TButton;
    tujuh: TButton;
    empat: TButton;
    lima: TButton;
    tiga: TButton;
    delapan: TButton;
    sembilan: TButton;
    enam: TButton;
    nol: TButton;
    plus: TButton;
    minus: TButton;
    bintang: TButton;
    Bagi: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure ExitClick(Sender: TObject);
    procedure ClearClick(Sender: TObject);
    procedure AClick(Sender: TObject);
    procedure BClick(Sender: TObject);
    procedure CClick(Sender: TObject);
    procedure DClick(Sender: TObject);
    procedure EClick(Sender: TObject);
    procedure FClick(Sender: TObject);
    procedure GClick(Sender: TObject);
    procedure HClick(Sender: TObject);
    procedure I1Click(Sender: TObject);
    procedure J2Click(Sender: TObject);
    procedure KClick(Sender: TObject);
    procedure LClick(Sender: TObject);
    procedure MClick(Sender: TObject);
    procedure NClick(Sender: TObject);
    procedure OClick(Sender: TObject);
    procedure PClick(Sender: TObject);
    procedure QClick(Sender: TObject);
    procedure RClick(Sender: TObject);
    procedure SClick(Sender: TObject);
    procedure TClick(Sender: TObject);
    procedure UClick(Sender: TObject);
    procedure VClick(Sender: TObject);
    procedure WClick(Sender: TObject);
    procedure XClick(Sender: TObject);
    procedure YClick(Sender: TObject);
    procedure ZClick(Sender: TObject);
    procedure nolClick(Sender: TObject);
    procedure satuClick(Sender: TObject);
    procedure duaClick(Sender: TObject);
    procedure tigaClick(Sender: TObject);
    procedure empatClick(Sender: TObject);
    procedure limaClick(Sender: TObject);
    procedure enamClick(Sender: TObject);
    procedure tujuhClick(Sender: TObject);
    procedure delapanClick(Sender: TObject);
    procedure sembilanClick(Sender: TObject);
    procedure plusClick(Sender: TObject);
    procedure minusClick(Sender: TObject);
    procedure BagiClick(Sender: TObject);
    procedure bintangClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,j:integer;
implementation

{$R *.dfm}

procedure TForm1.ExitClick(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.ClearClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
StringGrid1.Cells[i,j]:=(' ');
end;
end;
end;

procedure TForm1.AClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=1) or (j=1) or (j=5) or (i=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.BClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=1) and (j=2) or (i=1) and (j=3) or (i=1) and (j=4)
or (i=3) and (j=2) or (i=3) and (j=3) or (i=3) and (j=4)
or (i=5) and (j=2) or (i=5) and (j=3) or (i=5) and (j=4)
or (i=2) and (j=5) or (i=4) and (j=5) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.CClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=5) or (i=1) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.DClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=1) and (j=2) or (i=1) and (j=3) or (i=1) and (j=4)
or (i=5) and (j=2) or (i=5) and (j=3) or (i=5) and (j=4)
or (i=2) and (j=5) or (i=3) and (j=5) or (i=4) and (j=5) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.EClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=1) or (i=3) or (i=5) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.FClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=1) or (i=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.GClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=1) or (i=5) or (j=5) and (i=4) or (j=5) and (i=3)
or (j=4) and (i=3) or (j=3) and (i=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.HClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (j=5) or (i=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.I1Click(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.J2Click(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=5) or (i=5) or (j=1) and (i=4) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.KClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (j=5) and (i=1) or (j=5) and (i=5) or (j=4) and (i=2)
or (j=4) and (i=4)or (j=2) and (i=3) or (i=3) and (j=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.LClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=5) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.MClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (j=5) or (i=3) and (j=3) or (i=2) and (j=2)
or (i=2) and (j=4) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.NClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (j=5) or (i=j) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.OClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=1) or (i=5) or (j=5) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.PClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=1) or (i=3) or (i=2) and (j=5) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.QClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=1) or (j=5)and (i=2) or (j=5) and (i=3)
or (j=4) and (i=4) or (j=5) and (i=5) or (i=5) and (j=2)
or (i=5) and (j=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.RClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=1) and (j=2) or (i=1) and (j=3) or (i=1) and (j=4)
or (i=3) and (j=2) or (i=3) and (j=3) or (i=3) and (j=4)
or (j=5)and (i=2) or (j=3) and (i=4) or (j=4) and (i=5) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.SClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=1) or (i=3) or (i=5)
or (j=1) and (i=2) or (j=5) and (i=4) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.TClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=1) or (j=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.UClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=5) or (j=5) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.VClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) and (i=1) or (j=5) and (i=1) or (i=3) and (j=2)
or (i=3) and (j=4) or (i=5) and (j=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.WClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (j=5) or (i=4) and (j=2) or (i=4) and (j=4)
or (i=3) and (j=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.XClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=i) or (i=1) and (j=5) or (i=2) and (j=4)
or (i=4) and (j=2) or (i=5) and (j=1) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.YClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) and (i=1) or (j=5) and (i=1) or (j=2) and (i=2)
or (j=4) and (i=2) or (j=3) and (i=3) or (j=3) and (i=4)
or (j=3) and (i=5) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.ZClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=1) or (i=5) or (i=1) and (j=5) or (i=2) and (j=4)
or (i=4) and (j=2) or (i=5) and (j=1) or (i=3) and (j=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.nolClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=1) or (i=1) or (i=5) or (j=5) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.satuClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.duaClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=1) or (i=3) or (i=5) or (i=2) and (j=5)
or (i=4) and (j=1) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.tigaClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=1) or (i=3) or (i=5) or (j=5) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.empatClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=3) or (j=5) or (i=1) and (j=1)
or (j=1) and (i=2) or (j=5) and (i=1) or (j=5) and (i=2) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.limaClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=1) or (i=3) or (i=5)
or (j=1) and (i=2) or (j=5) and (i=4) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.enamClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=1) or (i=3) or (i=5) or (j=1) and (i=2) or (j=1) and (i=4)
or (j=5) and (i=4) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.tujuhClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (j=5) or (i=1) or (j=1) and (i=2) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.delapanClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=1) or (i=3) or (i=5) or (j=1) or (j=5) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.sembilanClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=1) or (i=3) or (i=5) or (j=5) or (j=1) and (i=2) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.plusClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=3) or (j=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.minusClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.BagiClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=1) and (j=5) or (i=2) and (j=4) or (i=3) and (j=3)
or (i=4) and (j=2) or (i=5) and (j=1) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

procedure TForm1.bintangClick(Sender: TObject);
begin
for i:=1 to StringGrid1.ColCount-1 do begin
for j:=1 to StringGrid1.RowCount-1 do begin
if (i=1) and (j=5) or (i=2) and (j=4) or (i=3) and (j=3)
or (i=4) and (j=2) or (i=5) and (j=1) or (i=j)
or (i=3) or (j=3) then
StringGrid1.Cells[j,i]:=('#');
end;
end;
end;

end.