Em jQuery conseguimos fazer referencia a um elemento da forma abaixo:
var tipo = "B";
$("#campoTipo"+tipo).val("Teste");
que seria o mesmo que:
$("#campoTipoB").val("Teste");
Preciso em Delphi, desabilitar alguns botões que dependem de uma Query
procedure TFormCupom.BitBtn3Click(Sender: TObject);
var
ponteiro: Integer;
painel: TPanel;
begin
DM.FDConexao.Connected := true;
ponteiro := 0;
with DM.FDQ_Recentes do
begin
close;
sql.clear;
sql.add('SELECT * FROM rotativo');
open;
First; // primeiro
while not eof do
begin
inc(ponteiro);
painel := FindComponent('Pn' + IntToStr(ponteiro)) as TPanel;
if painel <> nil then
painel.Visible := false;
Next; // proximo
end;
end;
end;