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 atau bahasa Indonesianya Hapus 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.

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 coba perhatikan dibawah ini,Pertama jangan lupa 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; 

Anda mau Copas ? Sertakan Link Sumber : antasdelphi.blogspot.com
Terima Kasih untuk perhatiannya...

Posted by Antas Delphi on - Rating: 4.5

Title : Validasi teks Pada Listview di Delphi
Description : Validasi teks Pada Listview di Delphi. Mungkin sudah tahu maksud dari judul tersebut,yupss s... itu artinya memvalidasi atau Menge- CEK ...