|
Prueba con este ejemplo que acabo de preparar y verás como funciona.
procedure TForm1.Button1Click(Sender: TObject);
var
I,J:Integer;
begin
for i := 0 to DataSource1.DataSet.Fields.Count - 1 do
begin
if DataSource1.DataSet.FieldDefs.Items[i].Required then
begin
ShowMessage(DataSource1.DataSet.FieldDefs.Items[i].Name +'Requerido');
for j := 0 to ComponentCount - 1 do
begin
if Components[j].ClassNameIs('TDBEdit') then
begin
If DataSource1.DataSet.FieldDefs.Items[i].Name =(Components[j] as TDBEdit).DataField then
(Components[j] as TDBEdit).Color := clLime;
end;
end;
end;
end;
end;
Un Saludo.
|