Insert quot;dinamicoquot;

05/12/2003

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;

Gods

Curtir t�pico + 0

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

Gostei + 0

05/12/2003

Marcelo Saviski


      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

Gostei + 0