كيف يمكن عمل بحث في البرنامج ؟؟؟

بسم الله الرحمن الرحيم

اخي العزيز

في البداية ارحب بك معنا في هذا المنتدى

وإن شاء الله تسفيد منه وتفيد :)

على العموم

بالنسبة لعملية البحث فهي عملية بسيطة

فأذا كنت تريد ان تبحث في العنصر ListBox فقم بأستخدام هذا الكود

var
i:integer;
begin
for i:=0 to ListBox1.Count-1 do
if Edit1.Text=ListBox1.Items.Strings then begin
ListBox1.ItemIndex:=i;
exit;
break;
end;
ShowMessage('لايوجد اي سجل بهذا الأسم');

واما اذا كنت ان تقوم بعملية البحث في الكائن ListView فيمكنك استخدام هذا الكود

var
i:integer;
begin
for i:=0 to ListView1.Items.Count-1 do
if Edit1.Text=ListView1.Items.Caption then begin
ListView1.ItemIndex:=i;
exit;
break;
end;
ShowMessage('لايوجد اي سجل بهذا الأسم');

وتقبل اطيب تحياتي اخوك SUM

شكرا جزيلا أخي

كتر ألف خيرك