fored

هذا الكود كامل procedure TF_dalel.uptree; var i,e,b,t,x,y : integer; str : Tstrings; NodeT: array[0..1000] of PVirtualNode; pData: PNodedata ; begin vst.Cursor := crhourglass; vst.BeginUpdate; str := Tstringlist.Create; str.Clear; vst.Clear; i := 0; x := 0; y …

السلام عليكم بقيت مشكلة في الحدث on Get Text اذا كان الكود var PData : PnoodData begin Pdata:= Psender .Getnoddata(node celltext:=Pdata.^caption end تكون نفس رسالة الخطأز وإذا اضفنا if assigned لايستخرج بيانات تبقى الكابشن نود مع الشكر

شكرا لك اخي الكريم وبارك الله بك . سأجربها حالا إن شاء الله

السلام عليكم استخدم المكون مكون Virtual TreeViw لعرض بيانات جدول الحسابات . ولكن تظهر رسالة خطا عند سطر Pdata.^caption لااعرف سبب المشكلة وهذه رسالة الخطأ وإذا الغينا السطر البرمجي لايوجد مشاكل unit F_acc; interface uses Windows, Messages, SysUtils, Variants, …