Edit
Galera estou fezendo um gravação em um table onde tenho 50 campos com o nome Dia1, Dia2, Dia3 ... Dia50.
Tenho tb 50 CheckBox neste forme, como o nome sempre Dia + um numero fiz um for para gravar estes CheckBox na tabela assim.
For iL := 1 to 50 do
begin
Parameters.ParamByName(´Dia´+ IntToStr(iL)).Value := TCheckBox(´cbxDia´+ IntToStr(iL)).Checked;
end;
Meu probleme está em é passar o nome do objeto pois isso
TCheckBox(´cbxDia´+ IntToStr(iL)).Checked está dando erro.
Desde já obrigado!!!
Tenho tb 50 CheckBox neste forme, como o nome sempre Dia + um numero fiz um for para gravar estes CheckBox na tabela assim.
For iL := 1 to 50 do
begin
Parameters.ParamByName(´Dia´+ IntToStr(iL)).Value := TCheckBox(´cbxDia´+ IntToStr(iL)).Checked;
end;
Meu probleme está em é passar o nome do objeto pois isso
TCheckBox(´cbxDia´+ IntToStr(iL)).Checked está dando erro.
Desde já obrigado!!!
Leorez
Curtidas 0
Respostas
Leorez
29/04/2008
Galera ja resolvi !
TCheckBox(FindComponent(´edtDia´+ IntToStr(iL)+´Inicio´)).Checked := False;
TEdit(FindComponent(´edtDia´+ IntToStr(iL)+´Inicio´)).Clear;
TEdit(FindComponent(´edtDia´+ IntToStr(iL)+´Fim´)).Clear;
TCheckBox(FindComponent(´edtDia´+ IntToStr(iL)+´Inicio´)).Checked := False;
TEdit(FindComponent(´edtDia´+ IntToStr(iL)+´Inicio´)).Clear;
TEdit(FindComponent(´edtDia´+ IntToStr(iL)+´Fim´)).Clear;
GOSTEI 0