Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Listview kayıt sorunu
#1
Hayırlı geceler.

Listview ile başım belada Blush  with ... do kullansam da kullanmasa da değişen bir şey yok öncelikle bunu belirteyim.

Sorun şu form7'deki listviewe diğer forumdan da test ettim değişiklik olmadı. Listviewe kayıt eklemek istediğimde bir türlü kayıt (insert) işlemi olmuyor.

Aşağıdaki örnekte listview form7'de  with Form7.ListView do ile butona tıkladığımda kayıt eklenmiyor.
Ne gariptir ki forum7'de yine with ListView do olarak kaydetmek istediğimde kayıt ekleniyor.
Form7'deki bu garip durum neden olabilir? acaba.

procedure TForm7.BtnSearchDeleteClick(Sender: TObject);
var
  Li: TListItem;
begin
  with Form7.ListView do
  begin
    Items.Beginupdate;
    try
      Li := Items.Insert(ItemIndex + 1);
      Li.Caption := IntToStr(Items.Count);
      Li.SubItems.Add('xx');
      Li.SubItems.Add('Adı');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xxxx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xxxx');
      Li.SubItems.Add('xxxxxxxx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xxxx');
    finally
      Items.EndUpdate;
    end;
  end;
end;
Cevapla
#2
(30-01-2019, Saat: 03:19)Yeliz Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Hayırlı geceler.

Listview ile başım belada Blush  with ... do kullansam da kullanmasa da değişen bir şey yok öncelikle bunu belirteyim.

Sorun şu form7'deki listviewe diğer forumdan da test ettim değişiklik olmadı. Listviewe kayıt eklemek istediğimde bir türlü kayıt (insert) işlemi olmuyor.

Aşağıdaki örnekte listview form7'de  with Form7.ListView do ile butona tıkladığımda kayıt eklenmiyor.
Ne gariptir ki forum7'de yine with ListView do olarak kaydetmek istediğimde kayıt ekleniyor.
Form7'deki bu garip durum neden olabilir? acaba.

procedure TForm7.BtnSearchDeleteClick(Sender: TObject);
var
  Li: TListItem;
begin
  with Form7.ListView do
  begin
    Items.Beginupdate;
    try
      Li := Items.Insert(ItemIndex + 1);
      Li.Caption := IntToStr(Items.Count);
      Li.SubItems.Add('xx');
      Li.SubItems.Add('Adı');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xxxx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xxxx');
      Li.SubItems.Add('xxxxxxxx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xxxx');
    finally
      Items.EndUpdate;
    end;
  end;
end;

Merhabalar,

Örnek teşkil etmesi adına.

const
  isimler: array[0..2, 0..1] of string = (
   ('DelphiCan', '.com'),
   ('Delphi', 'Can'),
   ('Ahmet', 'Mehmet')
   );

var
 I: Integer;
 YeniKolon: TListColumn;
 Item: TListItem;
begin
 with ListView1 do
 begin
   ViewStyle := vsReport;  <!--- Listeleme stili

   YeniKolon := Columns.Add;
   YeniKolon.Caption := 'Adı';
   YeniKolon.Width:=100;
   YeniKolon := Columns.Add;
   YeniKolon.Caption := 'Soyadı';
   YeniKolon.Width:=100;

   for I := Low(isimler) to High(isimler) do
   begin
     Item := Items.Add;
     Item.Caption := isimler[I][0];
     Item.SubItems.Add(isimler[I][1]);
   end;
 end;

end;


Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Cevapla
#3
(30-01-2019, Saat: 03:19)Yeliz Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Hayırlı geceler.

Listview ile başım belada Blush  with ... do kullansam da kullanmasa da değişen bir şey yok öncelikle bunu belirteyim.

Sorun şu form7'deki listviewe diğer forumdan da test ettim değişiklik olmadı. Listviewe kayıt eklemek istediğimde bir türlü kayıt (insert) işlemi olmuyor.

Aşağıdaki örnekte listview form7'de  with Form7.ListView do ile butona tıkladığımda kayıt eklenmiyor.
Ne gariptir ki forum7'de yine with ListView do olarak kaydetmek istediğimde kayıt ekleniyor.
Form7'deki bu garip durum neden olabilir? acaba.

procedure TForm7.BtnSearchDeleteClick(Sender: TObject);
var
  Li: TListItem;
