Validasi teks Pada Listview di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Validasi teks Pada Listview di Delphi. Mungkin sudah tahu maksud dari judul tersebut,yupsss... itu artinya memvalidasi atau Menge- CEK data yang sama / sudah ada pada Listview,jika dilistview data tersebut sudah ada maka Delete namun jika sebaliknya maka Input.

Ini sama halnya pada saat kita mau menginput data ke Database maka kita harus mengecek dulu apakah data yang akan dimasukan sudah ada apa belum,dengan tujuan supaya tidak ada Duplikat. Untuk Contoh Screenshhoot saya ambil dari postingan Membuat No Urut Pada Lisview di Delphi :

Misal di Listview sudah ada Data ID Anda dengan ID 0001, Lalu kita masukan data lain dengan ID yang sama yaitu 0001 dan Nama Anda Cherry Belle,maka data tersebut tidak akan masuk karena IDnya sama atau sudah ada.
untuk Codingnya tidak panjang,sangat simple sekali,Pertama buat dulu prosedurenya  :

................................................
  private
    { Private declarations }
    procedure HapusDataSama;
  public
    { Public declarations }
  end;
................................................
................................................
................................................
procedure TForm1.HapusDataSama;
var i,j:integer;
begin
ListView1.Items.BeginUpdate;
try
  for i:=ListView1.Items.Count-1 downto 0 do
  BEGIN
  for j:=ListView1.Items.Count-1 downto i+1 do
    Begin
    if SameText(ListView1.Items[i].SubItems[0],ListView1.Items[j].SubItems[0]) then
       ListView1.Items.Delete(j)
    End;
  END
finally
  ListView1.Items.EndUpdate;
end;
end;
................................................
................................................
End.

Untuk Pengunaannya bisa disimpan dimana saja terserah anda, misal pada event mau simpan data :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with ListView1.Items.Add do
begin
SubItems.Add(Edit1.Text);
SubItems.Add(Edit2.Text)
end;
HapusDataSama;
Edit1.Text:='';
Edit2.Text:='';
Edit1.SetFocus
end;

Copas Sertakan Link Sumber : xtreme23koe.blogspot.com
Terima Kasih untuk perhatiannya...