Çok Yakında Yeni Bir Arayüzle karşınızdayız! http://yeni.delphican.com/

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
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
  UniURLFrame ile pdf görüntüleme sorunu veski 1 56 Dün, Saat: 17:36
Son Yorum: cinarbil
  Hal Kayıt Sistemi Web Servis eyln 48 9.790 17-02-2020, Saat: 11:11
Son Yorum: eyln
  Datasnap mysql donma sorunu. seci20 2 98 15-02-2020, Saat: 18:48
Son Yorum: seci20
  FireDac ile Mssql Veritabanı Adı sorunu serdar 9 582 15-01-2020, Saat: 23:22
Son Yorum: otonomi
  Datasnap büyük dosya gönderme sorunu. seci20 2 270 12-01-2020, Saat: 14:56
Son Yorum: seci20



Konuyu Okuyanlar: 1 Ziyaretçi