begin
  with Form7.ListView do
  begin
    Items.Beginupdate;
    try
      Li := Items.Insert(ItemIndex + 1);
      Li.Caption := IntToStr(Items.Count);
      Li.SubItems.Add('xx');
      Li.SubItems.Add('Adı');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xxxx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xxxx');
      Li.SubItems.Add('xxxxxxxx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xxxx');
    finally
      Items.EndUpdate;
    end;
  end;
end;

Siz form7 de ki listview'e ekleme yapmıyorsunuz ki!!!

Li ye itemsleri ekleyip bırakıyorsunuz...


with .... do kullandığınız için ayrıca Li değişkenine ihtiyacınız yok....


procedure TForm7.BtnSearchDeleteClick(Sender: TObject);
begin
 with Form7.ListView do
 begin
   Items.Beginupdate;
   try
     Items.Insert(ItemIndex + 1);
     Items.Caption := IntToStr(Items.Count);
     Items.SubItems.Add('xx');
     Items.SubItems.Add('Adı');
   finally
     Items.EndUpdate;
   end;
 end;
end;
ya da 
procedure TForm7.BtnSearchDeleteClick(Sender: TObject);
var
 Li: TListItem;
begin
 Li := Form7.ListView;

   try
     Li := Items.Insert(ItemIndex + 1);
     Li.Caption := IntToStr(Items.Count);
     Li.SubItems.Add('xx');
     Li.SubItems.Add('Adı');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');

   finally
   end;
 end;
end;

şeklinde kullanmalısınız...
Girdim İlim Meclisine, 
Eyledim Kıldım Talep, 

Dediler İlim Geride, 
İlla Edep İlla Edep.

Yunus Emre
Cevapla
#4
(30-01-2019, Saat: 16:51)idealist Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
(30-01-2019, Saat: 03:19)Yeliz Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Hayırlı geceler.

Listview ile başım belada Blush  with ... do kullansam da kullanmasa da değişen bir şey yok öncelikle bunu belirteyim.

Sorun şu form7'deki listviewe diğer forumdan da test ettim değişiklik olmadı. Listviewe kayıt eklemek istediğimde bir türlü kayıt (insert) işlemi olmuyor.

Aşağıdaki örnekte listview form7'de  with Form7.ListView do ile butona tıkladığımda kayıt eklenmiyor.
Ne gariptir ki forum7'de yine with ListView do olarak kaydetmek istediğimde kayıt ekleniyor.
Form7'deki bu garip durum neden olabilir? acaba.

procedure TForm7.BtnSearchDeleteClick(Sender: TObject);
var
  Li: TListItem;
begin
  with Form7.ListView do
  begin
    Items.Beginupdate;
    try
      Li := Items.Insert(ItemIndex + 1);
      Li.Caption := IntToStr(Items.Count);
      Li.SubItems.Add('xx');
      Li.SubItems.Add('Adı');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xxxx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xxxx');
      Li.SubItems.Add('xxxxxxxx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xxxx');
    finally
      Items.EndUpdate;
    end;
  end;
end;

Siz form7 de ki listview'e ekleme yapmıyorsunuz ki!!!

Li ye itemsleri ekleyip bırakıyorsunuz...


with .... do kullandığınız için ayrıca Li değişkenine ihtiyacınız yok....


procedure TForm7.BtnSearchDeleteClick(Sender: TObject);
begin
 with Form7.ListView do
 begin
   Items.Beginupdate;
   try
     Items.Insert(ItemIndex + 1);
     Items.Caption := IntToStr(Items.Count);
     Items.SubItems.Add('xx');
     Items.SubItems.Add('Adı');
   finally
     Items.EndUpdate;
   end;
 end;
end;
ya da 
procedure TForm7.BtnSearchDeleteClick(Sender: TObject);
var
 Li: TListItem;
begin
 Li := Form7.ListView;

   try
     Li := Items.Insert(ItemIndex + 1);
     Li.Caption := IntToStr(Items.Count);
     Li.SubItems.Add('xx');
     Li.SubItems.Add('Adı');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');

   finally
   end;
 end;
end;

şeklinde kullanmalısınız...

Teşekkür ederim bilgilendirme için.

Sorunu çözdüm kodları forumda bir paylaşımda görmüştüm alıp kullandım. Fakat benim için kullanışlı olmadı.
sorun Create kaynaklanıyor, bu sorunu çözünce kayıt işlemi gerçekleşti.
Ayrıca (with .... do kullandığınız için ayrıca Li değişkenine ihtiyacınız yok....) uyarınızı dikkate aldım.

var
  MyForm: TForm7;
begin
  MyForm := TForm7.Create(Nil);
  try
    MyForm.ShowModal;
  finally
    MyForm.Free;
  end;
