Hola y bienvenido a Club Delphi
Por favor no olvides revisar nuestra
guía de estilo.
Un ejemplo simple que hace uso de tres grupos de cinco Edits:
Código Delphi
[-]
...
var
grupo1 : TPoint = (X:1;Y:5); grupo2 : TPoint = (X:6;Y:10); grupo3 : TPoint = (X:11; Y:15);
function TForm1.CheckEditContents(const DH: TPoint):Boolean;
var
i: Integer;
begin
Result := True;
for i := DH.X to DH.Y do
begin
if (TEdit(FindComponent('Edit'+IntToStr(i))).Text = '') then
begin
Result := False;
Exit;
end;
end;
end;
procedure TForm1.EnableDisableEdits(const DH: TPoint; Activo: Boolean);
var
i: Integer;
begin
for i := DH.X to DH.Y do
TEdit(FindComponent('Edit'+IntToStr(i))).Enabled := Activo;
end;
procedure TForm1.btnGrupo1Click(Sender: TObject);
begin
EnableDisableEdits(grupo2, CheckEditContents(grupo1));
end;
procedure TForm1.btnGrupo2Click(Sender: TObject);
begin
EnableDisableEdits(grupo3, CheckEditContents(grupo2));
end;
procedure TForm1.btnGrupo3Click(Sender: TObject);
begin
EnableDisableEdits(grupo1, CheckEditContents(grupo3));
end;
...
Saludos