الوصول للحقول في جدول

ربما قد تساعدك

الطريقة مجربة على checkbox لكن هناك شيء من البطء لحلها يمكنك إضافة progressbar

لنفرض أن جدول يحتوي على 4 حقول الأول هو إسم العنصر (label.name) و الثاني هو عنوان العنصر باللغة العربية و الثالث الأتكليزية و الرابع الفرنسية

فيكون الكود

procedure TForm1.ArabicButton1Click(Sender: TObject);
var i : integer;
begin
// المرور على كل عناصر الفورم
for i := 0 to form1.ComponentCount -1 do
begin
// إختبار العنصر إن كان من نوع ليبل
if form1.Components is tlabel then
begin
// فلترة الجدول حيث تكون فيمة الحقل (name) مساوية لإسم العنصر (label.name)
table1.Filtered := false;
table1.Filter := 'name = '''+tlabel(form1.Components).name+'''';
table1.Filtered := true;
// يمكن إستبدالها بـ if table1.Recordcount > 0 then
if table1.Eof = false then
// تغيير عنوان العنصر بالإسم الجديد ( للغة أخرى تحدد حقل أخر أي بدل (arabic) نضع اللغة الثانية
tlabel(form1.Components).caption := table1.fieldbyname('arabic').asstring;
end;
end;
end;

أرجو أن يكون هذا ما تريد

سبب التعديل خطأ مطبعي و تعديل في شرح الكود :happy: