Gozado.. eu já tinha tentado isso e não tinha funcionado
Agora funcionou.. vai saber.
Quando tiver a solução pronta, mando pra lista
Estou escrevendo em forma de componente
[]'s
Thiago
----- Original Message -----
From: "Alosi yarru" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, April 06, 2005 2:58 PM
Subject: Re: [delphi-br] Criar campos no CDS em tempo de execucao
Eu uso assim:
CDS.FieldDefs.Clear;
CDS.FieldDefs.Add('Codigo', ftInteger, 0, False);
CDS.FieldDefs.Add('Nome', ftString, 50, False);
...
CDS.CreateDataSet;
depois disso é só utilizar a tabela CDS temporária.
----- Original Message -----
From: Francisco Thiago
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, April 06, 2005 2:44 PM
Subject: Re: [delphi-br] Criar campos no CDS em tempo de execucao
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: <delphi-br@yahoogrupos.com.br>
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: delphi-br@yahoogrupos.com.br
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]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
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
