Listview invalid pointer operation hatası

FireMonkey ve Mobil uygulama (iOS, Android, Windows Phone) ile ilgili sorularınızı bu foruma sorabilirsiniz.
Cevapla
jakarta2
Üye
Mesajlar: 67
Kayıt: 20 Nis 2015 05:51
İletişim:

Listview invalid pointer operation hatası

Mesaj gönderen jakarta2 » 23 Eki 2018 12:18

Selam;

Listview'e resim eklerken aşağadıki procedure'ü kullanıyorum ancak ne zaman listview'de resim göstersem program kapanırken invalid pointer operation hatası alıyorum. Nedenini bulamadım. Menü kapanmadan önce fresim := nil; yapıyorum. olmuyor.

procedure datayaekle( ListView:TListView);
Procedure ObjectOlustur( AItem:TListViewItem; LItem: TListItemText; strRefKod, strText:String; iOffsetX, iOffsetY, iWidth,iHeight, iFontSize:Integer; iFontColor: LongInt );
begin
LItem := TListItemText.Create(AItem);
LItem.Name := strRefKod;
LItem.Font.Size := iFontSize;
LItem.TextColor := iFontColor;
LItem.Align := TListItemAlign.Leading; // En Sol
LItem.VertAlign := TListItemAlign.Leading; // En Üst
LItem.PlaceOffset.X := iOffsetX;
LItem.PlaceOffset.Y := iOffsetY;
LItem.TextAlign := TTextAlign.Leading;
LItem.Trimming := TTextTrimming.ttCharacter;
LItem.IsDetailText := False;
LItem.Width := iWidth;
LItem.Height := iHeight;
LItem.Text := strText;
end;
Var
litem : TListViewItem;
LImage : TListItemImage;
LData,LLabel : Array[1..26] of TListItemText;
begin
if kod <> '' then
begin
litem := ListView.Items.Add;
litem.Height := 150;
litem.Text := '';

LImage := TListItemImage.Create(litem);
LImage.Name := 'Resim';
LImage.Align := TListItemAlign.Trailing; // En Sağ
LImage.VertAlign := TListItemAlign.Center; // Orta
LImage.PlaceOffset.Y := 2;
LImage.PlaceOffset.X := 0;
LImage.Width := 50;
LImage.Height := 80;
LImage.OwnsBitmap := True;
LImage.Bitmap := fresim;

// Başlıklar
// -----------------------------------------------------------------------------
ObjectOlustur( LItem, LLabel[1], 'Bas1', 'E.Seri/Sıra : ', 4, 10, 500, 20, 10, TAlphaColorRec.Maroon );
// Veri Alanları
// -----------------------------------------------------------------------------
ObjectOlustur( LItem, LData[1], 'Data1', seri, 63, 10, 150, 20, 10, TAlphaColorRec.Black );
end;
end;

jakarta2
Üye
Mesajlar: 67
Kayıt: 20 Nis 2015 05:51
İletişim:

Re: Listview invalid pointer operation hatası

Mesaj gönderen jakarta2 » 23 Eki 2018 12:32

Çözümü buldum. Form create ederken (Application) yerine form.create(Nil) yaptım düzeldi...

Cevapla