[delphi-br] Impressão de Relatório Erro no Delphi
Pessoal, no meu aplicativo Delphi reservei um DataModulo onde
coloquei os seguintes componentes:
DMRave
RvProject
TsqlQuery Select EMPRESA,ENDERECO,TELEFONE FROM EMPRESA
RvDataSetConnection APONTANDO PARA TsqlQuery
no Delphi
dmRave := TdmRave.Create(self);
dmRave.RvProject.SelectReport('Empresa',true);
dmRave.RvProject.Execute;
O relatório esta sendo executado corretamente, mas quando volto ao
aplicativo Delphi recebo o seguinte erro!
EDataBaseError with Message 'qryEmpresa' Operation not Allowed on a
unidirectional DataSet
Estou usando conexão DBEXPRESS onde a mesma não suporta navegação em
registros, creio que seja isso que esta acontecendo, mas porque ? em
que momento o Rave tenta navegar para traz nos registros ? alguém
pode me ajudar por favor.
Outra coisa, tem como eu executar este relatório no Delphi
Diretamente cair na Tela de Preview ou seja direto, sem antes
carregar a pequena tela chamada Output Options do Rave.
Desde Já Agradeço a Ajuda.
Walter
--
< 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]
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
[delphi-br] Versão do sistema automatico
Alguém aqui sabe se tem como incrementar a versão do sistema a cada compilação do mesmo? sem precisar ir ao menu projeto | Option | version Att Luis carlos [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] 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
Re: [delphi-br] SQLConnection com Oracle
SQLConnection e TQuery não combinam... SQLConnection = tecnologia DBExpress TQuery = tecnologia BDE Com SQLConection, vc utiliza mais 3 componentes nesta ordem: SQLQuery(esse aqui é o seu TQuery) ou SQLDataSet(onde você faz os Selects), DataSetProvider, ClientDataSet, DataSource. Atenciosamente, Danilo Rogerio Martins <[EMAIL PROTECTED]> escreveu:Bom dia pessoal !! Tentei fazer um teste de conexão do componente SQLConnection em uma base Oracle. O componente se conecta, mas ao abrir uma query ( que normalmente funciona com um TQuery na BDE ) em um ClientDataSet , aparece a mensagem "Operation not Applicable" Alguém sabe como resolver isso ?? Obrigado [As partes desta mensagem que não continham texto foram removidas] - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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] 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
Re: [delphi-br] Conteúdo da string (virar) c omponente emtempo de execução
Elazar, Deu tudo certinho,
exatamente como vc explicou, eu é que estava com os eventos mal posicionados
Grande abraço e obrigado.
Roberto
- Original Message -
From: Roberto Wazen (RJ)
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 29, 2006 5:35 PM
Subject: Re: [delphi-br] Conteúdo da string (virar) componente emtempo de
execução
Elazar,
O setfocus deu certo, foi para a célula (edit) correto.
Mais o problema é que não quero o foco e sim enviar para a celula o conteúdo
do calculo
If oVolta <> nil then begin
// oVolta := uVolta; se eu conseguisse fazer isto, Igualar os tipos
daria certo)
// da forma que esta em baixo, só vai para o primeiro edit e não para o
que deu origem
oVolta.text := edtResultato.Text;
End;
vou ver se repito o enunciado do problema, visto vc estar quase chegando na
solução:
tenho alguns edits edit1, edit 2,,, edit 3
escolho um deles (edit2) e coloco uma fórmula exemplo=3+4
o sender envia para um avaliador que joga o resultado em edtResultado.text
// até aqui funciona belezinha
Falta agora pegar o resultado e enviar para edit2.text := edtResultado;
O difícil é jogar para o edit2.text , sem usar Ifs, é claro.
Será que expliquei;;;
Roberto
- Original Message -
From: Elazar Dornelles Ceza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 29, 2006 5:06 PM
Subject: RES: [delphi-br] Conteúdo da string (virar) componente emtempo de
execução
Ok;
Complementando o seu codigo então.
{ Tenha declarado então duas variaveis globais }
Var
vVolta : String;
oVolta : TEdit;
{No on exit do seus Tedits; voce coloca o seguinte. }
vVolta := 'Conteudo de volta é ' + Tedit(Sender).Name + '.Text';
oVolta := Tedit(Sender);
{ no comando que voce disse que vai fazer voltar para o outro
edit anterior se coloca }
If oVolta <> nil then begin
oVolta.SetFocus;
End;
{ Não testei mas acho que rola assim }
Atenc.
Elazar;
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Roberto Wazen (RJ)
Enviada em: terça-feira, 29 de agosto de 2006 14:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Conteúdo da string (virar) componente emtempo
de execução
Elazar, obrigado pela resposta, entretanto, vc respondeu a primeira
parte da pergunta, que é carregar em VOLTA conforme o onexit de qualquer
uma das edits.
Fico ainda em dúvida, como vou retornar para a edit ( a que carregou
Volta) com um resultado que foi obtido em outro evento.
Tipo planilha, dados de uma célula (edits) vão para o cálculo e depois
voltam para aquela mesma célula.
Será que vou ter que usar ponteiros?
Roberto
- Original Message -
From: Elazar Dornelles Ceza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 29, 2006 2:11 PM
Subject: RES: [delphi-br] Conteúdo da string (virar) componente
emtempo de execução
Coloca no onexit o seguinte
Volta := 'Conteudo de volta é ' + Tedit(Sender).Name + '.Text';
Atenc.
Elazar
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de [EMAIL PROTECTED]
Enviada em: terça-feira, 29 de agosto de 2006 11:21
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Conteúdo da string (virar) componente emtempo de
execução
Var
(pública)
VOLTA : string;
On exit das edits
(carga de VOLTA com a edit que a carregou)
exemplo para edit2:
VOLTA := 'Edit2.Text';
On exit de algum evento:
If VOLTA = 'Edit1.Text' then
Edit11.Text := 'Conteúdo de volta é Edit1.text');
If VOLTA = 'Edit2.Text' then
Edit12.Text := 'Conteúdo de volta é Edit2.text');
If VOLTA = 'Edit13.Text' then
Edit3.Text := 'Conteúdo de volta é Edit3.text');
Pergunto aos colegas, como fazer isto de forma mais elegante? isto
é sem cases e ifs
Roberto
Aqui na Oi Internet você ganha ou ganha. Além de acesso grátis com
qualidade, ganha contas ilimitadas de email com 1 giga cada uma. Ganha
espaço ilimitado para hospedar sua página pessoal. Ganha flog, suporte
grátis e muito mais. Baixe grátis o Discador em
http://www.oi.com.br/discador e comece a ganhar.
Agora, se o seu negócio é voar na internet sem pagar uma fortuna,
assine Oi Internet banda larga a partir de R$ 9,90. Clique em
http://www.oi.com.br/bandalarga e aproveite essa moleza!
___
O Yahoo! está de cara nova. Ve
Re: [delphi-br] problemas em maquinas DELL com programas feito com o Delphi
Eu tenho máquina DELL e nada ocorre. Qual o erro que está ocorrendo? Especifique o erro para que possamos ajudar. - Original Message - From: "Pedro Alexandro RS" <[EMAIL PROTECTED]> To: Sent: Tuesday, August 29, 2006 5:30 PM Subject: [delphi-br] problemas em maquinas DELL com programas feito com o Delphi Pessoal, Meu programa, feito em delphi7 acessando Firebird, executa normalmanete nas maquinas antigas da empresa, mas em todas as novas (marca DELL) dá erro Run-Time e nem mostra a tela inicial.Isso acontece em todas as maquinas DELL compradas recentemente...independente de service pack do windows xp,de fireall... ( pois as antigas estao atualizadas tbem). Alguem tem uma ideia do que pode estar acontecendo??? (outro comportamento estranho:alguns programas de instalacao , como do interbase 6, acusam erro de run time tambem em todas essas maquinas novas) Obrigado, Pedro Alexandro. -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > 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] 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
RES: [delphi-br] problemas em maquinas DELL com programas feito com o Delphi
Por acaso você está usando clientdataset é não copiou o MIDAS.DLL Qual componente para acesso ao banco de dados você está usando?? []'s Andreano Lanusse System Engineer - Development Tools http://info.borland.com.br/borcon> Tel.: +55 (11) 2165 - 8000 / Mobile: +55 (11) 8196-5912 http://info.borland.com.br/borcon> [EMAIL PROTECTED] mailto:[EMAIL PROTECTED]> - www.borland.com.br http://www.borland.com.br/> Blogs: http://blogs.borland.com/andreanolanusse http://blogs.borland.com/andreanolanusse> Artigos: http://bdn.borland.com http://bdn.borland.com/> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Pedro Alexandro RS Enviada em: Tuesday, August 29, 2006 05:30 PM Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] problemas em maquinas DELL com programas feito com o Delphi Pessoal, Meu programa, feito em delphi7 acessando Firebird, executa normalmanete nas maquinas antigas da empresa, mas em todas as novas (marca DELL) dá erro Run-Time e nem mostra a tela inicial.Isso acontece em todas as maquinas DELL compradas recentemente...independente de service pack do windows xp,de fireall... ( pois as antigas estao atualizadas tbem). Alguem tem uma ideia do que pode estar acontecendo??? (outro comportamento estranho:alguns programas de instalacao , como do interbase 6, acusam erro de run time tambem em todas essas maquinas novas) Obrigado, Pedro Alexandro. [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] 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
Re: [delphi-br] Conteúdo da string (virar) c omponente emtempo de execução
Elazar,
O setfocus deu certo, foi para a célula (edit) correto.
Mais o problema é que não quero o foco e sim enviar para a celula o conteúdo do
calculo
If oVolta <> nil then begin
// oVolta := uVolta; se eu conseguisse fazer isto, Igualar os tipos daria
certo)
// da forma que esta em baixo, só vai para o primeiro edit e não para o que
deu origem
oVolta.text := edtResultato.Text;
End;
vou ver se repito o enunciado do problema, visto vc estar quase chegando na
solução:
tenho alguns edits edit1, edit 2,,, edit 3
escolho um deles (edit2) e coloco uma fórmula exemplo=3+4
o sender envia para um avaliador que joga o resultado em edtResultado.text
// até aqui funciona belezinha
Falta agora pegar o resultado e enviar para edit2.text := edtResultado;
O difícil é jogar para o edit2.text , sem usar Ifs, é claro.
Será que expliquei;;;
Roberto
- Original Message -
From: Elazar Dornelles Ceza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 29, 2006 5:06 PM
Subject: RES: [delphi-br] Conteúdo da string (virar) componente emtempo de
execução
Ok;
Complementando o seu codigo então.
{ Tenha declarado então duas variaveis globais }
Var
vVolta : String;
oVolta : TEdit;
{No on exit do seus Tedits; voce coloca o seguinte. }
vVolta := 'Conteudo de volta é ' + Tedit(Sender).Name + '.Text';
oVolta := Tedit(Sender);
{ no comando que voce disse que vai fazer voltar para o outro
edit anterior se coloca }
If oVolta <> nil then begin
oVolta.SetFocus;
End;
{ Não testei mas acho que rola assim }
Atenc.
Elazar;
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Roberto Wazen (RJ)
Enviada em: terça-feira, 29 de agosto de 2006 14:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Conteúdo da string (virar) componente emtempo
de execução
Elazar, obrigado pela resposta, entretanto, vc respondeu a primeira
parte da pergunta, que é carregar em VOLTA conforme o onexit de qualquer
uma das edits.
Fico ainda em dúvida, como vou retornar para a edit ( a que carregou
Volta) com um resultado que foi obtido em outro evento.
Tipo planilha, dados de uma célula (edits) vão para o cálculo e depois
voltam para aquela mesma célula.
Será que vou ter que usar ponteiros?
Roberto
- Original Message -
From: Elazar Dornelles Ceza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 29, 2006 2:11 PM
Subject: RES: [delphi-br] Conteúdo da string (virar) componente
emtempo de execução
Coloca no onexit o seguinte
Volta := 'Conteudo de volta é ' + Tedit(Sender).Name + '.Text';
Atenc.
Elazar
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de [EMAIL PROTECTED]
Enviada em: terça-feira, 29 de agosto de 2006 11:21
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Conteúdo da string (virar) componente emtempo de
execução
Var
(pública)
VOLTA : string;
On exit das edits
(carga de VOLTA com a edit que a carregou)
exemplo para edit2:
VOLTA := 'Edit2.Text';
On exit de algum evento:
If VOLTA = 'Edit1.Text' then
Edit11.Text := 'Conteúdo de volta é Edit1.text');
If VOLTA = 'Edit2.Text' then
Edit12.Text := 'Conteúdo de volta é Edit2.text');
If VOLTA = 'Edit13.Text' then
Edit3.Text := 'Conteúdo de volta é Edit3.text');
Pergunto aos colegas, como fazer isto de forma mais elegante? isto
é sem cases e ifs
Roberto
Aqui na Oi Internet você ganha ou ganha. Além de acesso grátis com
qualidade, ganha contas ilimitadas de email com 1 giga cada uma. Ganha
espaço ilimitado para hospedar sua página pessoal. Ganha flog, suporte
grátis e muito mais. Baixe grátis o Discador em
http://www.oi.com.br/discador e comece a ganhar.
Agora, se o seu negócio é voar na internet sem pagar uma fortuna,
assine Oi Internet banda larga a partir de R$ 9,90. Clique em
http://www.oi.com.br/bandalarga e aproveite essa moleza!
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
[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/d
[delphi-br] problemas em maquinas DELL com programas feito com o Delphi
Pessoal, Meu programa, feito em delphi7 acessando Firebird, executa normalmanete nas maquinas antigas da empresa, mas em todas as novas (marca DELL) dá erro Run-Time e nem mostra a tela inicial.Isso acontece em todas as maquinas DELL compradas recentemente...independente de service pack do windows xp,de fireall... ( pois as antigas estao atualizadas tbem). Alguem tem uma ideia do que pode estar acontecendo??? (outro comportamento estranho:alguns programas de instalacao , como do interbase 6, acusam erro de run time tambem em todas essas maquinas novas) Obrigado, Pedro Alexandro. -- < 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] 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
Re: [delphi-br] Uso da função TO_CHAR( )
Ok vou dar uma olhada !!!
Eduardo
Ulisses escreveu:
> Boa tarde!
>
> No Manual do PostgreSQL tem um comparativo de algumas funções do
> PostgreSQL, Oracle e MS SQL Server.
>
> Se ajudar, pode olhar aqui
> http://pgdocptbr.sourceforge.net/pg80/index.html
>
> Boa sorte.
>
> Ulisses
> -Mensagem Original-
> De: Eduardo
> Para: delphi-br@yahoogrupos.com.br
> Enviada em: terça-feira, 29 de agosto de 2006 13:25
> Assunto: Re: [delphi-br] Uso da função TO_CHAR( )
>
>
> Bom saber, esta não é primeira vez q vejo funções semelhantes entre
> Oracle e PostGreSQL, vc saberia me dizer quais as outras
>
>
>
>
> Eduardo
> Ps.: Não lembro qual era a outra.
>
> Ulisses escreveu:
> > Boa tarde!
> >
> > Afirmação equivocada, pois o PostGreSql também possui a função
> TO_CHAR().
> >
> > Se está usando o PostGreSQL com Delphi, pode formatar o resultado com
> > a função do Delphi formatfloat('00',campo);
> >
> > Boa sorte.
> >
> > Ulisses
> >
> >
> > -Mensagem Original-
> > De: Eduardo
> > Para: delphi-br@yahoogrupos.com.br
> > Enviada em: terça-feira, 29 de agosto de 2006 12:07
> > Assunto: Re: [delphi-br] Uso da função TO_CHAR( )
> >
> >
> > Para usar TO_CHAR Só pode ser Oracle !!!
> >
> > Só mais uma ideia, se vc resolver fazer uma função no delphi,
> pegue os
> > dados dos campos da tabela com este ( SELECT * FROM SYS.COL )
> >
> >
> > Algum tempo atraz fiz algo assim, mas fiz tudo pelo delphi, no
> meu caso
> > o usuário poderia escolher os campos, mas não tenho mais o
> codigo, se
> > tivesse te passava. Vejo o q é melhor para vc, o LPAD e RPAD
> atende tb.
> >
> >
> >
> > Eduardo
> >
> >
> > Pablo Madi Dias escreveu:
> > > Cara, qual o banco que vc está usando?
> > >
> > > Em 29/08/06, Sérgio <[EMAIL PROTECTED]> escreveu:
> > > >
> > > > Bom dia galera, blza?
> > > >
> > > > To com o segte probleminha: Tenho que gerar um arquivo TXT para
> > enviar a
> > > > um orgão publico. Cada campo deve estar previavemente formatado
> > com os
> > > > tamanhos especificados pelo orgão. No meu Select, fiz uso da
> função
> > > TO_CHAR(
> > > > ) para formatar as colunas. Por exemplo: To_Char(campo1,'0')
> > > para trazer
> > > > o resultado com 5 digitos. Porém, qdo uso essa função parece
> q ela
> > > INSERE UM
> > > > ESPAÇO EM BRANCO antes de iniciar o 1º digito retornado. No meu
> > > arquivo TXT
> > > > não pode conter esses "espaços", é uma coluna(campo) colada a
> > outra,
> > > aí vos
> > > > pergunto: Como que faço pra evitar esses espaços Formato os
> > > campos com
> > > > alguma outra função que nao seja o To_Char??? Espero contar com
> > > ajuda dos
> > > > senhores..
> > > >
> > > > Obrigado..
> > > >
> > > > Sérgio
> > > > Tecnologia da Informação - TI
> > > > e-mail: [EMAIL PROTECTED]
> > > > Usina Alta Mogiana S/A - Acucar e Alcool
> > > >
> > > >
> > > >
> > > >
> > > > [As partes desta mensagem que não continham texto foram
> removidas]
> > > >
> > > >
> > > >
> > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> >
> >
> >
> > ___
> > O Yahoo! está de cara nova. Venha conferir!
> > http://br.yahoo.com
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
>
>
> ___
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu
> celular. Registre seu aparelho agora!
> http://br.mobile.yahoo.com/mailalertas/
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
--
< 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]
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
RES: [delphi-br] Conteúdo da string (virar) componente emtempo de execução
Ok;
Complementando o seu codigo então.
{ Tenha declarado então duas variaveis globais }
Var
vVolta : String;
oVolta : TEdit;
{No on exit do seus Tedits; voce coloca o seguinte. }
vVolta := 'Conteudo de volta é ' + Tedit(Sender).Name + '.Text';
oVolta := Tedit(Sender);
{ no comando que voce disse que vai fazer voltar para o outro
edit anterior se coloca }
If oVolta <> nil then begin
oVolta.SetFocus;
End;
{ Não testei mas acho que rola assim }
Atenc.
Elazar;
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Roberto Wazen (RJ)
Enviada em: terça-feira, 29 de agosto de 2006 14:57
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Conteúdo da string (virar) componente emtempo
de execução
Elazar, obrigado pela resposta, entretanto, vc respondeu a primeira
parte da pergunta, que é carregar em VOLTA conforme o onexit de qualquer
uma das edits.
Fico ainda em dúvida, como vou retornar para a edit ( a que carregou
Volta) com um resultado que foi obtido em outro evento.
Tipo planilha, dados de uma célula (edits) vão para o cálculo e depois
voltam para aquela mesma célula.
Será que vou ter que usar ponteiros?
Roberto
- Original Message -
From: Elazar Dornelles Ceza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 29, 2006 2:11 PM
Subject: RES: [delphi-br] Conteúdo da string (virar) componente
emtempo de execução
Coloca no onexit o seguinte
Volta := 'Conteudo de volta é ' + Tedit(Sender).Name + '.Text';
Atenc.
Elazar
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de [EMAIL PROTECTED]
Enviada em: terça-feira, 29 de agosto de 2006 11:21
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Conteúdo da string (virar) componente emtempo de
execução
Var
(pública)
VOLTA : string;
On exit das edits
(carga de VOLTA com a edit que a carregou)
exemplo para edit2:
VOLTA := 'Edit2.Text';
On exit de algum evento:
If VOLTA = 'Edit1.Text' then
Edit11.Text := 'Conteúdo de volta é Edit1.text');
If VOLTA = 'Edit2.Text' then
Edit12.Text := 'Conteúdo de volta é Edit2.text');
If VOLTA = 'Edit13.Text' then
Edit3.Text := 'Conteúdo de volta é Edit3.text');
Pergunto aos colegas, como fazer isto de forma mais elegante? isto
é sem cases e ifs
Roberto
Aqui na Oi Internet você ganha ou ganha. Além de acesso grátis com
qualidade, ganha contas ilimitadas de email com 1 giga cada uma. Ganha
espaço ilimitado para hospedar sua página pessoal. Ganha flog, suporte
grátis e muito mais. Baixe grátis o Discador em
http://www.oi.com.br/discador e comece a ganhar.
Agora, se o seu negócio é voar na internet sem pagar uma fortuna,
assine Oi Internet banda larga a partir de R$ 9,90. Clique em
http://www.oi.com.br/bandalarga e aproveite essa moleza!
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
< 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]
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
[delphi-br] Kylix & Delphi
fl ae galera, eu estou fzndo 1 pj final q envolve linguagem Delphi pra XP e Linux (através do Kylix) só q eu num saco mto de Kylix naum, entao c alguem puder me dar alguma dica. Brigadão. - Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora! [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] 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
[delphi-br] Retornar o valor contido num campo Memo
Boa tarde pessoal ! Alguem sabe como fazer um campo memo (ou texto de tamanho grande) de um TDataSet retornar o valor realmente armazenado nele, em vez de "(MEMO)" ? Desde já, agradeço. -- < 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] 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
RES: RES: [delphi-br] Alguem ja fez um software que execute seu proprio banco em um cd...
Bom, acredito que isso é configurável, pq eu já vi inúmeros softwares de cd que usam access como base de dados, talvez de pra setar onde ele cria esse temporario Esses cds de lista telefônica, a maioria é em access -- Rodrigo Othávio Farias -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Enviada em: terça-feira, 29 de agosto de 2006 09:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Alguem ja fez um software que execute seu proprio banco em um cd... Access sem chance !!! Quando vc abre uma base access ele cria um arq temporario q é apagado quando vc fecha a conexão. Faca um teste crie uma base access no desktop e minimize depois. Eduardo Rodrigo O. Farias escreveu: > O pessoal que faz software em cd costuma usar o access > > > > > -- > Rodrigo Othávio Farias > > -Mensagem original- > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em > nome de Eduardo > Enviada em: segunda-feira, 28 de agosto de 2006 13:09 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Alguem ja fez um software que execute seu proprio > banco em um cd... > > Qual BD vc pretende usar > > Se for paradox vc consegue somente para leitura, o FireBird não tenho > certeza. Agora os demais acho muito dificil. > > Eduardo > > anderson roberto escreveu: > > Alguem ja fez um software que execute seu proprio banco em um cd... > > sem precisar ser instado em sua maquina local , ser executado somente > > em cd ... > > > > - > > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu > > celular. Registre seu aparelho agora! > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > ___ > Você quer respostas para suas perguntas? Ou você sabe muito e quer > compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! > http://br.answers.yahoo.com/ > > > -- > < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > > > > > Links do Yahoo! Grupos > > > > > > > > > > > ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > 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] 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
Re: [delphi-br] Verificar existencia de DIRETÓ RIO
uma dúvida, esse comando faz distinção de maiusculas e minusculas? - Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas! [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] 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
Re: [delphi-br] Lazarus para Windows
Alou Itamar, é sua vez de ajudar nosso amigo Marcos.Olha MArcos, conheço o Itamar Lins q conhece bem o Lazarus e o XHarbour, se ele ler a msg sabe como te ajudar. Espero que surta efeito minha tentativa. DEUS É PAI. []'s Allan msn [EMAIL PROTECTED] Skype allan_gabriel - Original Message - From: Marcos P. M. de Souza To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 29, 2006 11:13 AM Subject: [delphi-br] Lazarus para Windows Alguem conhece algum site bom sobre o Lazarus pra windows??? Baixei e instalei...é bem bacana...o melhor é q é grátis...compila mesmo. Fiz umas aplicações com o mesmo código do Delphi e funcionou perfeitamente. O executavel fica muito grande...demora um pouco...nao tem tantos componentes...mas funciona. Alguem ai manja disso? [As partes desta mensagem que não continham texto foram removidas] [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] 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
Re: [delphi-br] Tabelas Temporárias no Delphi através do ClientDataSet
Ok Anderson. Minha dúvida seria em colocar, (no meu caso) 5.000 registros em memória armazenados no Firebird. Não sei qual seria o comportamento, pois eu vou trabalhar com máquinas fracas e W98... Mas de qualquer maneira obrigado. Vou estudar este componente e tentar pegar exemplos de uso com o Firebird. Um Abraço, Em 28/08/06, Anderson RB <[EMAIL PROTECTED]> escreveu: > > Amigo... eu uso ClientDataSet abrindo arquivo do tipo binario dele proprio > e > manuseio ele sem nenhum tipo de problema, minha tabela tem cerca de 8000 > registros e roda legal > > - Original Message - > From: "Cezar Moniz" <[EMAIL PROTECTED]> > To: > Sent: Monday, August 28, 2006 3:44 PM > Subject: [delphi-br] Tabelas Temporárias no Delphi através do > ClientDataSet > > > PessoALL, > > Alguém tem opinião formada ou experiências usando Tabelas Temporárias no > Delphi através do ClientDataSet com Tabelas com mais de 5.000 registros? > > Alguma opinião se deve usar ou não neste caso em um DBGRID? > > -- > [ ]´s > Cezar Moniz > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.1.405 / Virus Database: 268.11.6/429 - Release Date: 28/08/2006 > > > > > > > ___ > Você quer respostas para suas perguntas? Ou você sabe muito e quer > compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! > http://br.answers.yahoo.com/ > > -- [ ]´s Cezar Moniz "Não se gerencia o que não se mede, não se mede o que não se define, não se define o que não se entende, não há sucesso no que não se gerencia." Deming IMPORTANTE: Este e-mail contém informações confidenciais e seu conteúdo é restrito ao destinatário, não devendo ser divulgado a terceiros. Se V.Sª recebeu esta mensagem por engano, favor entrar em contato conosco imediatamente. This e-mail contains confidential information intended only for the use of theindividual or entity named above. If received this e-mail in error, please notify immediately. [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] 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
[delphi-br] Firebird - Função Last
Alguém saberia me dizer se existe alguma função no Firebird que sirva para selecionar o último registro de uma tabele? O que preciso fazer é um select composto por 2 tabelas relacionadas, onde a segunda tem vários registros relacionados com a primeira. Preciso de um select que retorne todos os campos da primeira tabela e todos os campos do útimo registro da segunda tabela. Alguém tem alguma idéia de como fazer isso, ou onde posso encontrar a Resposta? Verifiquei que o Firebird tem uma função chamada LAST, mas não consegui usá-la. Pesquisei em alguns Fóruns e sites de Busca, mas não obtive resposta. Willer Alves da Costa. [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] 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
Re: [delphi-br] Uso da função TO_CHAR( )
Boa tarde!
No Manual do PostgreSQL tem um comparativo de algumas funções do PostgreSQL,
Oracle e MS SQL Server.
Se ajudar, pode olhar aqui http://pgdocptbr.sourceforge.net/pg80/index.html
Boa sorte.
Ulisses
-Mensagem Original-
De: Eduardo
Para: delphi-br@yahoogrupos.com.br
Enviada em: terça-feira, 29 de agosto de 2006 13:25
Assunto: Re: [delphi-br] Uso da função TO_CHAR( )
Bom saber, esta não é primeira vez q vejo funções semelhantes entre
Oracle e PostGreSQL, vc saberia me dizer quais as outras
Eduardo
Ps.: Não lembro qual era a outra.
Ulisses escreveu:
> Boa tarde!
>
> Afirmação equivocada, pois o PostGreSql também possui a função TO_CHAR().
>
> Se está usando o PostGreSQL com Delphi, pode formatar o resultado com
> a função do Delphi formatfloat('00',campo);
>
> Boa sorte.
>
> Ulisses
>
>
> -Mensagem Original-
> De: Eduardo
> Para: delphi-br@yahoogrupos.com.br
> Enviada em: terça-feira, 29 de agosto de 2006 12:07
> Assunto: Re: [delphi-br] Uso da função TO_CHAR( )
>
>
> Para usar TO_CHAR Só pode ser Oracle !!!
>
> Só mais uma ideia, se vc resolver fazer uma função no delphi, pegue os
> dados dos campos da tabela com este ( SELECT * FROM SYS.COL )
>
>
> Algum tempo atraz fiz algo assim, mas fiz tudo pelo delphi, no meu caso
> o usuário poderia escolher os campos, mas não tenho mais o codigo, se
> tivesse te passava. Vejo o q é melhor para vc, o LPAD e RPAD atende tb.
>
>
>
> Eduardo
>
>
> Pablo Madi Dias escreveu:
> > Cara, qual o banco que vc está usando?
> >
> > Em 29/08/06, Sérgio <[EMAIL PROTECTED]> escreveu:
> > >
> > > Bom dia galera, blza?
> > >
> > > To com o segte probleminha: Tenho que gerar um arquivo TXT para
> enviar a
> > > um orgão publico. Cada campo deve estar previavemente formatado
> com os
> > > tamanhos especificados pelo orgão. No meu Select, fiz uso da função
> > TO_CHAR(
> > > ) para formatar as colunas. Por exemplo: To_Char(campo1,'0')
> > para trazer
> > > o resultado com 5 digitos. Porém, qdo uso essa função parece q ela
> > INSERE UM
> > > ESPAÇO EM BRANCO antes de iniciar o 1º digito retornado. No meu
> > arquivo TXT
> > > não pode conter esses "espaços", é uma coluna(campo) colada a
> outra,
> > aí vos
> > > pergunto: Como que faço pra evitar esses espaços Formato os
> > campos com
> > > alguma outra função que nao seja o To_Char??? Espero contar com
> > ajuda dos
> > > senhores..
> > >
> > > Obrigado..
> > >
> > > Sérgio
> > > Tecnologia da Informação - TI
> > > e-mail: [EMAIL PROTECTED]
> > > Usina Alta Mogiana S/A - Acucar e Alcool
> > >
> > >
> > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
>
>
> ___
> O Yahoo! está de cara nova. Venha conferir!
> http://br.yahoo.com
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
[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]
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
Re: RES: [delphi-br] Alguem ja fez um software que execute seu proprio banco em um cd...
porque não tenta com um pen drive? Daniel. Eduardo <[EMAIL PROTECTED]> escreveu: Access sem chance !!! Quando vc abre uma base access ele cria um arq temporario q é apagado quando vc fecha a conexão. Faca um teste crie uma base access no desktop e minimize depois. Eduardo Rodrigo O. Farias escreveu: > O pessoal que faz software em cd costuma usar o access > > > > > -- > Rodrigo Othávio Farias > > -Mensagem original- > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em > nome de Eduardo > Enviada em: segunda-feira, 28 de agosto de 2006 13:09 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Alguem ja fez um software que execute seu proprio > banco em um cd... > > Qual BD vc pretende usar > > Se for paradox vc consegue somente para leitura, o FireBird não tenho > certeza. Agora os demais acho muito dificil. > > Eduardo > > anderson roberto escreveu: > > Alguem ja fez um software que execute seu proprio banco em um cd... > > sem precisar ser instado em sua maquina local , ser executado somente > > em cd ... > > > > - > > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu > > celular. Registre seu aparelho agora! > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > ___ > Você quer respostas para suas perguntas? Ou você sabe muito e quer > compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! > http://br.answers.yahoo.com/ > > > -- > < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > > > > > Links do Yahoo! Grupos > > > > > > > > > > > ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [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] 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
Re: [delphi-br] Conteúdo da string (virar) c omponente emtempo de execução
Elazar, obrigado pela resposta, entretanto, vc respondeu a primeira parte da pergunta, que é carregar em VOLTA conforme o onexit de qualquer uma das edits. Fico ainda em dúvida, como vou retornar para a edit ( a que carregou Volta) com um resultado que foi obtido em outro evento. Tipo planilha, dados de uma célula (edits) vão para o cálculo e depois voltam para aquela mesma célula. Será que vou ter que usar ponteiros? Roberto - Original Message - From: Elazar Dornelles Ceza To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 29, 2006 2:11 PM Subject: RES: [delphi-br] Conteúdo da string (virar) componente emtempo de execução Coloca no onexit o seguinte Volta := 'Conteudo de volta é ' + Tedit(Sender).Name + '.Text'; Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de [EMAIL PROTECTED] Enviada em: terça-feira, 29 de agosto de 2006 11:21 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Conteúdo da string (virar) componente emtempo de execução Var (pública) VOLTA : string; On exit das edits (carga de VOLTA com a edit que a carregou) exemplo para edit2: VOLTA := 'Edit2.Text'; On exit de algum evento: If VOLTA = 'Edit1.Text' then Edit11.Text := 'Conteúdo de volta é Edit1.text'); If VOLTA = 'Edit2.Text' then Edit12.Text := 'Conteúdo de volta é Edit2.text'); If VOLTA = 'Edit13.Text' then Edit3.Text := 'Conteúdo de volta é Edit3.text'); Pergunto aos colegas, como fazer isto de forma mais elegante? isto é sem cases e ifs Roberto Aqui na Oi Internet você ganha ou ganha. Além de acesso grátis com qualidade, ganha contas ilimitadas de email com 1 giga cada uma. Ganha espaço ilimitado para hospedar sua página pessoal. Ganha flog, suporte grátis e muito mais. Baixe grátis o Discador em http://www.oi.com.br/discador e comece a ganhar. Agora, se o seu negócio é voar na internet sem pagar uma fortuna, assine Oi Internet banda larga a partir de R$ 9,90. Clique em http://www.oi.com.br/bandalarga e aproveite essa moleza! ___ O Yahoo! está de cara nova. Venha conferir! http://br.yahoo.com [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] 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
Re: [delphi-br] Converter Anos em datas
Se vc pegar somente o ano da data e subtrair (-) a idade, você terá o ano que a pessoa nasceu. Ex.: 2006 - 14 = 1992 Muito simples... - Original Message - From: leandrorodrigodossantos To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 29, 2006 12:27 PM Subject: [delphi-br] Converter Anos em datas Bom dia Galera Eu tenho um pequeno probleminha Queri converter um numero de anos em um a data alguem sabe como fazer isso?? Tipo eu tenho la 14 anos e queria saber a qual data isso equivale, alguem poderia me ajudar Agradeço desde ja. Leandro [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] 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
RES: [delphi-br] Conteúdo da string (virar) componente emtempo de execução
Coloca no onexit o seguinte Volta := 'Conteudo de volta é ' + Tedit(Sender).Name + '.Text'; Atenc. Elazar -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de [EMAIL PROTECTED] Enviada em: terça-feira, 29 de agosto de 2006 11:21 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Conteúdo da string (virar) componente emtempo de execução Var (pública) VOLTA : string; On exit das edits (carga de VOLTA com a edit que a carregou) exemplo para edit2: VOLTA := 'Edit2.Text'; On exit de algum evento: If VOLTA = 'Edit1.Text' then Edit11.Text := 'Conteúdo de volta é Edit1.text'); If VOLTA = 'Edit2.Text' then Edit12.Text := 'Conteúdo de volta é Edit2.text'); If VOLTA = 'Edit13.Text' then Edit3.Text := 'Conteúdo de volta é Edit3.text'); Pergunto aos colegas, como fazer isto de forma mais elegante? isto é sem cases e ifs Roberto Aqui na Oi Internet você ganha ou ganha. Além de acesso grátis com qualidade, ganha contas ilimitadas de email com 1 giga cada uma. Ganha espaço ilimitado para hospedar sua página pessoal. Ganha flog, suporte grátis e muito mais. Baixe grátis o Discador em http://www.oi.com.br/discador e comece a ganhar. Agora, se o seu negócio é voar na internet sem pagar uma fortuna, assine Oi Internet banda larga a partir de R$ 9,90. Clique em http://www.oi.com.br/bandalarga e aproveite essa moleza! ___ O Yahoo! está de cara nova. Venha conferir! http://br.yahoo.com -- < 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] 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
Re: [delphi-br] Uso da função TO_CHAR( )
Bom, se o FireBird aceita UDFs, não seria difícil implementar algo nesse
sentido, ou seria ?
- Original Message -
From: "Eduardo" <[EMAIL PROTECTED]>
To:
Sent: Tuesday, August 29, 2006 1:25 PM
Subject: Re: [delphi-br] Uso da função TO_CHAR( )
> Bom saber, esta não é primeira vez q vejo funções semelhantes entre
> Oracle e PostGreSQL, vc saberia me dizer quais as outras
>
>
>
>
> Eduardo
> Ps.: Não lembro qual era a outra.
>
> Ulisses escreveu:
> > Boa tarde!
> >
> > Afirmação equivocada, pois o PostGreSql também possui a função
TO_CHAR().
> >
> > Se está usando o PostGreSQL com Delphi, pode formatar o resultado com
> > a função do Delphi formatfloat('00',campo);
> >
> > Boa sorte.
> >
> > Ulisses
> >
> >
> > -Mensagem Original-
> > De: Eduardo
> > Para: delphi-br@yahoogrupos.com.br
> > Enviada em: terça-feira, 29 de agosto de 2006 12:07
> > Assunto: Re: [delphi-br] Uso da função TO_CHAR( )
> >
> >
> > Para usar TO_CHAR Só pode ser Oracle !!!
> >
> > Só mais uma ideia, se vc resolver fazer uma função no delphi, pegue os
> > dados dos campos da tabela com este ( SELECT * FROM SYS.COL )
> >
> >
> > Algum tempo atraz fiz algo assim, mas fiz tudo pelo delphi, no meu
caso
> > o usuário poderia escolher os campos, mas não tenho mais o codigo, se
> > tivesse te passava. Vejo o q é melhor para vc, o LPAD e RPAD atende
tb.
> >
> >
> >
> > Eduardo
> >
> >
> > Pablo Madi Dias escreveu:
> > > Cara, qual o banco que vc está usando?
> > >
> > > Em 29/08/06, Sérgio <[EMAIL PROTECTED]> escreveu:
> > > >
> > > > Bom dia galera, blza?
> > > >
> > > > To com o segte probleminha: Tenho que gerar um arquivo TXT para
> > enviar a
> > > > um orgão publico. Cada campo deve estar previavemente formatado
> > com os
> > > > tamanhos especificados pelo orgão. No meu Select, fiz uso da
função
> > > TO_CHAR(
> > > > ) para formatar as colunas. Por exemplo: To_Char(campo1,'0')
> > > para trazer
> > > > o resultado com 5 digitos. Porém, qdo uso essa função parece q ela
> > > INSERE UM
> > > > ESPAÇO EM BRANCO antes de iniciar o 1º digito retornado. No meu
> > > arquivo TXT
> > > > não pode conter esses "espaços", é uma coluna(campo) colada a
> > outra,
> > > aí vos
> > > > pergunto: Como que faço pra evitar esses espaços Formato os
> > > campos com
> > > > alguma outra função que nao seja o To_Char??? Espero contar com
> > > ajuda dos
> > > > senhores..
> > > >
> > > > Obrigado..
> > > >
> > > > Sérgio
> > > > Tecnologia da Informação - TI
> > > > e-mail: [EMAIL PROTECTED]
> > > > Usina Alta Mogiana S/A - Acucar e Alcool
> > > >
> > > >
> > > >
> > > >
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > > >
> > > >
> > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> >
> >
> >
> > ___
> > O Yahoo! está de cara nova. Venha conferir!
> > http://br.yahoo.com
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
>
>
> ___
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
> http://br.mobile.yahoo.com/mailalertas/
>
>
>
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
>
>
> 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]
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
Re: [delphi-br] Converter Anos em datas
Depende. Se vc quer apenas subtrair uma quantidade de anos apartir de uma data. function DecYear(pData : TDateTime; pQtdYear : Integer = 1) : TDateTime; var Year, Month, Day: Word; begin DecodeDate(pData, Year, Month, Day); Year := Year - pQtdYear; Result := EncodeDate(Year, Month, Day); end; Caso vc queira a quantidade exata de dias ai vc tera q calcular a quantidade de dias ( por q temos anos com 365 e 366 dias ) por ano e depois subtrair da data original. Eduardo leandrorodrigodossantos escreveu: > Bom dia Galera > > Eu tenho um pequeno probleminha > > Queri converter um numero de anos em um a data alguem sabe como fazer > isso?? > > Tipo eu tenho la 14 anos e queria saber a qual data isso equivale, > alguem poderia me ajudar > > Agradeço desde ja. > > Leandro > > > > ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- < 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] 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
Re: [delphi-br] Uso da função TO_CHAR( )
Bom saber, esta não é primeira vez q vejo funções semelhantes entre
Oracle e PostGreSQL, vc saberia me dizer quais as outras
Eduardo
Ps.: Não lembro qual era a outra.
Ulisses escreveu:
> Boa tarde!
>
> Afirmação equivocada, pois o PostGreSql também possui a função TO_CHAR().
>
> Se está usando o PostGreSQL com Delphi, pode formatar o resultado com
> a função do Delphi formatfloat('00',campo);
>
> Boa sorte.
>
> Ulisses
>
>
> -Mensagem Original-
> De: Eduardo
> Para: delphi-br@yahoogrupos.com.br
> Enviada em: terça-feira, 29 de agosto de 2006 12:07
> Assunto: Re: [delphi-br] Uso da função TO_CHAR( )
>
>
> Para usar TO_CHAR Só pode ser Oracle !!!
>
> Só mais uma ideia, se vc resolver fazer uma função no delphi, pegue os
> dados dos campos da tabela com este ( SELECT * FROM SYS.COL )
>
>
> Algum tempo atraz fiz algo assim, mas fiz tudo pelo delphi, no meu caso
> o usuário poderia escolher os campos, mas não tenho mais o codigo, se
> tivesse te passava. Vejo o q é melhor para vc, o LPAD e RPAD atende tb.
>
>
>
> Eduardo
>
>
> Pablo Madi Dias escreveu:
> > Cara, qual o banco que vc está usando?
> >
> > Em 29/08/06, Sérgio <[EMAIL PROTECTED]> escreveu:
> > >
> > > Bom dia galera, blza?
> > >
> > > To com o segte probleminha: Tenho que gerar um arquivo TXT para
> enviar a
> > > um orgão publico. Cada campo deve estar previavemente formatado
> com os
> > > tamanhos especificados pelo orgão. No meu Select, fiz uso da função
> > TO_CHAR(
> > > ) para formatar as colunas. Por exemplo: To_Char(campo1,'0')
> > para trazer
> > > o resultado com 5 digitos. Porém, qdo uso essa função parece q ela
> > INSERE UM
> > > ESPAÇO EM BRANCO antes de iniciar o 1º digito retornado. No meu
> > arquivo TXT
> > > não pode conter esses "espaços", é uma coluna(campo) colada a
> outra,
> > aí vos
> > > pergunto: Como que faço pra evitar esses espaços Formato os
> > campos com
> > > alguma outra função que nao seja o To_Char??? Espero contar com
> > ajuda dos
> > > senhores..
> > >
> > > Obrigado..
> > >
> > > Sérgio
> > > Tecnologia da Informação - TI
> > > e-mail: [EMAIL PROTECTED]
> > > Usina Alta Mogiana S/A - Acucar e Alcool
> > >
> > >
> > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
>
>
>
> ___
> O Yahoo! está de cara nova. Venha conferir!
> http://br.yahoo.com
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
< 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]
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
Re: [delphi-br] Uso da função TO_CHAR( )
Boa tarde!
Afirmação equivocada, pois o PostGreSql também possui a função TO_CHAR().
Se está usando o PostGreSQL com Delphi, pode formatar o resultado com a função
do Delphi formatfloat('00',campo);
Boa sorte.
Ulisses
-Mensagem Original-
De: Eduardo
Para: delphi-br@yahoogrupos.com.br
Enviada em: terça-feira, 29 de agosto de 2006 12:07
Assunto: Re: [delphi-br] Uso da função TO_CHAR( )
Para usar TO_CHAR Só pode ser Oracle !!!
Só mais uma ideia, se vc resolver fazer uma função no delphi, pegue os
dados dos campos da tabela com este ( SELECT * FROM SYS.COL )
Algum tempo atraz fiz algo assim, mas fiz tudo pelo delphi, no meu caso
o usuário poderia escolher os campos, mas não tenho mais o codigo, se
tivesse te passava. Vejo o q é melhor para vc, o LPAD e RPAD atende tb.
Eduardo
Pablo Madi Dias escreveu:
> Cara, qual o banco que vc está usando?
>
> Em 29/08/06, Sérgio <[EMAIL PROTECTED]> escreveu:
> >
> > Bom dia galera, blza?
> >
> > To com o segte probleminha: Tenho que gerar um arquivo TXT para enviar a
> > um orgão publico. Cada campo deve estar previavemente formatado com os
> > tamanhos especificados pelo orgão. No meu Select, fiz uso da função
> TO_CHAR(
> > ) para formatar as colunas. Por exemplo: To_Char(campo1,'0')
> para trazer
> > o resultado com 5 digitos. Porém, qdo uso essa função parece q ela
> INSERE UM
> > ESPAÇO EM BRANCO antes de iniciar o 1º digito retornado. No meu
> arquivo TXT
> > não pode conter esses "espaços", é uma coluna(campo) colada a outra,
> aí vos
> > pergunto: Como que faço pra evitar esses espaços Formato os
> campos com
> > alguma outra função que nao seja o To_Char??? Espero contar com
> ajuda dos
> > senhores..
> >
> > Obrigado..
> >
> > Sérgio
> > Tecnologia da Informação - TI
> > e-mail: [EMAIL PROTECTED]
> > Usina Alta Mogiana S/A - Acucar e Alcool
> >
> >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
___
O Yahoo! está de cara nova. Venha conferir!
http://br.yahoo.com
[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]
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
Re: [delphi-br] Uso da função TO_CHAR( )
Aos que opinaram, obrigado pela dica!!! On Tue, 29 Aug 2006 12:07:38 -0300, Eduardo wrote > Para usar TO_CHAR Só pode ser Oracle !!! > > Só mais uma ideia, se vc resolver fazer uma função no delphi, pegue os > dados dos campos da tabela com este ( SELECT * FROM SYS.COL ) > > Algum tempo atraz fiz algo assim, mas fiz tudo pelo delphi, no meu caso > o usuário poderia escolher os campos, mas não tenho mais o codigo, se > tivesse te passava. Vejo o q é melhor para vc, o LPAD e RPAD atende tb. > > Eduardo > > Pablo Madi Dias escreveu: > > Cara, qual o banco que vc está usando? > > > > Em 29/08/06, Sérgio <[EMAIL PROTECTED]> escreveu: > > > > > > Bom dia galera, blza? > > > > > > To com o segte probleminha: Tenho que gerar um arquivo TXT para enviar a > > > um orgão publico. Cada campo deve estar previavemente formatado com os > > > tamanhos especificados pelo orgão. No meu Select, fiz uso da função > > TO_CHAR( > > > ) para formatar as colunas. Por exemplo: To_Char(campo1,'0') > > para trazer > > > o resultado com 5 digitos. Porém, qdo uso essa função parece q ela > > INSERE UM > > > ESPAÇO EM BRANCO antes de iniciar o 1º digito retornado. No meu > > arquivo TXT > > > não pode conter esses "espaços", é uma coluna(campo) colada a outra, > > aí vos > > > pergunto: Como que faço pra evitar esses espaços Formato os > > campos com > > > alguma outra função que nao seja o To_Char??? Espero contar com > > ajuda dos > > > senhores.. > > > > > > Obrigado.. > > > > > > Sérgio > > > Tecnologia da Informação - TI > > > e-mail: [EMAIL PROTECTED] > > > Usina Alta Mogiana S/A - Acucar e Alcool > > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > ___ > O Yahoo! está de cara nova. Venha conferir! > http://br.yahoo.com > Sérgio Tecnologia da Informação - TI Tel.: 16 3810 1060 e-mail: [EMAIL PROTECTED] Usina Alta Mogiana S/A - Acucar e Alcool [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] 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
[delphi-br] Converter Anos em datas
Bom dia Galera Eu tenho um pequeno probleminha Queri converter um numero de anos em um a data alguem sabe como fazer isso?? Tipo eu tenho la 14 anos e queria saber a qual data isso equivale, alguem poderia me ajudar Agradeço desde ja. Leandro -- < 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] 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
[delphi-br] Converter Anos em datas
Bom dia Galera Eu tenho um pequeno probleminha Queri converter um numero de anos em um a data alguem sabe como fazer isso?? Tipo eu tenho la 14 anos e queria saber a qual data isso equivale, alguem poderia me ajudar Agradeço desde ja. Leandro -- < 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] 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
Re: [delphi-br] Uso da função TO_CHAR( )
Para usar TO_CHAR Só pode ser Oracle !!! Só mais uma ideia, se vc resolver fazer uma função no delphi, pegue os dados dos campos da tabela com este ( SELECT * FROM SYS.COL ) Algum tempo atraz fiz algo assim, mas fiz tudo pelo delphi, no meu caso o usuário poderia escolher os campos, mas não tenho mais o codigo, se tivesse te passava. Vejo o q é melhor para vc, o LPAD e RPAD atende tb. Eduardo Pablo Madi Dias escreveu: > Cara, qual o banco que vc está usando? > > Em 29/08/06, Sérgio <[EMAIL PROTECTED]> escreveu: > > > > Bom dia galera, blza? > > > > To com o segte probleminha: Tenho que gerar um arquivo TXT para enviar a > > um orgão publico. Cada campo deve estar previavemente formatado com os > > tamanhos especificados pelo orgão. No meu Select, fiz uso da função > TO_CHAR( > > ) para formatar as colunas. Por exemplo: To_Char(campo1,'0') > para trazer > > o resultado com 5 digitos. Porém, qdo uso essa função parece q ela > INSERE UM > > ESPAÇO EM BRANCO antes de iniciar o 1º digito retornado. No meu > arquivo TXT > > não pode conter esses "espaços", é uma coluna(campo) colada a outra, > aí vos > > pergunto: Como que faço pra evitar esses espaços Formato os > campos com > > alguma outra função que nao seja o To_Char??? Espero contar com > ajuda dos > > senhores.. > > > > Obrigado.. > > > > Sérgio > > Tecnologia da Informação - TI > > e-mail: [EMAIL PROTECTED] > > Usina Alta Mogiana S/A - Acucar e Alcool > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > ___ O Yahoo! está de cara nova. Venha conferir! http://br.yahoo.com -- < 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] 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
Re: [delphi-br] Uso da função TO_CHAR( )
Tente assim:
/* Sentença( SELECT LPAD(, TAMANHO FIXO, VALOR A SER
USANDO PARA PREENCHER DIFERENÇA /*
/* para inserir 0 a esqerda no caso de campos numericos */
select LPAD('1500', 10, '0') from dual
/* para inserir texto a direita no caso de campos numericos */
select RPAD('CAMPO', 10, ' ') from dual
Eduardo
Sérgio escreveu:
> Bom dia galera, blza?
>
> To com o segte probleminha: Tenho que gerar um arquivo TXT para enviar
> a um orgão publico. Cada campo deve estar previavemente formatado com
> os tamanhos especificados pelo orgão. No meu Select, fiz uso da função
> TO_CHAR( ) para formatar as colunas. Por exemplo:
> To_Char(campo1,'0') para trazer o resultado com 5 digitos. Porém,
> qdo uso essa função parece q ela INSERE UM ESPAÇO EM BRANCO antes de
> iniciar o 1º digito retornado. No meu arquivo TXT não pode conter
> esses "espaços", é uma coluna(campo) colada a outra, aí vos pergunto:
> Como que faço pra evitar esses espaços Formato os campos com
> alguma outra função que nao seja o To_Char??? Espero contar com ajuda
> dos senhores..
>
> Obrigado..
>
> Sérgio
> Tecnologia da Informação - TI
> e-mail: [EMAIL PROTECTED]
> Usina Alta Mogiana S/A - Acucar e Alcool
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
___
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
< 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]
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
RES: [delphi-br] Uso da função TO_CHAR( )
Caro Sergio,
Veja se este exemplo pode lhe ajudar.
[]'s,
Gilson
procedure TFrmPrincipal.btnExportarClick(Sender: TObject);
Var
F: TextFile;
Vcampo1, vcampo2 : String;
Begin
Query.SQL.Clear;
Query.SQL.Add('select * from tabela');
Query.Open;
memo1.Lines.Clear;
Query.First;
while not Query.Eof do
begin
Vcampo1 := Query.FieldbyName('campo1).AsString;
while length(Vcampo1)< 6 DO vcampo1 := vcampo1 + ' ' ; // Faz com q a
//estring fique com o tamanho 6 mesmo q o conteudo dele seja inferior a
///isso.
Vcampo2 := Query.FieldbyName('campo2).AsString;
while length(Vcampo2)< 10 DO vcampo2 := vcampo2 + ' ' ;
Memo1.Lines.Add(vcampo1+vcampo2);
Query.Next;
end;
AssignFile(F, 'c:\arquivo.txt');
Rewrite(F);
WriteLn(F,MEMO1.TEXT);
CloseFile(F);
End;
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Sérgio
Enviada em: terça-feira, 29 de agosto de 2006 10:45
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Uso da função TO_CHAR( )
Bom dia galera, blza?
To com o segte probleminha: Tenho que gerar um arquivo TXT para enviar a um
orgão publico. Cada campo deve estar previavemente formatado com os tamanhos
especificados pelo orgão. No meu Select, fiz uso da função TO_CHAR( ) para
formatar as colunas. Por exemplo: To_Char(campo1,'0') para trazer o
resultado com 5 digitos. Porém, qdo uso essa função parece q ela INSERE UM
ESPAÇO EM BRANCO antes de iniciar o 1º digito retornado. No meu arquivo TXT
não pode conter esses "espaços", é uma coluna(campo) colada a outra, aí vos
pergunto: Como que faço pra evitar esses espaços Formato os campos com
alguma outra função que nao seja o To_Char??? Espero contar com ajuda dos
senhores..
Obrigado..
Sérgio
Tecnologia da Informação - TI
e-mail: [EMAIL PROTECTED]
Usina Alta Mogiana S/A - Acucar e Alcool
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
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]
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
Re: [delphi-br] Uso da função TO_CHAR( )
Cara, qual o banco que vc está usando? Em 29/08/06, Sérgio <[EMAIL PROTECTED]> escreveu: > > Bom dia galera, blza? > > To com o segte probleminha: Tenho que gerar um arquivo TXT para enviar a > um orgão publico. Cada campo deve estar previavemente formatado com os > tamanhos especificados pelo orgão. No meu Select, fiz uso da função TO_CHAR( > ) para formatar as colunas. Por exemplo: To_Char(campo1,'0') para trazer > o resultado com 5 digitos. Porém, qdo uso essa função parece q ela INSERE UM > ESPAÇO EM BRANCO antes de iniciar o 1º digito retornado. No meu arquivo TXT > não pode conter esses "espaços", é uma coluna(campo) colada a outra, aí vos > pergunto: Como que faço pra evitar esses espaços Formato os campos com > alguma outra função que nao seja o To_Char??? Espero contar com ajuda dos > senhores.. > > Obrigado.. > > Sérgio > Tecnologia da Informação - TI > e-mail: [EMAIL PROTECTED] > Usina Alta Mogiana S/A - Acucar e Alcool > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > [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] 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
[delphi-br] Lazarus para Windows
Alguem conhece algum site bom sobre o Lazarus pra windows??? Baixei e instalei...é bem bacana...o melhor é q é grátis...compila mesmo. Fiz umas aplicações com o mesmo código do Delphi e funcionou perfeitamente. O executavel fica muito grande...demora um pouco...nao tem tantos componentes...mas funciona. Alguem ai manja disso? [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] 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
[delphi-br] Conteúdo da string (virar) componente em tempo de execução
Var (pública) VOLTA : string; On exit das edits (carga de VOLTA com a edit que a carregou) exemplo para edit2: VOLTA := 'Edit2.Text'; On exit de algum evento: If VOLTA = 'Edit1.Text' then Edit11.Text := 'Conteúdo de volta é Edit1.text'); If VOLTA = 'Edit2.Text' then Edit12.Text := 'Conteúdo de volta é Edit2.text'); If VOLTA = 'Edit13.Text' then Edit3.Text := 'Conteúdo de volta é Edit3.text'); Pergunto aos colegas, como fazer isto de forma mais elegante? isto é sem cases e ifs Roberto Aqui na Oi Internet você ganha ou ganha. Além de acesso grátis com qualidade, ganha contas ilimitadas de email com 1 giga cada uma. Ganha espaço ilimitado para hospedar sua página pessoal. Ganha flog, suporte grátis e muito mais. Baixe grátis o Discador em http://www.oi.com.br/discador e comece a ganhar. Agora, se o seu negócio é voar na internet sem pagar uma fortuna, assine Oi Internet banda larga a partir de R$ 9,90. Clique em http://www.oi.com.br/bandalarga e aproveite essa moleza! -- < 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] 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
[delphi-br] Uso da função TO_CHAR( )
Bom dia galera, blza? To com o segte probleminha: Tenho que gerar um arquivo TXT para enviar a um orgão publico. Cada campo deve estar previavemente formatado com os tamanhos especificados pelo orgão. No meu Select, fiz uso da função TO_CHAR( ) para formatar as colunas. Por exemplo: To_Char(campo1,'0') para trazer o resultado com 5 digitos. Porém, qdo uso essa função parece q ela INSERE UM ESPAÇO EM BRANCO antes de iniciar o 1º digito retornado. No meu arquivo TXT não pode conter esses "espaços", é uma coluna(campo) colada a outra, aí vos pergunto: Como que faço pra evitar esses espaços Formato os campos com alguma outra função que nao seja o To_Char??? Espero contar com ajuda dos senhores.. Obrigado.. Sérgio Tecnologia da Informação - TI e-mail: [EMAIL PROTECTED] Usina Alta Mogiana S/A - Acucar e Alcool [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] 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
Re: [delphi-br] Tabelas Temporárias no Delphi atra vés do ClientDataSet
Eu utilizo e nunca tive problema... 100.000 500.000... o limite é a memória disponível... se estourar ele começa a gravar em cachê no HD... mas aí fica muito lento... - Original Message - From: Cezar Moniz To: delphi-br@yahoogrupos.com.br Sent: Monday, August 28, 2006 3:44 PM Subject: [delphi-br] Tabelas Temporárias no Delphi através do ClientDataSet PessoALL, Alguém tem opinião formada ou experiências usando Tabelas Temporárias no Delphi através do ClientDataSet com Tabelas com mais de 5.000 registros? Alguma opinião se deve usar ou não neste caso em um DBGRID? -- [ ]´s Cezar Moniz [As partes desta mensagem que não continham texto foram removidas] [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] 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
Re: [delphi-br] Problema com interfaces.
Resaltando, caso vc trabalhe com variáveis de tipo INTERFACE no private de um
form ou datamodule, coloque no OnDestroy do seu form a atribuição NIL para a
variável, caso não fizer isso, poderão ocorrer erros muito estranhos no
fechamento do seu Form/DataModule.
Tive uma baita dor de cabeça até descobrir isso.
- Original Message -
From: Ricardo Lima Mariz
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 29, 2006 9:55 AM
Subject: Re: [delphi-br] Problema com interfaces.
Elazar obrigado pela ajuda!
Esse código não é o meu eu coloquei ai apenas para exemplificar o meu
problema, logo abaixo eu coloquei o texto "Implementos os metodos da
interface", os metodos que reclamou ai eu os implementei, mas eu ja consegui
resolver, o problema era que eu tava dando um cast de um objecto para uma
interface, e isso tava gerando os erros.
Valeu pela força.
- Original Message -
From: Elazar Dornelles Ceza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 29, 2006 9:05 AM
Subject: RES: [delphi-br] Problema com interfaces.
[***]
Estou tentando trabalhar com interfaces, mas ta complicado.
Tenho
MinhaInterface=interface
function GetNome:String;
procedure SetNome(Value : String);
property nome:string read GetNome write SetNome;
end;
MeuObjeto=Class(TInterfacedObject,MinhaInterface);
end;
Implementos os metodos da interface.
Faço um codigo assim.
Var
Obj : MeuObjeto;
begin
Obj := MeuObjeto.create;
Obj.Nome := 'Teste';
ShowMessage(Obj.Nome);///Nesse ponto da access violation.
end;
Está dando acess violation quando vou tentar da um showmessage mostrando
o conteudo de Obj.nome, quando eu vou debugando e paro com o mouse em
cima de Obj.Nome ele mostra o conteudo certo, não sei o pode está
acontecendo.
Outro problema é quando eu tento dar um free em obj também da access
violation.
Qual pode da uma lúz pra solucionar esses problemas?
At.
Ricardo Lima
[*]
Amigo, não leva a mal não mas como conseguiu compilar isto
...o compilador do delphi (pelo menos aqui pra mim) dis que eu não
implementei os metodos da interface...
Pra funcionar voce tem que fazer assim olha.
{ Interfaces funcionam como um contrato apenas...um contrato que duas
aplicações
entende os seus 'termos' para poder utiliza-la Por isso em uma
interface
não se implementa nada, apenas declara os metodos...(metodos estes
que serão
implementados no objetos que implementar esta interface)}
MinhaInterface = interface
function GetNome:String;
procedure SetNome(Value : String);
property Nome : string read GetNome write SetNome;
end;
{ Ok, dada a interface acima agora eu vou criar um objeto pra
implementar o 'contrato',
ou aliar, criar os mecanismos que vai fazer o contrato funcionar.
Normalmente as interfaces podem ser utilizadas em Units separadas
dos codigos fontes...
Mas necessárias para compilar o objeto }
MeuObjeto = class(TInterfacedObject, MinhaInterface)
private
Fnome : String // Aqui tem a propriedade
public
{ Estes proximos dois procedimentos DEVEM existir em TODOS os
objetos que
forem implementar a MinhaInterface (lembra do contrato)}
function GetNome:String;
procedure SetNome(Value : String);
property Nome : String read GetNome write SetNome;
end;
{...}
implementation
{...}
function MeuObjeto.GetNome:String;
begin
Result := FNome;
end;
procedure MeuObjeto.SetNome(Value : String);
begin
FNome := Value;
End;
{ ai voce declara uma variavel do seu objeto }
var
vObjeto : MinhaInterface;
begin
vObjeto := MeuObjeto.Create;
vObjeto.Nome := 'Elazar';
{...}
ShowMessage('O nome do objeto é: ' vObjeto.Nome);
Certo meu camarada...
Elazar
___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale
o discador agora!
http://br.acesso.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
[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]
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á suje
Re: RES: [delphi-br] Alguem ja fez um software que execute seu proprio banco em um cd...
mysql vc tambem consegue Em 29/08/06, Eduardo <[EMAIL PROTECTED]> escreveu: > > Access sem chance !!! > > Quando vc abre uma base access ele cria um arq temporario q é apagado > quando vc fecha a conexão. > > Faca um teste crie uma base access no desktop e minimize depois. > > > Eduardo > > Rodrigo O. Farias escreveu: > > O pessoal que faz software em cd costuma usar o access > > > > > > > > > > -- > > Rodrigo Othávio Farias > > > > -Mensagem original- > > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] > Em > > nome de Eduardo > > Enviada em: segunda-feira, 28 de agosto de 2006 13:09 > > Para: delphi-br@yahoogrupos.com.br > > Assunto: Re: [delphi-br] Alguem ja fez um software que execute seu > proprio > > banco em um cd... > > > > Qual BD vc pretende usar > > > > Se for paradox vc consegue somente para leitura, o FireBird não tenho > > certeza. Agora os demais acho muito dificil. > > > > Eduardo > > > > anderson roberto escreveu: > > > Alguem ja fez um software que execute seu proprio banco em um cd... > > > sem precisar ser instado em sua maquina local , ser executado somente > > > em cd ... > > > > > > - > > > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu > > > celular. Registre seu aparelho agora! > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > > > > > > > > ___ > > Você quer respostas para suas perguntas? Ou você sabe muito e quer > > compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! > > http://br.answers.yahoo.com/ > > > > > > -- > > < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > > > > > > > > > Links do Yahoo! Grupos > > > > > > > > > > > > > > > > > > > > > > > > > > > > > ___ > Você quer respostas para suas perguntas? Ou você sabe muito e quer > compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! > http://br.answers.yahoo.com/ > > -- Iann DBA Postgresql, mysql, Firebird PHP, JAVA, Delphi , ColdFusion programmer PostgreSQL Brasil http://www.postgresql.org.br Delphi http://www.delphi.eti.br [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] 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
Re: RES: [delphi-br] Alguem ja fez um software que execute seu proprio banco em um cd...
Access sem chance !!! Quando vc abre uma base access ele cria um arq temporario q é apagado quando vc fecha a conexão. Faca um teste crie uma base access no desktop e minimize depois. Eduardo Rodrigo O. Farias escreveu: > O pessoal que faz software em cd costuma usar o access > > > > > -- > Rodrigo Othávio Farias > > -Mensagem original- > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em > nome de Eduardo > Enviada em: segunda-feira, 28 de agosto de 2006 13:09 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Alguem ja fez um software que execute seu proprio > banco em um cd... > > Qual BD vc pretende usar > > Se for paradox vc consegue somente para leitura, o FireBird não tenho > certeza. Agora os demais acho muito dificil. > > Eduardo > > anderson roberto escreveu: > > Alguem ja fez um software que execute seu proprio banco em um cd... > > sem precisar ser instado em sua maquina local , ser executado somente > > em cd ... > > > > - > > Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu > > celular. Registre seu aparelho agora! > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > ___ > Você quer respostas para suas perguntas? Ou você sabe muito e quer > compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! > http://br.answers.yahoo.com/ > > > -- > < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > > > > > Links do Yahoo! Grupos > > > > > > > > > > > ___ Você quer respostas para suas perguntas? Ou você sabe muito e quer compartilhar seu conhecimento? Experimente o Yahoo! Respostas ! http://br.answers.yahoo.com/ -- < 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] 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
Re: [delphi-br] Problema com interfaces.
Marcos obrigado pela força. Eu consegui resolver esse proboela, era que eu tava dando um cast de um objecto para uma interface, e isso tava gerando os erros. - Original Message - From: Marcos Douglas To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 29, 2006 9:28 AM Subject: Re: [delphi-br] Problema com interfaces. Ricardo, Pelo código que vc mostrou, o problema não deve ser a interface, pois vc nem utilizou ela no código. Veja se vc está construindo o objeto corretamente (no seu código real, pois o exemplo parece estar certo) e se não está destruindo o mesmo em algum outro lugar antes de utilizar. Se quiser, pode me enviar o código real pra eu dar uma olhada. -- Marcos Douglas Mensagem Original From: "Ricardo Lima Mariz" <[EMAIL PROTECTED]> To: delphi-br@yahoogrupos.com.br Sent: Seg, Agosto 28, 2006 7:56 pm Subject: [delphi-br] Problema com interfaces. > Estou tentando trabalhar com interfaces, mas ta complicado. > > Tenho > MinhaInterface=interface >function GetNome:String; >procedure SetNome(Value : String); >property nome:string read GetNome write SetNome; > end; > > MeuObjeto=Class(TInterfacedObject,MinhaInterface); > end; > > Implementos os metodos da interface. > > Faço um codigo assim. > > Var > Obj : MeuObjeto; > begin >Obj := MeuObjeto.create; >Obj.Nome := 'Teste'; >ShowMessage(Obj.Nome);///Nesse ponto da access violation. > end; > > Está dando acess violation quando vou tentar da um showmessage mostrando o > conteudo de Obj.nome, quando eu vou debugando e paro com o mouse em cima de > Obj.Nome ele mostra o conteudo certo, não sei o pode está acontecendo. > > Outro problema é quando eu tento dar um free em obj também da access > violation. > > Qual pode da uma lúz pra solucionar esses problemas? > > At. > Ricardo Lima > > [As partes desta mensagem que não continham texto foram removidas] > > [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] 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
Re: [delphi-br] Problema com interfaces.
Elazar obrigado pela ajuda!
Esse código não é o meu eu coloquei ai apenas para exemplificar o meu problema,
logo abaixo eu coloquei o texto "Implementos os metodos da interface", os
metodos que reclamou ai eu os implementei, mas eu ja consegui resolver, o
problema era que eu tava dando um cast de um objecto para uma interface, e isso
tava gerando os erros.
Valeu pela força.
- Original Message -
From: Elazar Dornelles Ceza
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, August 29, 2006 9:05 AM
Subject: RES: [delphi-br] Problema com interfaces.
[***]
Estou tentando trabalhar com interfaces, mas ta complicado.
Tenho
MinhaInterface=interface
function GetNome:String;
procedure SetNome(Value : String);
property nome:string read GetNome write SetNome;
end;
MeuObjeto=Class(TInterfacedObject,MinhaInterface);
end;
Implementos os metodos da interface.
Faço um codigo assim.
Var
Obj : MeuObjeto;
begin
Obj := MeuObjeto.create;
Obj.Nome := 'Teste';
ShowMessage(Obj.Nome);///Nesse ponto da access violation.
end;
Está dando acess violation quando vou tentar da um showmessage mostrando
o conteudo de Obj.nome, quando eu vou debugando e paro com o mouse em
cima de Obj.Nome ele mostra o conteudo certo, não sei o pode está
acontecendo.
Outro problema é quando eu tento dar um free em obj também da access
violation.
Qual pode da uma lúz pra solucionar esses problemas?
At.
Ricardo Lima
[*]
Amigo, não leva a mal não mas como conseguiu compilar isto
...o compilador do delphi (pelo menos aqui pra mim) dis que eu não
implementei os metodos da interface...
Pra funcionar voce tem que fazer assim olha.
{ Interfaces funcionam como um contrato apenas...um contrato que duas
aplicações
entende os seus 'termos' para poder utiliza-la Por isso em uma
interface
não se implementa nada, apenas declara os metodos...(metodos estes
que serão
implementados no objetos que implementar esta interface)}
MinhaInterface = interface
function GetNome:String;
procedure SetNome(Value : String);
property Nome : string read GetNome write SetNome;
end;
{ Ok, dada a interface acima agora eu vou criar um objeto pra
implementar o 'contrato',
ou aliar, criar os mecanismos que vai fazer o contrato funcionar.
Normalmente as interfaces podem ser utilizadas em Units separadas
dos codigos fontes...
Mas necessárias para compilar o objeto }
MeuObjeto = class(TInterfacedObject, MinhaInterface)
private
Fnome : String // Aqui tem a propriedade
public
{ Estes proximos dois procedimentos DEVEM existir em TODOS os
objetos que
forem implementar a MinhaInterface (lembra do contrato)}
function GetNome:String;
procedure SetNome(Value : String);
property Nome : String read GetNome write SetNome;
end;
{...}
implementation
{...}
function MeuObjeto.GetNome:String;
begin
Result := FNome;
end;
procedure MeuObjeto.SetNome(Value : String);
begin
FNome := Value;
End;
{ ai voce declara uma variavel do seu objeto }
var
vObjeto : MinhaInterface;
begin
vObjeto := MeuObjeto.Create;
vObjeto.Nome := 'Elazar';
{...}
ShowMessage('O nome do objeto é: ' vObjeto.Nome);
Certo meu camarada...
Elazar
___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale
o discador agora!
http://br.acesso.yahoo.com
[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]
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
Re: RES: [delphi-br] Problema com interfaces.
Acho que ele só queria definir o exemplo, não deve ter escrito um código
completo...
--
Marcos Douglas
Mensagem Original
From: "Elazar Dornelles Ceza" <[EMAIL PROTECTED]>
To: delphi-br@yahoogrupos.com.br
Sent: Ter, Agosto 29, 2006 9:05 am
Subject: RES: [delphi-br] Problema com interfaces.
> [***]
> Estou tentando trabalhar com interfaces, mas ta complicado.
>
> Tenho
> MinhaInterface=interface
>function GetNome:String;
>procedure SetNome(Value : String);
>property nome:string read GetNome write SetNome;
> end;
>
> MeuObjeto=Class(TInterfacedObject,MinhaInterface);
> end;
>
> Implementos os metodos da interface.
>
> Faço um codigo assim.
>
> Var
> Obj : MeuObjeto;
> begin
>Obj := MeuObjeto.create;
>Obj.Nome := 'Teste';
>ShowMessage(Obj.Nome);///Nesse ponto da access violation.
> end;
>
> Está dando acess violation quando vou tentar da um showmessage mostrando
> o conteudo de Obj.nome, quando eu vou debugando e paro com o mouse em
> cima de Obj.Nome ele mostra o conteudo certo, não sei o pode está
> acontecendo.
>
> Outro problema é quando eu tento dar um free em obj também da access
> violation.
>
> Qual pode da uma lúz pra solucionar esses problemas?
>
> At.
> Ricardo Lima
>
> [*]
>
>
> Amigo, não leva a mal não mas como conseguiu compilar isto
> ...o compilador do delphi (pelo menos aqui pra mim) dis que eu não
> implementei os metodos da interface...
>
> Pra funcionar voce tem que fazer assim olha.
>
> { Interfaces funcionam como um contrato apenas...um contrato que duas
> aplicações
> entende os seus 'termos' para poder utiliza-la Por isso em uma
> interface
> não se implementa nada, apenas declara os metodos...(metodos estes
> que serão
> implementados no objetos que implementar esta interface)}
>
> MinhaInterface = interface
>function GetNome:String;
>procedure SetNome(Value : String);
>property Nome : string read GetNome write SetNome;
> end;
>
> { Ok, dada a interface acima agora eu vou criar um objeto pra
> implementar o 'contrato',
> ou aliar, criar os mecanismos que vai fazer o contrato funcionar.
> Normalmente as interfaces podem ser utilizadas em Units separadas
> dos codigos fontes...
> Mas necessárias para compilar o objeto }
> MeuObjeto = class(TInterfacedObject, MinhaInterface)
> private
> Fnome : String // Aqui tem a propriedade
> public
> { Estes proximos dois procedimentos DEVEM existir em TODOS os
> objetos que
> forem implementar a MinhaInterface (lembra do contrato)}
> function GetNome:String;
> procedure SetNome(Value : String);
>
> property Nome : String read GetNome write SetNome;
> end;
>
> {...}
>
> implementation
>
> {...}
> function MeuObjeto.GetNome:String;
> begin
> Result := FNome;
> end;
>
> procedure MeuObjeto.SetNome(Value : String);
> begin
> FNome := Value;
> End;
>
> { ai voce declara uma variavel do seu objeto }
> var
> vObjeto : MinhaInterface;
> begin
> vObjeto := MeuObjeto.Create;
> vObjeto.Nome := 'Elazar';
>
> {...}
> ShowMessage('O nome do objeto é: ' vObjeto.Nome);
>
>
> Certo meu camarada...
>
> Elazar
>
>
>
> ___
> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale
> o discador agora!
> http://br.acesso.yahoo.com
>
>
--
< 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]
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
[delphi-br] Problema com ClientDataSet/Master-Detail.
Tenho um master/detail onde o master são as notas e o detail são os itens da nota, e acontece o seguinte quando mando dar um edit somente nos itens automaticamente o cliente dataset das notas também entra em modo de edição, tem como os dois clientdataset ficarem independente, quando mandar editar um não alterar o Status do outro. Obrigado a todos. At. Ricardo Lima [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] 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
Re: [delphi-br] Problema com interfaces.
Ricardo, Pelo código que vc mostrou, o problema não deve ser a interface, pois vc nem utilizou ela no código. Veja se vc está construindo o objeto corretamente (no seu código real, pois o exemplo parece estar certo) e se não está destruindo o mesmo em algum outro lugar antes de utilizar. Se quiser, pode me enviar o código real pra eu dar uma olhada. -- Marcos Douglas Mensagem Original From: "Ricardo Lima Mariz" <[EMAIL PROTECTED]> To: delphi-br@yahoogrupos.com.br Sent: Seg, Agosto 28, 2006 7:56 pm Subject: [delphi-br] Problema com interfaces. > Estou tentando trabalhar com interfaces, mas ta complicado. > > Tenho > MinhaInterface=interface >function GetNome:String; >procedure SetNome(Value : String); >property nome:string read GetNome write SetNome; > end; > > MeuObjeto=Class(TInterfacedObject,MinhaInterface); > end; > > Implementos os metodos da interface. > > Faço um codigo assim. > > Var > Obj : MeuObjeto; > begin >Obj := MeuObjeto.create; >Obj.Nome := 'Teste'; >ShowMessage(Obj.Nome);///Nesse ponto da access violation. > end; > > Está dando acess violation quando vou tentar da um showmessage mostrando o > conteudo de Obj.nome, quando eu vou debugando e paro com o mouse em cima de > Obj.Nome ele mostra o conteudo certo, não sei o pode está acontecendo. > > Outro problema é quando eu tento dar um free em obj também da access > violation. > > Qual pode da uma lúz pra solucionar esses problemas? > > At. > Ricardo Lima > > [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] 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
RES: [delphi-br] Problema com interfaces.
[***]
Estou tentando trabalhar com interfaces, mas ta complicado.
Tenho
MinhaInterface=interface
function GetNome:String;
procedure SetNome(Value : String);
property nome:string read GetNome write SetNome;
end;
MeuObjeto=Class(TInterfacedObject,MinhaInterface);
end;
Implementos os metodos da interface.
Faço um codigo assim.
Var
Obj : MeuObjeto;
begin
Obj := MeuObjeto.create;
Obj.Nome := 'Teste';
ShowMessage(Obj.Nome);///Nesse ponto da access violation.
end;
Está dando acess violation quando vou tentar da um showmessage mostrando
o conteudo de Obj.nome, quando eu vou debugando e paro com o mouse em
cima de Obj.Nome ele mostra o conteudo certo, não sei o pode está
acontecendo.
Outro problema é quando eu tento dar um free em obj também da access
violation.
Qual pode da uma lúz pra solucionar esses problemas?
At.
Ricardo Lima
[*]
Amigo, não leva a mal não mas como conseguiu compilar isto
...o compilador do delphi (pelo menos aqui pra mim) dis que eu não
implementei os metodos da interface...
Pra funcionar voce tem que fazer assim olha.
{ Interfaces funcionam como um contrato apenas...um contrato que duas
aplicações
entende os seus 'termos' para poder utiliza-la Por isso em uma
interface
não se implementa nada, apenas declara os metodos...(metodos estes
que serão
implementados no objetos que implementar esta interface)}
MinhaInterface = interface
function GetNome:String;
procedure SetNome(Value : String);
property Nome : string read GetNome write SetNome;
end;
{ Ok, dada a interface acima agora eu vou criar um objeto pra
implementar o 'contrato',
ou aliar, criar os mecanismos que vai fazer o contrato funcionar.
Normalmente as interfaces podem ser utilizadas em Units separadas
dos codigos fontes...
Mas necessárias para compilar o objeto }
MeuObjeto = class(TInterfacedObject, MinhaInterface)
private
Fnome : String // Aqui tem a propriedade
public
{ Estes proximos dois procedimentos DEVEM existir em TODOS os
objetos que
forem implementar a MinhaInterface (lembra do contrato)}
function GetNome:String;
procedure SetNome(Value : String);
property Nome : String read GetNome write SetNome;
end;
{...}
implementation
{...}
function MeuObjeto.GetNome:String;
begin
Result := FNome;
end;
procedure MeuObjeto.SetNome(Value : String);
begin
FNome := Value;
End;
{ ai voce declara uma variavel do seu objeto }
var
vObjeto : MinhaInterface;
begin
vObjeto := MeuObjeto.Create;
vObjeto.Nome := 'Elazar';
{...}
ShowMessage('O nome do objeto é: ' vObjeto.Nome);
Certo meu camarada...
Elazar
___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale
o discador agora!
http://br.acesso.yahoo.com
--
< 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]
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
Re: [delphi-br] Memo em Grid
coloca um campo calculado no grid com parte do memo. para mostrar o conteúdo todo, acho que tu deveria pensar em implementar algo tipo um hint. - Original Message - From: "Fabiano Frizzo" <[EMAIL PROTECTED]> To: Sent: Monday, August 28, 2006 11:39 PM Subject: [delphi-br] Memo em Grid Boa Noite Gradiosa Comunidade Delphi Bom gostaria de Saber se Alguem ja Colocou um Memo em um DBGrid tipo... Tenho em minha tabela um Campo Blob e precisaria mostrar tudo em um memo... POis a linha do grid iria ficar uito grande teria que ser algo do tipo quando o cara clica em cima ou coloca o mouse em cima apareca o resto da descrição que tem no memo... Grato Pela Atenção De Todos Fabiano Frizzo FFrizzo Sistemas ACBr em Breve For JAVA [As partes desta mensagem que não continham texto foram removidas] -- < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM > 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] 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
