Insert quot;dinamicoquot;

05/12/2003

1

bom dia povo,

bom eu fiz uns Edits q sao gerados em tempo de execusao ao clicar em um botao.
coloquei a propriedade Name destes edits recebendo uma string mais 1 contador qualquer, ficou mais ou menos assim:

procedure TFrmCadCliente.BtnNovoAClick(Sender: TObject);

Begin

   With TEdit.Create(Self) do
         Begin
            Left := 16;
            Name := ´EditRacaA´+IntToStr(ContTab);
            Top := 104;
            Parent := GroupBox;
            Width := 233;
            Height := 24;
            TabOrder := 1;
         end;

      With TEdit.Create(Self) do
         Begin
            Left := 264;
            Name := ´EditSobreA´+IntToStr(ContTab);
            Top := 48;
            Width := 201;
            Parent := GroupBox;
            Height := 24;
            TabOrder := 2;
          end;
End;



eu to querendo colocar o conteudo destes edits numa tabela ao clicar em um botao enviar por exemplo, so q nao esta dando certo de jeito nenhum.
tentei fazer os parametros receberem o conteudo dos Edits deste modo abaixo e de outros q tb nao funcionaram.
alguem tem alguma ideia pra me ajudar?
:D


      FrmDM.SQL.ParamByName(´nome´).AsString := EditRacaA+IntToStr(ContTab).Text;
      FrmDM.SQL.ParamByName(´snome´).AsString := EditSobreA+IntToStr(ContTab).Text;




Responder

Posts

05/12/2003

Nigro

Qual é o erro? Tentou debugar para ver se o nome dos Edits estão certo? ContTab é uma variável? Onde está declarada?


Responder

      FrmDM.SQL.ParamByName(´nome´).AsString := EditRacaA+IntToStr(ContTab).Text;
      FrmDM.SQL.ParamByName(´snome´).AsString := EditSobreA+IntToStr(ContTab).Text;



troque por:
      FrmDM.SQL.ParamByName(´nome´).AsString := TEdit(FindComponent(´EditRacaA+IntToStr(ContTab)´)).Text;
      FrmDM.SQL.ParamByName(´snome´).AsString := TEdit(FindComponent(´EditSobreA+IntToStr(ContTab)´)).Text;



FindComponent localiza um componente pelo nome


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira