Buscar por:

Método otimozado para montar todos os campos da tela a partir do banco de dados.

Código

// Coloque os nomes nos componetes com prefixos:

// ex:

// para um componente do tipo Tedit :  EDnome_cliente, EDemail.

// para um componente do tipo TLabel: Lbcodigo.

procedure TF_cliente.MontaCampos;

var

   i : Integer;

begin

   for i := 0 to ComponentCount -1 do

      if (Components[i] is TEdit) and (copy(Components[i].Name,1,2) = 'ED') then

          TEdit(Components[i]).Text := q_cliente.fieldByName(copy(Components[i].Name,3,length(Components[i].name))).AsString

      else

      if (Components[i] is TLabel) and (copy(Components[i].Name,1,2) = 'Lb') then

          TLabel(Components[i]).Caption := q_cliente.fieldByName(copy(Components[i].Name,3,length(Components[i].name))).AsString;

   AtivaBotoes(true);

end;

// boa sorte!