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ı: 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ı: 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
WWW
Cevapla
#4
(30-01-2019, Saat: 16:51)idealist Adlı Kullanıcıdan Alıntı:
(30-01-2019, Saat: 03:19)Yeliz Adlı Kullanıcıdan Alıntı: 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ı:
(30-01-2019, Saat: 03:19)Yeliz Adlı Kullanıcıdan Alıntı: 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ı: 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
  Veri Tabanına Kontrollü Kayıt Yaptırma bünyamin68 15 616 08-03-2024, Saat: 00:06
Son Yorum: TuncayDelphi
  Cas Terazi Veri gönderimi Delphi sürüm sorunu KUNTAY 12 4.298 08-11-2023, Saat: 00:06
Son Yorum: berkan
  TCMB Kur Almada Explorer Sertifika Sorunu Adem Kurt 3 580 24-10-2023, Saat: 15:14
Son Yorum: RAD Coder
  program exe icon sorunu cvheneburi 9 2.723 19-10-2023, Saat: 15:04
Son Yorum: harunyl
  TThread.Synchronize çalışmama sorunu muratmutlu 3 587 10-10-2023, Saat: 12:16
Son Yorum: Tuğrul HELVACI



Konuyu Okuyanlar: 1 Ziyaretçi