Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Tambah Hapus Data Via Array Delphi #165

Jika kamu tau peterpan berati kamu tau Ariel

andrypein.net : Posting yang lumayan panjang kali ini tentang tambah hapus data via array.

Jelas disini akan ada implementasi dari array-array an yang sudah aing posting di artikel-artikel sebelumnya.

Untuk skrinsut aplikasinya bisa dilihat seperti gambar dibawah ini :

Tambah Hapus Data Via Array Delphi
skrinsut form

Oke lanjut ke tahap pembuatannya.

Rancang form seperti diatas dengan 3 buah button,1 buah edit text dan 1 buah StringGrid, untuk StringGrid dapat ditemukan di pallete Additional.

Kemudian pada stringgrid nya beri nilai 1 pada properties ColCount nya.

Loncat ke kodenya, pertama-tama tambahkan konstanta maks dengan nilai 10 pada bagian bawah jajaran uses.

Lalu pada deklarasi privat, deklarasikan variabel jum dengan tipe integer dan array kota 1 sampai maks dengan tipe string.

Dan pada deklarasi publik, tambahkan sebuah prosedur dengan nama tampil, untuk lebih jelasnya lihat susu-nan nya seperti dibawah ini :

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;

const
  maks = 10;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    btntambah: TButton;
    btnexit: TButton;
    btnhapus: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btntambahClick(Sender: TObject);
    procedure btnhapusClick(Sender: TObject);
    procedure btnexitClick(Sender: TObject);
  private
    { Private declarations }
    kota : array[1..maks] of string;
    jum : integer;
  public
    { Public declarations }
    procedure Tampil;
  end;

Sebelumnya, kita beri kode dulu pada prosedur tampil tersebut, kodenya seperti ini :

procedure TForm1.Tampil;
var
 i : integer;
begin
 StringGrid1.RowCount:=jum+1;
 StringGrid1.Cells[0,0]:='Daftar Kota';
 for I := 1 to jum do
   StringGrid1.Cells[0,i]:=kota[i];
end;

Next berilah event pada Form tersebut dengan event OnCreate lalu isikan kode berikut :

procedure TForm1.FormCreate(Sender: TObject);
begin
 kota[1]:='Bandung';
 kota[2]:='Ciamis';
 kota[3]:='Jakarta';
 kota[4]:='Semarang';
 jum:=4;
 tampil;
end;

Note NB : Nama kota bebas lah asal berurutan abjadnya!

Coba di F9 seperti itu dulu sebelum lanjut.

Pada button untuk tambah isikan kode ini :

procedure TForm1.btntambahClick(Sender: TObject);
var
 i,j : integer;
 posisi : integer;
begin
 //cek jika kosong
 if Trim(edit1.Text) = '' then
  begin
   showmessage('Nama Kota tidak boleh kosong');
   exit;
  end;

 //cek array penuh atau tidak
 if jum = maks then
  begin
   showmessage('Array Pinuh');
   exit;
  end;

 //cek jika sama
 for I := 1 to jum do
   if edit1.Text = kota[i] then
    begin
     showmessage('kota sudah ada');
     exit;
    end;


 //cari posisi
 posisi:=0;
 for I := 1 to jum do
  if edit1.Text < kota[i] then
   begin
    posisi:=i;
    break;
   end;

 if posisi = 0 then
  begin
   jum:=jum+1;
   kota[jum]:=edit1.Text;
  end
 else
  begin
   for j := jum downto posisi do
    kota[j+1]:=kota[j];
    //sisipkan
    kota[posisi]:=edit1.Text;
    jum:=jum+1;
  end;

 tampil;
end;

Terakhir pada button hapus kodenya seperti ini :

procedure TForm1.btnhapusClick(Sender: TObject);
var
 i,j : integer;
 posisi : integer;
begin
 //cari posisi penghapusan
 posisi:=0;
 for I := 1 to jum do
 if edit1.Text = kota[i] then 
  begin
  posisi:=i;
  break;
end;

//kalau tidak ditemukan
if posisi = 0 then
begin
 showmessage('nama kota tidak ditemukan');
 exit;
end;

//hapus kota
if posisi = jum then
begin
 //hapus kota di bagian akhir
 jum:=jum-1;
end else
begin
 //geser keatas
 for j := posisi+1 to jum do
 kota[j-1]:=kota[j];
 jum:=jum-1;
end;
 tampil;
end;

Dan biasa pada tombol hapus kodenya bisa close atau application terminate.

Oke run, tinggal tes coba-coba tambah atau hapus data saja gan.

Kalem aing aplod projek Tambah Hapus Data Via Array Delphi nya supaya bisa diunduh untuk tambah koleksi gan.

Download

*AFK

Related Articles

One Comment

  1. tes komen emot reupload and refixed

    :iloveindo :lovekaskus :kiss :maho :najis :nosara :marah :berduka :malu :ngakak :sup :cendol :bata :takut :bajay :jabat :bingung :cd :palu :toast :hoax :selamat :thumb :duathumb :sorry :mewek :mata :radio :nohope :cool

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button