08-04-2018, 07:16 AM
12-04-2018, 05:58 PM
السلام عليكم
يمكن توضيح المشكل بدقة او ضع السورس لنفهم جيدا المقصود
يمكن توضيح المشكل بدقة او ضع السورس لنفهم جيدا المقصود
13-04-2018, 02:25 AM
السلام عليكم ورحمة الله
أخي الكريم جرب ما يلي:
والله هو الموفق.
معذرة منك أخي الكريــــــــم لقد سهوت في الرد ، الجواب الصحيـــــح إن شاء الله هـــــو كالتالي:
والله هـو الموفق
أخي الكريم جرب ما يلي:
كود :
procedure TForm1.Button1Click(Sender: TObject);
var I , C: Integer;
begin
C:=0;
for i := 0 to form1.ComponentCount-1 do
begin
if((form1.Components[i] as TLabel).font.color = clred) then
C := C+ 1;
edit1.text:= inttostr(C);
end;
end;والله هو الموفق.
معذرة منك أخي الكريــــــــم لقد سهوت في الرد ، الجواب الصحيـــــح إن شاء الله هـــــو كالتالي:
كود :
procedure TForm1.Button1Click(Sender: TObject);
var I , C: Integer;
begin
C:=0;
for i := 0 to form1.ComponentCount-1 do
begin
if( form1.Components[i] is Tlabel) and ((form1.Components[i] as TLabel).font.color = clred) then
C:= C+ 1;
edit1.text:= inttostr(C);
end;
end;والله هـو الموفق