Buenas, como el titulo dice necesito ayuda para limpiar los valores que contengan los controles como edit, memo, checkbox. Es como un reset para que todo este limpio. Se que debo hacer un bucle para cada control contenido en tab del page. El problema es que en el tab tengo tres (3) groupbox los cuales contienen los edit memo y dblookcombobox. Como le hago me conocimiento solo llega hasta el tab.
Código Delphi
[-]procedure TfrmPacientes.limpiar;
var
sheet : TTabSheet;
a,i : Integer;
begin
for i := 0 to PageControl1.ControlCount-1 do
begin
sheet := TTabSheet(PageControl1.Controls[i]);
for a := 0 to sheet.ControlCount-1 do
begin
if sheet.Controls[a] is TMemo then
(sheet.Controls[a] as TMemo).Text := '';
if sheet.Controls[a] is TEdit then
(sheet.Controls[a] as TEdit).Text := '';
if sheet.Controls[a] is TDBComboBox then
(sheet.Controls[a] as TDBComboBox).ItemIndex := -1;
if sheet.Controls[a] is TCheckBox then
(sheet.Controls[a] as TCheckBox).Checked := False;
end;
end;
end;
Encontré este código parecido al que busco pero no me limpia los valores
cualquier ayuda o comentario será de mucha ayuda