Bilinmeyen id numarasına göre silme işlemi

[Dostk]

Selam;

Databaseden verileri lisviewde listeliyorum; Listviewden seçili bir kaydı silmek istediğimde "isme göre" silme işlemi databasede gerçekleşmiyor id numarasına göre denediğimde siliyor.

Listviewdeki silmek istediğim kayıtın id numarası bilmediğimden ve listviewde id numarasını gösteremediğimden bu silme işlemini nasıl yapabilirim...

Kod: Tümünü seç

procedure TForm3.DeleteClick(Sender: TObject);
var
  I: Integer;
  DeleteName: String;
begin
  try
    with GrupListView do
    begin
      if Items.Count > 0 then
      begin
        for I := Items.Count - 1 downto 0 do
        begin
          if Items[I].Checked then
          begin
          DeleteName := Items[I].Text;
            With TFDQuery.Create(Nil) do // Sanal TFDQuery
            begin
              Connection := Form1.ConBaglan;
              Close;
              SQL.Clear;
              SQL.Add('Delete From Grup');
              SQL.Add('Where GRUPADI =' + QuotedStr('%' + DeleteName + '%'));
              ExecSQL;
              Items.Delete(I);
            end;
          end;
        end;
      end;
    end;
  except
    on e: Exception do
    begin
      ShowMessage(e.Message);
    end;
  end;
end;

[freeman35]

yanılmıyorsam Item.tag olması gerek bunu kullanabilirsin.

[fesiharslan]

Merhaba;
@freeman35 hocam ile hem fikirim. Bir örnekle yardımcı olayım.

Dataset'ten ListView'e kayıtları aktarmak için aşağıdaki gibi bir yol izleyin.

Kod: Tümünü seç

var
  LItem: TListViewItem;
begin
  ListView1.BeginUpdate;
  try
  With Dataset do
  Begin
   While not eof do
    begin
      LItem := ListView1.Items.Add;
      LItem.Text := FieldByName('ADI_SOYADI').AsString;
      LItem.Tag := FieldByName('GRUP_ID').Value;
      Next;
    end;
    end;
  finally
    ListView1.EndUpdate;
  end;
end;

Silmek için de aşağıdaki gibi bir yol izleyebilirsiniz. (Paylaştığınız kod kısmından bir bölümünü düzenleyerek örneklendirdim.)

Kod: Tümünü seç

  Close;
              SQL.Clear;
              SQL.Add('Delete From Grup ');
              SQL.Add('Where GRUP_ID =' +Items[I].Tag.ToString);
              ExecSQL;
              Items.Delete(I);

İyi çalışmalar...

[Dostk]

Teşekkür ederim fesiharslan, ben kulağı tersten tutarak sorunu çözmüştüm fakat sizin çözümünüz daha iyi...

[fesiharslan]

Algoritma:

• Bir işlem birden fazla metot ile yapılabilir.
  Önemli olan sorunun çözümüdür.
  Algoritmalar arasındaki en önemli fark ise adım sayısıdır...

En Önemlisi sorununuza çözüm bulmanızdır.