end;
Cevapla
#5
(30-01-2019, Saat: 16:51)idealist Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
(30-01-2019, Saat: 03:19)Yeliz Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Hayırlı geceler.

Listview ile başım belada Blush  with ... do kullansam da kullanmasa da değişen bir şey yok öncelikle bunu belirteyim.

Sorun şu form7'deki listviewe diğer forumdan da test ettim değişiklik olmadı. Listviewe kayıt eklemek istediğimde bir türlü kayıt (insert) işlemi olmuyor.

Aşağıdaki örnekte listview form7'de  with Form7.ListView do ile butona tıkladığımda kayıt eklenmiyor.
Ne gariptir ki forum7'de yine with ListView do olarak kaydetmek istediğimde kayıt ekleniyor.
Form7'deki bu garip durum neden olabilir? acaba.

procedure TForm7.BtnSearchDeleteClick(Sender: TObject);
var
  Li: TListItem;
begin
  with Form7.ListView do
  begin
    Items.Beginupdate;
    try
      Li := Items.Insert(ItemIndex + 1);
      Li.Caption := IntToStr(Items.Count);
      Li.SubItems.Add('xx');
      Li.SubItems.Add('Adı');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xxxx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xx');
      Li.SubItems.Add('xxxx');
      Li.SubItems.Add('xxxxxxxx');
      Li.SubItems.Add('xxx');
      Li.SubItems.Add('xxxx');
    finally
      Items.EndUpdate;
    end;
  end;
end;

Siz form7 de ki listview'e ekleme yapmıyorsunuz ki!!!

Li ye itemsleri ekleyip bırakıyorsunuz...


with .... do kullandığınız için ayrıca Li değişkenine ihtiyacınız yok....


procedure TForm7.BtnSearchDeleteClick(Sender: TObject);
begin
 with Form7.ListView do
 begin
   Items.Beginupdate;
   try
     Items.Insert(ItemIndex + 1);
     Items.Caption := IntToStr(Items.Count);
     Items.SubItems.Add('xx');
     Items.SubItems.Add('Adı');
   finally
     Items.EndUpdate;
   end;
 end;
end;
ya da 
procedure TForm7.BtnSearchDeleteClick(Sender: TObject);
var
 Li: TListItem;
begin
 Li := Form7.ListView;

   try
     Li := Items.Insert(ItemIndex + 1);
     Li.Caption := IntToStr(Items.Count);
     Li.SubItems.Add('xx');
     Li.SubItems.Add('Adı');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');
     Li.SubItems.Add('xx');

   finally
   end;
 end;
end;

şeklinde kullanmalısınız...

Sadece cevap vermek için cevap vermeyin. Verdiğiniz cevabı bir de kontrol edin.!

Cevabınızda hangi hatayı düzelteceğimi bilemedim. Siz düzeltin ve doğru cevabı siz verin. Başkalarını da yanıltmayın.
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#6
Sayın @Tuğrul HELVACI, @idealist ve ben açık bir şekilde durumu açıklamışız, sizden ricam bizim gözümüzden kaçmış olabilir.
(Sadece cevap vermek için cevap vermeyin. Verdiğiniz cevabı bir de kontrol edin.!) sözünü kime yazdınız? kişi belirtir misiniz?
Cevapla
#7
(31-01-2019, Saat: 12:31)Yeliz Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Sayın @Tuğrul HELVACI, @idealist  ve ben açık bir şekilde durumu açıklamışız, sizden ricam bizim gözümüzden kaçmış olabilir.
(Sadece cevap vermek için cevap vermeyin. Verdiğiniz cevabı bir de kontrol edin.!) sözünü kime yazdınız? kişi belirtir misiniz?

Kime yazdığım belli değil mi ? Kimi alıntıladı isem elbette ona yazdım. Yani @idealist 'e yazdım.
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  SetLength sorunu seci20 2 82 13-09-2019, Saat: 13:50
Son Yorum: seci20
  Writefile yazılan byte sorunu seci20 2 160 04-09-2019, Saat: 20:29
Son Yorum: seci20
  ADO Kayit hatası serdar 4 207 25-08-2019, Saat: 11:16
Son Yorum: serdar
  Fastreport barcod yazdirma sorunu TheEAK 8 551 30-07-2019, Saat: 17:09
Son Yorum: TheEAK
  FDMemTable1.Filter Sorunu Hk. pro_imaj 4 270 14-07-2019, Saat: 00:38
Son Yorum: pro_imaj



Konuyu Okuyanlar: 1 Ziyaretçi