التعامل مع بيانات المصفوفة في listbox

[شمس الغروب]

السلام عليكم
في الbutton1وضعت عناصر المصفوفة في الlistbox1 كيف استخدم عناصر هذه المصفوفة في ال button2 لنفس الفورم علما ان عناصر المصفوفة من نوع string وعندما استخدمت التعليمة الاتية في الbutton2 لم تعمل بشكل صحيح s[i]:=form1.listbox1.items.text

[محمد الدرة]

السلام عليكم

لم يتضح سؤالك كثيراً

هل من الممكن ارسال سورس يوضح مشكلتك

[شمس الغروب]

وعليكم السلام
هذا هوالكود لل button2 الذي يستخدم المصفوفة[] s

كود :

;( procedure TFormtokenw.Button2Click(Sender: TObject) var ; j,o,b:integer x,s:m begin ; o:=0 ; formmastert.table1.Open for j:=1 to b do begin ; s[i]:=formtokenw.ListBox1.Items if formmastert.Table1.locate('name' ,s[j],[]) then ( [ listbox2.Items.Add (s[j else begin ; o:=o+1 ; [x[o]:=s[j ; ( edit2.Text:=inttostr(o ;([listbox3.Items.Add(x[o ; end ; end ; end end.

[kachwahed]

وعليكم السلام ورحمة الله
أذكر رسالة الخطأ بالتحديد
هناك أخطاء عديدة:

for j:=1 to b do

ما هي قيمة b؟

; s[i]:=formtokenw.ListBox1.Items

ItemIndex لاستخراج السطر الحالي:

كود :

ListBox1.Items[ListBox1.ItemIndex]

أو السطر j

كود :

ListBox1.Items[j]

لإيجاد أعلى/أدنى قيمة في المصفوفة استخدم High/Low
+ لا أنصح باستخدام مصفوفة
أنشئ مشروعا جديدا نحاول فيه تحسين الفكرة...
بالتوفيق.

[شمس الغروب]

السلام
اخي شكرا لك
عملي يتطلب مصفوفة لحاجتي الى عناصرها في فورم اخر
ماهو الايعاز للحصول على عناصر المصفوفة مخزونة في ال listbox للفورم الاول عندما احتاجها في الفورم الثاني؟