Delphi dicas

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

// 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!

por : Marlon Kleischmidt