Hola
Código Delphi [-]Procedure Cambio;
var
dif, i : Integer;
comp : TComponent;
begin
Dif:= 5; for i := 1 to 10 do begin
comp := FindComponent('Edit' + IntToStr(i));
If TEdit(comp).text <> IntToStr(Dif) then
begin
TEdit(comp).Color:= clRed;
end;
end;
Saludos
Edito: Corregido.
__________________
Siempre Novato
Última edición por Caral fecha: 16-06-2011 a las 22:22:59.
|