Yorumları: 756
Konuları: 39
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.716
Uzman
(30-01-2019, Saat: 03:19)Yeliz Adlı Kullanıcıdan Alıntı: Hayırlı geceler.
Listview ile başım belada 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.
Yorumları: 15
Konuları: 0
Kayıt Tarihi: 11-04-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 42
Başlangıç
30-01-2019, Saat: 16:51
(Son Düzenleme: 30-01-2019, Saat: 17:31, Düzenleyen: TescilsizUzman.)
(30-01-2019, Saat: 03:19)Yeliz Adlı Kullanıcıdan Alıntı: Hayırlı geceler.
Listview ile başım belada 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
Yorumları: 1.460
Konuları: 80
Kayıt Tarihi: 05-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 11.868
Üstad
(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 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...
Yorumları: 1.460
Konuları: 80
Kayıt Tarihi: 05-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 11.868
Üstad
(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...