السلام عليكم
في ال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.
وعليكم السلام ورحمة الله
أذكر رسالة الخطأ بالتحديد
هناك أخطاء عديدة:
إقتباس : for j:=1 to b do
ما هي قيمة b؟
إقتباس :; s[i]:=formtokenw.ListBox1.Items
ItemIndex لاستخراج السطر الحالي:
كود :
ListBox1.Items[ListBox1.ItemIndex]
لإيجاد أعلى/أدنى قيمة في المصفوفة استخدم High/Low
+ لا أنصح باستخدام مصفوفة
أنشئ مشروعا جديدا نحاول فيه تحسين الفكرة...
بالتوفيق.
السلام
اخي شكرا لك
عملي يتطلب مصفوفة لحاجتي الى عناصرها في فورم اخر
ماهو الايعاز للحصول على عناصر المصفوفة مخزونة في ال listbox للفورم الاول عندما احتاجها في الفورم الثاني؟