Eu queria mesmo criar os campos em tempo de execu��o... e n�o passar o valor para eles...
mesmo assim, obrigado Francisco Thiago de Almeida Enter&Plug Inform�tica Divis�o: Desenvolvimento e Banco de dados MSN: [EMAIL PROTECTED] Skype: enterplug_thiago ----- Original Message ----- From: "Debora" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Wednesday, April 06, 2005 2:36 PM Subject: Re: [delphi-br] Criar campos no CDS em tempo de execucao With tbQualquer do //****JGANDO NA TAB AUXILIAR begin Active := true; Append; //******************************************************************** //*******ESTES CAMPOS EU USO NA TABELA TITULOS POR ISSO GRAVO + TARDE //*******NA OUTRA TABELA TBLTIT FieldByName('DATAPROT').AsString := DATETOSTR(DATEEDIT1.DATE); FieldByName('CODBAN').AsString := Copy(sLinhaTxt, 2, 3); FieldByName('CODCED').AsString := Copy(sLinhaTxt, 5, 15); FieldByName('CEDENTE').AsString := Copy(sLinhaTxt, 20, 45); FieldByName('SACADOR').AsString := Copy(sLinhaTxt, 65, 45); FieldByName('DOCSACAD').AsString := Copy(sLinhaTxt, 110, 14); FieldByName('DEVEDOR').AsString := Copy(sLinhaTxt, 298, 45); FieldByName('CPFDEVEDOR').AsString := Copy(sLinhaTxt, 346, 14); FieldByName('ENDSAC').AsString := Copy(sLinhaTxt, 124, 45); FieldByName('CEPSAC').AsString := Copy(sLinhaTxt, 169, 8); FieldByName('CIDSAC').AsString := Copy(sLinhaTxt, 177, 20); FieldByName('UFSAC').AsString := Copy(sLinhaTxt, 197, 2); FieldByName('NOSSONUM').AsString := Copy(sLinhaTxt, 199, 15); FieldByName('ESPTIT').AsString := Copy(sLinhaTxt, 214, 3); FieldByName('NUMTIT').AsString := Copy(sLinhaTxt, 217, 11); FieldByName('EMISTIT').AsSTRING := Copy(sLinhaTxt, 228, 8); FieldByName('VENCTIT').AsSTRING := Copy(sLinhaTxt, 236, 8); FieldByName('VALTIT').AsSTRING := Copy(sLinhaTxt, 247, 14); FieldByName('SALDO').AsSTRING := Copy(sLinhaTxt, 261, 14); FieldByName('PRACA').AsSTRING := Copy(sLinhaTxt, 275, 20); FieldByName('ENDOSSO').AsSTRING := Copy(sLinhaTxt, 295, 1); FieldByName('ACEITE').AsSTRING := Copy(sLinhaTxt, 296, 1); FieldByName('ENDDEVE').AsSTRING := Copy(sLinhaTxt, 371, 45); FieldByName('CEPDEV').AsSTRING := Copy(sLinhaTxt, 416, 8); FieldByName('CIDDEVE').AsSTRING := Copy(sLinhaTxt, 424, 20); FieldByName('UFDEVE').AsSTRING := Copy(sLinhaTxt, 444, 2); FieldByName('NUMCART').AsSTRING := Copy(sLinhaTxt, 446, 2); FieldByName('PROTCART').AsSTRING := Copy(sLinhaTxt, 448, 10); //**TRANSPORTO O VALOR DO PROTOCOLO PARA A VARIAVEL PROTCART FieldByName('PROTCART').AsSTRING := INTTOSTR(J); J:=J+1; //************************************************ FieldByName('CUSTAS').AsSTRING := Copy(sLinhaTxt, 467, 10); FieldByName('BAIRRODEV').AsSTRING := Copy(sLinhaTxt, 488, 20); FieldByName('IRREGULAR').AsSTRING := Copy(sLinhaTxt, 486, 2); //****ESTES CAMPOS EU NAO NECESSITO NA TABELA TITULOS APENAS PRECISO PRA //****MONTAR O ARQUIVO RETORNO FieldByName('TIPOMOEDA').AsSTRING := Copy(sLinhaTxt, 244, 3); FieldByName('NDEVE').AsSTRING := Copy(sLinhaTxt, 297, 1); FieldByName('IDDEV').AsSTRING := Copy(sLinhaTxt, 343, 3); FieldByName('DOCDEVE').AsSTRING := Copy(sLinhaTxt, 360, 11); FieldByName('TIPOO').AsSTRING := Copy(sLinhaTxt, 458, 1); FieldByName('DECPORT').AsSTRING := Copy(sLinhaTxt, 477, 1); FieldByName('DATAOCOR').AsSTRING := Copy(sLinhaTxt, 478, 8); FieldByName('CUSTASDIS').AsSTRING := Copy(sLinhaTxt, 508, 10); FieldByName('REGDIST').AsSTRING := Copy(sLinhaTxt, 518, 6); FieldByName('CUSTASGE').AsSTRING := Copy(sLinhaTxt, 524, 10); FieldByName('NOPERABAN').AsSTRING := Copy(sLinhaTxt, 534, 5); FieldByName('CONTRABAN').AsSTRING := Copy(sLinhaTxt, 539, 15); FieldByName('PARCELCON').AsSTRING := Copy(sLinhaTxt, 554, 3); FieldByName('TIPOLC').AsSTRING := Copy(sLinhaTxt, 557, 1); FieldByName('COMPLEIRREG').AsSTRING:= Copy(sLinhaTxt, 558, 8); FieldByName('COMPLREG').AsSTRING := Copy(sLinhaTxt, 566, 31); FieldByName('REGDIST').AsSTRING := Copy(sLinhaTxt, 518, 6); //vou gravar fisicamente************************************************ Post; ----- Original Message ----- From: Francisco Thiago To: [email protected] Sent: Wednesday, April 06, 2005 2:10 PM Subject: [delphi-br] Criar campos no CDS em tempo de execucao Caros amigos Preciso urgentemente de uma procedure que adicione os Fields ao ClientDataSet em tempo de execucao Da forma como estou tentando est� dando erro de acesso de memoria quando tento informar um valor...... Obrigado Thiago -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um servi�o oferecido por: S�o Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Bras�lia ------------------------------------------------------------------------------ Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que voc� faz do Yahoo! Grupos est� sujeito aos Termos do Servi�o do Yahoo!. [As partes desta mensagem que n�o continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que voc� faz do Yahoo! Grupos est� sujeito aos: http://br.yahoo.com/info/utos.html
