[delphi-br] Re: Soudex ???

[Filipe Belchior]

olá leonardo.

existe uma matéria na DBFreeMagazine edição 06 falando sobre soundex
através d UDF no FB. Porém, não consegui acessar o site
www.dbfreemagazine.com.br hoje, não sei o pq.. então estarei
disponibilizando o pdf da revista.

ATENÇÃO: o arquivo ficará disponível por 7 dias (ou 100 downloads)

http://download.yousendit.com/87C5A7AC572D02D7

[]s
Filipe Belchior


--- Em delphi-br@yahoogrupos.com.br, "Leonardo Anselmo" <[EMAIL PROTECTED]>
escreveu
>
> Pessoal, 
> 
> Alguem tem algum exemplo sobre a funcao soudex pra fazer
busca fonetica. Desde ja Agradeco
> 
> Leonardo Anselmo
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

[delphi-br] Re: Etiquetas no delphi

[Filipe Belchior]

qual seu windows? tive problemas assim no windows 2k e xp,
no 98 imprimia normal.. seguinte, isso é problema do driver
genérico q o windows disponibiliza para a impressora (apesar,
q mesmo instalando driver baixando do fabricante, não adiantou).
Bom, vc disse q a partir de um determinado tamanho não ocorre
o salto de página inesperado.. isso eu nunca vi.
bom, o q eu fiz foi o seguinte.. ridículo, mas foi o que
consegui.. ao invés de 1 etiqueta ser 1 página, eu elaborei
várias etiquetas por página.. claro q, se fosse impressa 1
etiqueta apenas, ou menos q preenchesse a página, a impressora
fazia o salto da página inteira, mas.. foi o que deu pro momento.

[]s


--- Em delphi-br@yahoogrupos.com.br, "Rafael" <[EMAIL PROTECTED]> escreveu
>
> Bom Dia Galera.
> 
>  
> 
> Seguinte, estou com um problema no meu sistema.
> 
>  
> 
> Eu tenho que fazer um "relatório" que imprime etiquetas.
> 
>  
> 
> A etiqueta imprime normal está tudo certo, alinhado e tals...
> 
>  
> 
> Porem, na hora que eu mando imprimir em uma impressora matricial FX-1170
> 
>  
> 
> A impressora ejeta a folha inteira sendo que eu gostaria que
imprimisse a
> etiqueta e parasse.
> 
>  
> 
> Estou utilizando o componente Fortes Report.
> 
>  
> 
>  
> 
> Uma coisa que eu reparei também é que se o tamanho da folha for
maior que um
> determinado tamanho ele não ejeta.
> 
>  
> 
> Ejeta apenas quando é menor que este tamanha.
> 
>  
> 
> Obs: Eu não lembro o tamanho que era. 
> 
>  
> 
> Sem Mais Obrigado!
> 
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

[delphi-br] Filter: cláusula "In"

[Filipe Belchior]

olá galera.. seguinte..

num filter, quando eu ponho a seguinte expressão:

"codigo in (1)"

..isso funciona, retorna registros.. mas..

"codigo in (1,2)"

..isso retorna vazio.. e..

"codigo in (1,2,3)"

..isso retorna erro, "is not a valid float point"..

..bom, o campo codigo é um inteiro, inclusive é um
TIntegerField na ClientDataSet. O que percebo, é que
na 2a situação, o filter entende "1,2" como float,
por isso retorna vazio (não existe algum código "1,2"
na tabela), e quando passa o valor "1,2,3" ele acaba
tentando converter pra float novamente.
bom, pq será que ele faz isso?

[delphi-br] Re: ClientDataSet: ApplyUpdate().. SEM erro, mas NÃO salva

[Filipe Belchior]

ok pessoal, tudo ok agora.. erro meu.. obrigado walter..

como eu estava rodando pelo executável, não estava lançando
a excessão q ocorria (talvez tbm por causa do applyupdates(0)).
ocorria o erro "SQLQuery2: dont can modify read-only dataset".
lembrei q havia deixado a propriedade "ResolveToDataset" do DSP
como TRUE, mudei, e funcionou normalmente.




--- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
<[EMAIL PROTECTED]> escreveu
>
> Como é que está seu ApplyUpdates aí?
> Tem Join na senteça SQL?
> 
> 
> []s
>  
>  
>  
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> http://www.geocities.com/SiliconValley/Bay/1058
> MSN: [EMAIL PROTECTED]
>  
>  
> 
> --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
>  escreveu
> >
> > desculpe pessoal.. o erro não ocorre, mas agora não salva,
> > hehehehe.. to vendo o que pode ser
> > 
> > 
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
> >  escreveu
> > >
> > > valeu walter, funcionou.. mas pq isso? seguinte, isso num
> > > deveria ser assim, se, a propriedade ResolveToDataset no
> > > DSP estivesse True?? tenho q criar os fields no CDS e na
> > > DataSet??
> > > 
> > > 
> > > 
> > > --- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
> > >  escreveu
> > > >
> > > > OK, partindo do pressuposto que seu DSP tá oK e o fields editor 
> no 
> > > > CDS também está devidamente configurado, faça a mesma coisa na 
> query. 
> > > > Adicione o fields Editor e sete as chaves primárias pro pfinkey 
> true. 
> > > > Na Query.
> > > > 
> > > > []s
> > > >  
> > > >  
> > > >  
> > > > Walter Alves Chagas Junior
> > > > Belo Horizonte - MG - Brazil
> > > > wchagasj@
> > > > http://www.geocities.com/SiliconValley/Bay/1058
> > > > MSN: whitesockets@
> > > > 
> > > > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
> > > >  escreveu
> > > > >
> > > > > desculpe fellipe, hehehe, o erro eh o seguinte..
> > > > > 
> > > > > "unable to find redord. no key specified"
> > > > > 
> > > > > ..eu sei sobre o upWhereKeyOnly no DSP e sobre os 
> ProviderFlags
> > > > > no CDS, como eu mencionei no post, esta como 
> [pfInWhere,pfInKey].
> > > > > pois bem, mesmo assim, o erro diz q não foi informado um campo
> > > > > "Key".. não entendo.
> > > > > 
> > > > > 
> > > > > 
> > > > > --- Em delphi-br@yahoogrupos.com.br, "Fellipe Henrique" 
> 
> > > > > escreveu
> > > > > >
> > > > > > Olá Filipe, sem saber o erro fica meio complicado... :-)
> > > > > > 
> > > > > > mas posso te adiantar que se voce marcou o upWhereKeyOnly 
> no DSP, 
> > > > lá no
> > > > > > ClientDataSet, você marca o campo indice e seta a 
> propriredade 
> > > > InKey,
> > > > > > InWhere, InUpdate. e todos os outros campos, voce só 
> deixa 
> > > > marcado o
> > > > > > InUpdate... isso no UpdateFlags...
> > > > > > 
> > > > > > 
> > > > > > []s
> > > > > > 
> > > > > > 
> > > > > > Em 04/12/06, Filipe Belchior  escreveu:
> > > > > > >
> > > > > > >   olá galera,
> > > > > > >
> > > > > > > seguinte.. estou começando com clientdataset (CDS)..
> > > > > > > estou tendo problema para editar e excluir registros, sim,
> > > > > > > apenas para editar e excluir, pois insere normalmente..
> > > > > > > uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um 
> simples
> > > > > > > select * from tabela).. configurei o UpdateMode e os 
> > > > ProviderFlags,
> > > > > > > upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra 
> piorar,
> > > > > > > ou talvez não (posso estar enganado), encontrei isso
> > > > > > >
> > > > > > > http://qc.borland.com/wc/qcmain.aspx?d=5550
> > > > > > >
> > > > > > > ..meu delphi eh 7.0.8.1
> > > > > > >
> > > > > > > 
> > > > > > >
> > > > > > 
> > > > > > 
> > > > > > 
> > > > > > -- 
> > > > > > _
> > > > > > Fellipe Henrique
> > > > > > fellipeh@
> > > > > > 
> > > > > > 
> > > > > > "Venham até a borda, ele disse.
> > > > > > Eles disseram: Nós temos medo.
> > > > > > Venham até a borda, ele insistiu.
> > > > > > Eles foram, Ele os empurrou...
> > > > > > E eles voaram."
> > > > > > (Guillaume Apollinaire)
> > > > > > 
> > > > > > 
> > > > > > [As partes desta mensagem que não continham texto foram 
> removidas]
> > > > > >
> > > > >
> > > >
> > >
> >
>

[delphi-br] Re: ClientDataSet: ApplyUpdate().. SEM erro, mas NÃO salva

[Filipe Belchior]

applyupdates(0);
//nem sei pq colokei 0 invés d -1 ..mas não axo q seja isso

..não tenho join.. como eu disse antes, é apenas "select * from tabela"



--- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
<[EMAIL PROTECTED]> escreveu
>
> Como é que está seu ApplyUpdates aí?
> Tem Join na senteça SQL?
> 
> 
> []s
>  
>  
>  
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> http://www.geocities.com/SiliconValley/Bay/1058
> MSN: [EMAIL PROTECTED]
>  
>  
> 
> --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
>  escreveu
> >
> > desculpe pessoal.. o erro não ocorre, mas agora não salva,
> > hehehehe.. to vendo o que pode ser
> > 
> > 
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
> >  escreveu
> > >
> > > valeu walter, funcionou.. mas pq isso? seguinte, isso num
> > > deveria ser assim, se, a propriedade ResolveToDataset no
> > > DSP estivesse True?? tenho q criar os fields no CDS e na
> > > DataSet??
> > > 
> > > 
> > > 
> > > --- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
> > >  escreveu
> > > >
> > > > OK, partindo do pressuposto que seu DSP tá oK e o fields editor 
> no 
> > > > CDS também está devidamente configurado, faça a mesma coisa na 
> query. 
> > > > Adicione o fields Editor e sete as chaves primárias pro pfinkey 
> true. 
> > > > Na Query.
> > > > 
> > > > []s
> > > >  
> > > >  
> > > >  
> > > > Walter Alves Chagas Junior
> > > > Belo Horizonte - MG - Brazil
> > > > wchagasj@
> > > > http://www.geocities.com/SiliconValley/Bay/1058
> > > > MSN: whitesockets@
> > > > 
> > > > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
> > > >  escreveu
> > > > >
> > > > > desculpe fellipe, hehehe, o erro eh o seguinte..
> > > > > 
> > > > > "unable to find redord. no key specified"
> > > > > 
> > > > > ..eu sei sobre o upWhereKeyOnly no DSP e sobre os 
> ProviderFlags
> > > > > no CDS, como eu mencionei no post, esta como 
> [pfInWhere,pfInKey].
> > > > > pois bem, mesmo assim, o erro diz q não foi informado um campo
> > > > > "Key".. não entendo.
> > > > > 
> > > > > 
> > > > > 
> > > > > --- Em delphi-br@yahoogrupos.com.br, "Fellipe Henrique" 
> 
> > > > > escreveu
> > > > > >
> > > > > > Olá Filipe, sem saber o erro fica meio complicado... :-)
> > > > > > 
> > > > > > mas posso te adiantar que se voce marcou o upWhereKeyOnly 
> no DSP, 
> > > > lá no
> > > > > > ClientDataSet, você marca o campo indice e seta a 
> propriredade 
> > > > InKey,
> > > > > > InWhere, InUpdate. e todos os outros campos, voce só 
> deixa 
> > > > marcado o
> > > > > > InUpdate... isso no UpdateFlags...
> > > > > > 
> > > > > > 
> > > > > > []s
> > > > > > 
> > > > > > 
> > > > > > Em 04/12/06, Filipe Belchior  escreveu:
> > > > > > >
> > > > > > >   olá galera,
> > > > > > >
> > > > > > > seguinte.. estou começando com clientdataset (CDS)..
> > > > > > > estou tendo problema para editar e excluir registros, sim,
> > > > > > > apenas para editar e excluir, pois insere normalmente..
> > > > > > > uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um 
> simples
> > > > > > > select * from tabela).. configurei o UpdateMode e os 
> > > > ProviderFlags,
> > > > > > > upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra 
> piorar,
> > > > > > > ou talvez não (posso estar enganado), encontrei isso
> > > > > > >
> > > > > > > http://qc.borland.com/wc/qcmain.aspx?d=5550
> > > > > > >
> > > > > > > ..meu delphi eh 7.0.8.1
> > > > > > >
> > > > > > > 
> > > > > > >
> > > > > > 
> > > > > > 
> > > > > > 
> > > > > > -- 
> > > > > > _
> > > > > > Fellipe Henrique
> > > > > > fellipeh@
> > > > > > 
> > > > > > 
> > > > > > "Venham até a borda, ele disse.
> > > > > > Eles disseram: Nós temos medo.
> > > > > > Venham até a borda, ele insistiu.
> > > > > > Eles foram, Ele os empurrou...
> > > > > > E eles voaram."
> > > > > > (Guillaume Apollinaire)
> > > > > > 
> > > > > > 
> > > > > > [As partes desta mensagem que não continham texto foram 
> removidas]
> > > > > >
> > > > >
> > > >
> > >
> >
>

[delphi-br] Re: ClientDataSet: ApplyUpdate() com erro

[Filipe Belchior]

não tenho campos de outra tabela, é um select * from tabela..

..walter, vou tentar isso.



--- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
<[EMAIL PROTECTED]> escreveu
>
> OK, partindo do pressuposto que seu DSP tá oK e o fields editor no 
> CDS também está devidamente configurado, faça a mesma coisa na query. 
> Adicione o fields Editor e sete as chaves primárias pro pfinkey true. 
> Na Query.
> 
> []s
>  
>  
>  
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> http://www.geocities.com/SiliconValley/Bay/1058
> MSN: [EMAIL PROTECTED]
> 
> --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
>  escreveu
> >
> > desculpe fellipe, hehehe, o erro eh o seguinte..
> > 
> > "unable to find redord. no key specified"
> > 
> > ..eu sei sobre o upWhereKeyOnly no DSP e sobre os ProviderFlags
> > no CDS, como eu mencionei no post, esta como [pfInWhere,pfInKey].
> > pois bem, mesmo assim, o erro diz q não foi informado um campo
> > "Key".. não entendo.
> > 
> > 
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Fellipe Henrique" 
> > escreveu
> > >
> > > Olá Filipe, sem saber o erro fica meio complicado... :-)
> > > 
> > > mas posso te adiantar que se voce marcou o upWhereKeyOnly no DSP, 
> lá no
> > > ClientDataSet, você marca o campo indice e seta a propriredade 
> InKey,
> > > InWhere, InUpdate. e todos os outros campos, voce só deixa 
> marcado o
> > > InUpdate... isso no UpdateFlags...
> > > 
> > > 
> > > []s
> > > 
> > > 
> > > Em 04/12/06, Filipe Belchior  escreveu:
> > > >
> > > >   olá galera,
> > > >
> > > > seguinte.. estou começando com clientdataset (CDS)..
> > > > estou tendo problema para editar e excluir registros, sim,
> > > > apenas para editar e excluir, pois insere normalmente..
> > > > uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um simples
> > > > select * from tabela).. configurei o UpdateMode e os 
> ProviderFlags,
> > > > upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra piorar,
> > > > ou talvez não (posso estar enganado), encontrei isso
> > > >
> > > > http://qc.borland.com/wc/qcmain.aspx?d=5550
> > > >
> > > > ..meu delphi eh 7.0.8.1
> > > >
> > > > 
> > > >
> > > 
> > > 
> > > 
> > > -- 
> > > _
> > > Fellipe Henrique
> > > fellipeh@
> > > 
> > > 
> > > "Venham até a borda, ele disse.
> > > Eles disseram: Nós temos medo.
> > > Venham até a borda, ele insistiu.
> > > Eles foram, Ele os empurrou...
> > > E eles voaram."
> > > (Guillaume Apollinaire)
> > > 
> > > 
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> >
>

[delphi-br] Re: ClientDataSet: ApplyUpdate().. SEM erro, mas NÃO salva

[Filipe Belchior]

desculpe pessoal.. o erro não ocorre, mas agora não salva,
hehehehe.. to vendo o que pode ser



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> valeu walter, funcionou.. mas pq isso? seguinte, isso num
> deveria ser assim, se, a propriedade ResolveToDataset no
> DSP estivesse True?? tenho q criar os fields no CDS e na
> DataSet??
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
>  escreveu
> >
> > OK, partindo do pressuposto que seu DSP tá oK e o fields editor no 
> > CDS também está devidamente configurado, faça a mesma coisa na query. 
> > Adicione o fields Editor e sete as chaves primárias pro pfinkey true. 
> > Na Query.
> > 
> > []s
> >  
> >  
> >  
> > Walter Alves Chagas Junior
> > Belo Horizonte - MG - Brazil
> > wchagasj@
> > http://www.geocities.com/SiliconValley/Bay/1058
> > MSN: whitesockets@
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
> >  escreveu
> > >
> > > desculpe fellipe, hehehe, o erro eh o seguinte..
> > > 
> > > "unable to find redord. no key specified"
> > > 
> > > ..eu sei sobre o upWhereKeyOnly no DSP e sobre os ProviderFlags
> > > no CDS, como eu mencionei no post, esta como [pfInWhere,pfInKey].
> > > pois bem, mesmo assim, o erro diz q não foi informado um campo
> > > "Key".. não entendo.
> > > 
> > > 
> > > 
> > > --- Em delphi-br@yahoogrupos.com.br, "Fellipe Henrique" 
> > > escreveu
> > > >
> > > > Olá Filipe, sem saber o erro fica meio complicado... :-)
> > > > 
> > > > mas posso te adiantar que se voce marcou o upWhereKeyOnly no DSP, 
> > lá no
> > > > ClientDataSet, você marca o campo indice e seta a propriredade 
> > InKey,
> > > > InWhere, InUpdate. e todos os outros campos, voce só deixa 
> > marcado o
> > > > InUpdate... isso no UpdateFlags...
> > > > 
> > > > 
> > > > []s
> > > > 
> > > > 
> > > > Em 04/12/06, Filipe Belchior  escreveu:
> > > > >
> > > > >   olá galera,
> > > > >
> > > > > seguinte.. estou começando com clientdataset (CDS)..
> > > > > estou tendo problema para editar e excluir registros, sim,
> > > > > apenas para editar e excluir, pois insere normalmente..
> > > > > uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um simples
> > > > > select * from tabela).. configurei o UpdateMode e os 
> > ProviderFlags,
> > > > > upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra piorar,
> > > > > ou talvez não (posso estar enganado), encontrei isso
> > > > >
> > > > > http://qc.borland.com/wc/qcmain.aspx?d=5550
> > > > >
> > > > > ..meu delphi eh 7.0.8.1
> > > > >
> > > > > 
> > > > >
> > > > 
> > > > 
> > > > 
> > > > -- 
> > > > _
> > > > Fellipe Henrique
> > > > fellipeh@
> > > > 
> > > > 
> > > > "Venham até a borda, ele disse.
> > > > Eles disseram: Nós temos medo.
> > > > Venham até a borda, ele insistiu.
> > > > Eles foram, Ele os empurrou...
> > > > E eles voaram."
> > > > (Guillaume Apollinaire)
> > > > 
> > > > 
> > > > [As partes desta mensagem que não continham texto foram removidas]
> > > >
> > >
> >
>

[delphi-br] Re: ClientDataSet: ApplyUpdate() com erro

[Filipe Belchior]

valeu walter, funcionou.. mas pq isso? seguinte, isso num
deveria ser assim, se, a propriedade ResolveToDataset no
DSP estivesse True?? tenho q criar os fields no CDS e na
DataSet??



--- Em delphi-br@yahoogrupos.com.br, "Walter Chagas (Yahoo)"
<[EMAIL PROTECTED]> escreveu
>
> OK, partindo do pressuposto que seu DSP tá oK e o fields editor no 
> CDS também está devidamente configurado, faça a mesma coisa na query. 
> Adicione o fields Editor e sete as chaves primárias pro pfinkey true. 
> Na Query.
> 
> []s
>  
>  
>  
> Walter Alves Chagas Junior
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> http://www.geocities.com/SiliconValley/Bay/1058
> MSN: [EMAIL PROTECTED]
> 
> --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior" 
>  escreveu
> >
> > desculpe fellipe, hehehe, o erro eh o seguinte..
> > 
> > "unable to find redord. no key specified"
> > 
> > ..eu sei sobre o upWhereKeyOnly no DSP e sobre os ProviderFlags
> > no CDS, como eu mencionei no post, esta como [pfInWhere,pfInKey].
> > pois bem, mesmo assim, o erro diz q não foi informado um campo
> > "Key".. não entendo.
> > 
> > 
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Fellipe Henrique" 
> > escreveu
> > >
> > > Olá Filipe, sem saber o erro fica meio complicado... :-)
> > > 
> > > mas posso te adiantar que se voce marcou o upWhereKeyOnly no DSP, 
> lá no
> > > ClientDataSet, você marca o campo indice e seta a propriredade 
> InKey,
> > > InWhere, InUpdate. e todos os outros campos, voce só deixa 
> marcado o
> > > InUpdate... isso no UpdateFlags...
> > > 
> > > 
> > > []s
> > > 
> > > 
> > > Em 04/12/06, Filipe Belchior  escreveu:
> > > >
> > > >   olá galera,
> > > >
> > > > seguinte.. estou começando com clientdataset (CDS)..
> > > > estou tendo problema para editar e excluir registros, sim,
> > > > apenas para editar e excluir, pois insere normalmente..
> > > > uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um simples
> > > > select * from tabela).. configurei o UpdateMode e os 
> ProviderFlags,
> > > > upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra piorar,
> > > > ou talvez não (posso estar enganado), encontrei isso
> > > >
> > > > http://qc.borland.com/wc/qcmain.aspx?d=5550
> > > >
> > > > ..meu delphi eh 7.0.8.1
> > > >
> > > > 
> > > >
> > > 
> > > 
> > > 
> > > -- 
> > > _
> > > Fellipe Henrique
> > > fellipeh@
> > > 
> > > 
> > > "Venham até a borda, ele disse.
> > > Eles disseram: Nós temos medo.
> > > Venham até a borda, ele insistiu.
> > > Eles foram, Ele os empurrou...
> > > E eles voaram."
> > > (Guillaume Apollinaire)
> > > 
> > > 
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> >
>

[delphi-br] Re: ClientDataSet: ApplyUpdate() com erro

[Filipe Belchior]

desculpe fellipe, hehehe, o erro eh o seguinte..

"unable to find redord. no key specified"

..eu sei sobre o upWhereKeyOnly no DSP e sobre os ProviderFlags
no CDS, como eu mencionei no post, esta como [pfInWhere,pfInKey].
pois bem, mesmo assim, o erro diz q não foi informado um campo
"Key".. não entendo.



--- Em delphi-br@yahoogrupos.com.br, "Fellipe Henrique" <[EMAIL PROTECTED]>
escreveu
>
> Olá Filipe, sem saber o erro fica meio complicado... :-)
> 
> mas posso te adiantar que se voce marcou o upWhereKeyOnly no DSP, lá no
> ClientDataSet, você marca o campo indice e seta a propriredade InKey,
> InWhere, InUpdate. e todos os outros campos, voce só deixa marcado o
> InUpdate... isso no UpdateFlags...
> 
> 
> []s
> 
> 
> Em 04/12/06, Filipe Belchior <[EMAIL PROTECTED]> escreveu:
> >
> >   olá galera,
> >
> > seguinte.. estou começando com clientdataset (CDS)..
> > estou tendo problema para editar e excluir registros, sim,
> > apenas para editar e excluir, pois insere normalmente..
> > uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um simples
> > select * from tabela).. configurei o UpdateMode e os ProviderFlags,
> > upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra piorar,
> > ou talvez não (posso estar enganado), encontrei isso
> >
> > http://qc.borland.com/wc/qcmain.aspx?d=5550
> >
> > ..meu delphi eh 7.0.8.1
> >
> > 
> >
> 
> 
> 
> -- 
> _
> Fellipe Henrique
> [EMAIL PROTECTED]
> 
> 
> "Venham até a borda, ele disse.
> Eles disseram: Nós temos medo.
> Venham até a borda, ele insistiu.
> Eles foram, Ele os empurrou...
> E eles voaram."
> (Guillaume Apollinaire)
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

[delphi-br] ClientDataSet: ApplyUpdate() com erro

[Filipe Belchior]

olá galera,

seguinte.. estou começando com clientdataset (CDS)..
estou tendo problema para editar e excluir registros, sim,
apenas para editar e excluir, pois insere normalmente..
uso FB 1.5, dialect 3, UIB, CDS, DSP, SQLQuery (com um simples
select * from tabela).. configurei o UpdateMode e os ProviderFlags,
upWhereKeyOnly, tudo ok.. não sei o q ocorre.. e pra piorar,
ou talvez não (posso estar enganado), encontrei isso

http://qc.borland.com/wc/qcmain.aspx?d=5550

..meu delphi eh 7.0.8.1

[delphi-br] Re: Tela aguardando processo

[Filipe Belchior]

[code]


TThreadMethodError = Procedure(oE: Exception);

TProcessoThd = class(TThread)
private
  FProcesso: TThreadMethod;
  FBeforeExecute: TThreadMethod;
  FAfterExecute: TThreadMethod;
  procedure SetProcesso(const Value: TThreadMethod);
protected
  procedure Execute; override;
public
  constructor Create;
  property Processo: TThreadMethod read FProcesso write SetProcesso;
  property BeforeExecute: TThreadMethod read FBeforeExecute write
FBeforeExecute;
  property AfterExecute: TThreadMethod read FAfterExecute write
FAfterExecute;
end;


constructor TProcessoThd.Create;
begin
  inherited Create( True );
  FreeOnTerminate := True;
end;

procedure TProcessoThd.Execute;
begin
  if Assigned( BeforeExecute ) then
Synchronize( BeforeExecute );

  if not Assigned( processo ) then
  raise EAbort.Create( 'Processo não atribuido' );

  Processo;

  if Assigned( AfterExecute ) then
Synchronize( AfterExecute );
end;


[/code]



--- Em delphi-br@yahoogrupos.com.br, "Leonardo Felipe de Oliveira"
<[EMAIL PROTECTED]> escreveu
>
> Pessoal,
> 
> Alguém tem um exemplo ou algum fonte que tenha uma tela de
aguardando um processo que sendo feito?
> Enquanto alguns SQL e procedimentos do banco estão sendo efetuados
quero deixar para o usuário uma tela com a mensagem: 'AGUARDE!
PROCESSO EM ANDAMENTO' e com aqueles pontilhados q ficam se mexendo
enquanto o processo não foi concluído.
> 
> Abraços,
> Leonardo
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

[delphi-br] Re: dbgrid colorindo uma linha

[Filipe Belchior]

esse artigo eu encontrei, e axo perfeito pra esse assunto..

http://delphi.about.com/od/usedbvcl/l/aa031699.htm


FILIPE BELCHIOR



--- Em delphi-br@yahoogrupos.com.br, Fernando César <[EMAIL PROTECTED]>
escreveu
>
> olá pessoal como q eu faço pra colorir uma lina do grid no delphi,
se for o 
> caso pode ser so a fone, tipo na minha tabela vai ter uma função q
se um 
> processo nao completado depois de um tempo a linha da grid fica em
vermelho. 
> obrigado e estou no aguardo 
> 
> 
>   
> ___ 
> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu
celular. Registre seu aparelho agora! 
> http://br.mobile.yahoo.com/mailalertas/
>

[delphi-br] Re: papel personalizado, Matricial em windows 2000/xp

[Filipe Belchior]

bom.. excluir a impressoa instalada (lx-300) e reinstalei,
mas instalei com o driver da lx-400.. apareceu o formulário
q eu criei para selecionar, mas continua fazendo o salto d
uma A4 :(



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> olá pessoal!
> 
> bom, sei q muito já viram sobre esse assunto na net, eu tbm..
> mas galera, ta acontecendo comigo e só to vendo a solução d
> reinstalar o win 98 na máquina do cliente (e isso num vai
> ser legal)..
> 
> Galera a situação é aquela, a impressora faz o salto d uma
> folha A4 (padrão selecionado no driver) ao invés do tamanho
> q eu informei no programa.. já criei um novo "formulário" em
> "configurações do servidor" em "Impressoras" no windows, mas,
> como muitas pessoas, não aparece o formulário q eu crirei para
> q eu possa escolher na hora d imprimir.
> 
> HELP!!
> 
> 
> .
>

[delphi-br] papel personalizado, Matricial em windows 2000/xp

[Filipe Belchior]

olá pessoal!

bom, sei q muito já viram sobre esse assunto na net, eu tbm..
mas galera, ta acontecendo comigo e só to vendo a solução d
reinstalar o win 98 na máquina do cliente (e isso num vai
ser legal)..

Galera a situação é aquela, a impressora faz o salto d uma
folha A4 (padrão selecionado no driver) ao invés do tamanho
q eu informei no programa.. já criei um novo "formulário" em
"configurações do servidor" em "Impressoras" no windows, mas,
como muitas pessoas, não aparece o formulário q eu crirei para
q eu possa escolher na hora d imprimir.

HELP!!


.

[delphi-br] Re: Procedures no Firebird

[Filipe Belchior]

Jorge, vai ficar assim..


 --   corpo da procedure   
 CREATE PROCEDURE P_INCREMENTA_CAMPOS (
 PI_TABELA VARCHAR(30),
 PI_CAMPO VARCHAR(20))
 RETURNS (
 PO_VALUE INTEGER)
 AS
 BEGIN
   EXECUTE STATEMENT
   'SELECT MAX (' || :PI_CAMPO || ') FROM ' || :PI_TABELA
   INTO :PO_VALUE;
   SUSPEND;
 END;
 


..Mas não é aconselhavel tratar assim incremento de PK de tabela,
o ideal é usar generator, e ter um outro campo, q vc possar usar
como quiser e mostrar ao usuário.



--- Em delphi-br@yahoogrupos.com.br, Rodrigo Bevilacqua Marcondes
<[EMAIL PROTECTED]> escreveu
>
> [FOR] EXECUTE STATEMENT 
> [INTO :var1 [, var2 [, :varn]]] DO
> ];
>  = {statement | block-of-statements}
> 
> ---Ex .
> SQL = 'EXECUTE PROCEDURE '||PROC_NAME;
> EXECUTE STATEMENT SQL;
> 
> "Jorge Diego de A. Lopes" <[EMAIL PROTECTED]> escreveu: Ola pessoal
estou tentando fazer uma StoredProcedure generica para
> fazer o auto incremento do campo chave no momento da inserção pelo
delphi.
> 
> --   corpo da procedure   
> CREATE PROCEDURE P_INCREMENTA_CAMPOS (
> PI_TABELA VARCHAR(30),
> PI_CAMPO VARCHAR(20))
> RETURNS (
> PO_VALUE INTEGER)
> AS
> BEGIN
>   SELECT MAX (:PI_CAMPO) FROM :PI_TABELA
>   INTO :PO_VALUE;
>   SUSPEND;
> END;
> 
> so que está procedure nao esta compilando, pois ela informa que esta
> tabela nao existe, pois o correto seria assim
> SELECT MAX (ID_USUARIO) FROM USUARIOS 
> INTO :PO_VALUE;
> So que esta forma nao ficaria generia para todas as tabelas... alguem
> poderia me informar se teria alguma forma generica de fazer isso...
> 
> 
> 
> 
>   
> -
>  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] POST_EVENT em dbexpress

[Filipe Belchior]

olá pessoal.. eh possível resgatar eventos lancados pelo FB/IB através
do POST_EVENT, em DBX??



FILIPE BELCHIOR




-- 
<<<<< 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] Re: Acessar DLL com duas classes no delphi 7.

[Filipe Belchior]

fernanda, please, mostre como vc esta acessando as funções.



--- Em delphi-br@yahoogrupos.com.br, "Maria Fernanda"
<[EMAIL PROTECTED]> escreveu
>
> Olá,
> 
> Pessoal, como faço para acessar funções em uma dll que tenha 2 classes? 
> Por exemplo, eu tenho uma dll aqui que tem 2 classes:
> 
> ftrfingercentre.capture e ftrfingercentre.match.
> 
> Dentro da classe Capture eu tenho 2 funções:
> 
> getenrolldata() : String;
> getcapturedata() : String;
> 
> Como posso acessar essas funções? Eu declaro essas funções na unit do 
> meu programa mas quando vou usar ele me fala que não foi possivel achar 
> o ponto de entrada da função. E agora?
>







-- 
< 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] [off] Modularizacao em CBuilder?? possível??

[Filipe Belchior]

olá pessoal.. desculpe o off..

eu faco projetos delphi, modularizados.. mas um amigo,
q sempre troco idéias, pois ele desenvolve em CBuilder,
me perguntou como fazer modularização em CBuilder..

..naum consegui ter sucesso na experiencia, por causa
da diretiva "initialization" de delphi, que naum existe
em C++


FILIPE BELCHIOR






-- 
<<<<< 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] Re: ClientDataSet preciso apertar o botão 2x

[Filipe Belchior]

"porém no primeiro clique no botão
> só aparece o cursor aberto no DBGRID e não vem os dadosquando
clico novamente no botão
> aí os dados aparecem"

kra.. naum entendi bulhufas!!
:D
o q vc kis dizer?..




--- Em delphi-br@yahoogrupos.com.br, "Rodrigo Mota" <[EMAIL PROTECTED]>
escreveu
>
> Try
> cdsCliPed.Close;
> { Data do Cliente }
> sqlCliPed.ParamByName('DataI').AsDate := cbdtinitb1.Date;
> sqlCliPed.ParamByName('DataF').AsDate := cbdtfimtb1.Date;
> 
> sqlDetail.ParamByName('DataI').AsDate := cbdtinitb1.Date;
> sqlDetail.ParamByName('DataF').AsDate := cbdtfimtb1.Date;
> cdsCliPed.Open;
>   Except
> on E: Exception do ShowMessage(E.Message);
>   end;
> 
> tenho o codigo acima funciona normala saída é feita no
DBGridporém no primeiro clique no botão
> só aparece o cursor aberto no DBGRID e não vem os dadosquando
clico novamente no botão
> aí os dados aparecem???
> 
> alguma dica galerae deixa a Tamara em Paz outra coisa, se ela for 
> bela igual a Lara Croft opaaí elegemos ela.como a musa da
lista
> falo com propriedadepois sou amarrado...por TOMB RAIDERja
salvei nas
> 5 versões... :-) ou seja, conheço muito do jogoe é
claro...da Lara Croft tb...hehehhe
> 
> abs.
>







-- 
< 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: RES: [delphi-br]

[Filipe Belchior]

pow, rs.. eu aei "Tamara Clemente".. soh num sei se eh vc? rs..

cidade natal: São Bernado do Campo
profissao: Analista desenvolvedora

:D
será!?
hehehe


--- Em delphi-br@yahoogrupos.com.br, "Moked - Tamara \(Brazil\)"
<[EMAIL PROTECTED]> escreveu
>
> Olha issu...rs... tenho sim
>  
> Tamara Clemente - Suporte Técnico
> Moked do Brasil - Consultoria de Segurança Empresarial
> Divisão MokInf de Informática
> PABX: (55-11) 5071-2748
> [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
> www.moked.com.br <http://www.moked.com.br/> 
> 
> 
> 
> 
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em nome de Filipe Belchior
> Enviada em: quarta-feira, 13 de setembro de 2006 15:32
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: RES: [delphi-br]
> 
> 
> pow tamara.. agora ateh eu fikei curioso, rs.. tem orkut?
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "Moked - Tamara \(Brazil\)"
> <[EMAIL PROTECTED]> escreveu
> >
> > Aiai...rs...
> >  
> > Tamara Clemente - Suporte Técnico
> > Moked do Brasil - Consultoria de Segurança Empresarial
> > Divisão MokInf de Informática
> > PABX: (55-11) 5071-2748
> > [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
> > www.moked.com.br <http://www.moked.com.br/> 
> > 
> > 
> > 
> > 
> > De: delphi-br@yahoogrupos.com.br
> [mailto:[EMAIL PROTECTED] Em nome de Ulisses
> > Enviada em: quarta-feira, 13 de setembro de 2006 15:02
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: Re: [delphi-br]
> > 
> > 
> > Lara Croft é a Musa dos fanáticos, pela série de Jogos TOMB RAIDER.
> > 
> > []'s
> > 
> > Ulisses
> >   -Mensagem Original- 
> >   De: Moked - Tamara (Brazil) 
> >   Para: delphi-br@yahoogrupos.com.br 
> >   Enviada em: quarta-feira, 13 de setembro de 2006 14:17
> >   Assunto: RES: [delphi-br]
> > 
> > 
> >   Nossa... q q issu? Q q quer dizer "virar a Lara Croft da lista
> Delphi-BR"???rs
> > 
> >   Tamara Clemente - Suporte Técnico
> >   Moked do Brasil - Consultoria de Segurança Empresarial
> >   Divisão MokInf de Informática
> >   PABX: (55-11) 5071-2748
> >   [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
> >   www.moked.com.br <http://www.moked.com.br/> 
> > 
> > 
> >   
> > 
> >   De: delphi-br@yahoogrupos.com.br
> [mailto:[EMAIL PROTECTED] Em nome de Ulisses
> >   Enviada em: quarta-feira, 13 de setembro de 2006 13:47
> >   Para: delphi-br@yahoogrupos.com.br
> >   Assunto: Re: [delphi-br]
> > 
> > 
> >   Mascote é demais também.
> > 
> >   Poderia dizer que é a caçula, mas mascote...  hehehe
> > 
> >   Tamara, cuidado pra não virar a Lara Croft da lista Delphi-BR.  he
> he he
> > 
> >   []'s
> > 
> >   Ulisses
> > -Mensagem Original- 
> > De: Campus 
> > Para: delphi-br@yahoogrupos.com.br 
> > Enviada em: quarta-feira, 13 de setembro de 2006 12:56
> > Assunto: Re: [delphi-br]
> > 
> > 
> > Que isso Walter, ela é nossa mascote.
> > 
> > 
> > - Original Message - 
> > From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
> > To: 
> > Sent: Wednesday, September 13, 2006 12:44 PM
> > Subject: RES: [delphi-br]
> > 
> > 
> > hehe,
> > 
> > Pelo menos deu pra você sacar que tens pretendentes virtuais
né
> > 
> > []s
> > 
> > Walter Alves Chagas Junior
> > Projeto e desenvolvimento de sistemas
> > Telemont Engenharia de telecomunicações S/A
> > Belo Horizonte - MG - Brasil
> > [EMAIL PROTECTED]
> > Fone: (31) 3389-8215 Fax: (31) 3389-8200
> > 
> > Parabens Telemont - Somos a 8ª maior empresa do Brasil no
> segmento de
> > construção!!
> > 
> > 
> > -Mensagem original-
> > De: delphi-br@yahoogrupos.com.br
> [mailto:[EMAIL PROTECTED]
> > nome de Moked - Tamara (Brazil)
> > Enviada em: quarta-feira, 13 de setembro de 2006 12:27
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: RES: [delphi-br]
> > 
> > 
> > hahahahaha... cade a Tamara???rs... pq?
> > 
> > Eu to aki Ulisses... ainda... rs...
> > 
> > Aproveito para falar pro pessoal q ficarei fora da lista por
> algum tempo,
> >

Re: RES: [delphi-br] MALDITO BREAKPOINT

[Filipe Belchior]

naum adianta angélica, tentei.. obrigado



--- Em delphi-br@yahoogrupos.com.br, Angélica Viana Pereira
<[EMAIL PROTECTED]> escreveu
>
> Já tentou excluir os DCU e recompilar o projeto...
> 
> []s   Angélica
> 
> - Original Message - 
> From: "Filipe Belchior" <[EMAIL PROTECTED]>
> To: 
> Sent: Wednesday, September 13, 2006 2:55 PM
> Subject: Re: RES: [delphi-br] MALDITO BREAKPOINT
> 
> 
> pow rogério, tbm ja ta marcado, sinistro isso, não entendo
> pq ta acontecendo isso.. mas valeu mais uma vez.. to pensando
> em reinstalar o delphi.
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, Rogério <[EMAIL PROTECTED]>
escreveu
> >
> > Neste caso, vc deve resolver assim:
> >
> > Tools -> Debugger options
> > Ative: Integrated Debugging
> >
> > PS: Não falei isto antes pq vc disse que viu as config. e preferências
> >
> > Abraço,
> >
> > Rogério Ricardo Fernandes
> > Desenvolvimento
> > http://www.gs3.inf.br
> > Tel.:47 3035-6020/Fax:47 3035-6050
> >   - Original Message - 
> >   From: Filipe Belchior
> >   To: delphi-br@yahoogrupos.com.br
> >   Sent: Wednesday, September 13, 2006 2:02 PM
> >   Subject: Re: RES: [delphi-br] MALDITO BREAKPOINT
> >
> >
> >   pow thiago, desculpe mas, isso eu já sei.. o q ta acontecendo,
> >   eh fora do normal.. nenhuma linha ta aceitando o breakpoint!
> >
> >
> >
> >   --- Em delphi-br@yahoogrupos.com.br, "Moked - Thiago \(Brasil\)"
> >   <[EMAIL PROTECTED]> escreveu
> >   >
> >   > quando o break fica com o x vermelho, eh porque nao pode para
nessa
> >   linha, tente
> >   > colocar o break em alguma linha que faça alguma coisa, por
> exemplo if...
> >   >
> >   > se colocar no begin, ou em linha em branca tbm não funciona.
> >   >
> >   >
> >   >
> >   > Thiago Filiano - Suporte técnico
> >   > Moked do Brasil - Consultoria de Segurança Empresarial
> >   > Divisão Mokinf de Informática
> >   > PABX: (55-11) 5071-2748
> >   > [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
> >   > www.moked.com.br <http://www.moked.com.br/>
> >   >
> >   >
> >   > 
> >   >
> >   > De: delphi-br@yahoogrupos.com.br
> >   [mailto:[EMAIL PROTECTED] Em nome de Filipe Belchior
> >   > Enviada em: quarta-feira, 13 de setembro de 2006 13:48
> >   > Para: delphi-br@yahoogrupos.com.br
> >   > Assunto: [delphi-br] MALDITO BREAKPOINT
> >   >
> >   >
> >   > olá galera, pow, mals pelo titulo do assunto..
> >   >
> >   > Eh a 2a vez q me acontece isso, mas na 1a vez o projeto
> >   > naum era meu.. seguinte, o Delphi está simplesmente
> >   > ignorando meus breakpoints.. já olhei em tudo que eh
> >   > configuração e preferência, e nem lembro de ter mexido
> >   > em algum ultimamente..
> >   >
> >   > qnd compilo, vai direitin, e aparece akelas bolinhas azuis
> >   > em cada linha, normalmente.. marco um breakpoint, ateh ai
> >   > normal tbm.. mas depois q rodo (f9, f8, f7).. onde ta
> >   > marcado o breakpoint, fica a linha em verde escuro, e
> >   > bolinha vermelha com um "x", conhecida por muitos.. com
> >   > isso, o depurador naum para na linha.. e durante o programa
> >   > aberto, se eu marco qq linha, fica tbm em verde.. ou seja
> >   > naum permite nenhum breakpoint.
> >   >
> >   > help!
> >   >
> >   >
> >   >
> >   >
> >   >
> >   >
> >   >
> >   >
> >   > [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 >>>>>
> 
> 
> 
> 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: RES: [delphi-br]

[Filipe Belchior]

pow tamara.. agora ateh eu fikei curioso, rs.. tem orkut?



--- Em delphi-br@yahoogrupos.com.br, "Moked - Tamara \(Brazil\)"
<[EMAIL PROTECTED]> escreveu
>
> Aiai...rs...
>  
> Tamara Clemente - Suporte Técnico
> Moked do Brasil - Consultoria de Segurança Empresarial
> Divisão MokInf de Informática
> PABX: (55-11) 5071-2748
> [EMAIL PROTECTED]  
> www.moked.com.br  
> 
> 
> 
> 
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em nome de Ulisses
> Enviada em: quarta-feira, 13 de setembro de 2006 15:02
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br]
> 
> 
> Lara Croft é a Musa dos fanáticos, pela série de Jogos TOMB RAIDER.
> 
> []'s
> 
> Ulisses
>   -Mensagem Original- 
>   De: Moked - Tamara (Brazil) 
>   Para: delphi-br@yahoogrupos.com.br 
>   Enviada em: quarta-feira, 13 de setembro de 2006 14:17
>   Assunto: RES: [delphi-br]
> 
> 
>   Nossa... q q issu? Q q quer dizer "virar a Lara Croft da lista
Delphi-BR"???rs
> 
>   Tamara Clemente - Suporte Técnico
>   Moked do Brasil - Consultoria de Segurança Empresarial
>   Divisão MokInf de Informática
>   PABX: (55-11) 5071-2748
>   [EMAIL PROTECTED]  
>   www.moked.com.br  
> 
> 
>   
> 
>   De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em nome de Ulisses
>   Enviada em: quarta-feira, 13 de setembro de 2006 13:47
>   Para: delphi-br@yahoogrupos.com.br
>   Assunto: Re: [delphi-br]
> 
> 
>   Mascote é demais também.
> 
>   Poderia dizer que é a caçula, mas mascote...  hehehe
> 
>   Tamara, cuidado pra não virar a Lara Croft da lista Delphi-BR.  he
he he
> 
>   []'s
> 
>   Ulisses
> -Mensagem Original- 
> De: Campus 
> Para: delphi-br@yahoogrupos.com.br 
> Enviada em: quarta-feira, 13 de setembro de 2006 12:56
> Assunto: Re: [delphi-br]
> 
> 
> Que isso Walter, ela é nossa mascote.
> 
> 
> - Original Message - 
> From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
> To: 
> Sent: Wednesday, September 13, 2006 12:44 PM
> Subject: RES: [delphi-br]
> 
> 
> hehe,
> 
> Pelo menos deu pra você sacar que tens pretendentes virtuais né
> 
> []s
> 
> Walter Alves Chagas Junior
> Projeto e desenvolvimento de sistemas
> Telemont Engenharia de telecomunicações S/A
> Belo Horizonte - MG - Brasil
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
> 
> Parabens Telemont - Somos a 8ª maior empresa do Brasil no
segmento de
> construção!!
> 
> 
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED]
> nome de Moked - Tamara (Brazil)
> Enviada em: quarta-feira, 13 de setembro de 2006 12:27
> Para: delphi-br@yahoogrupos.com.br
> Assunto: RES: [delphi-br]
> 
> 
> hahahahaha... cade a Tamara???rs... pq?
> 
> Eu to aki Ulisses... ainda... rs...
> 
> Aproveito para falar pro pessoal q ficarei fora da lista por
algum tempo,
> estou me desligando da empresa, mas assim q as coisas estiverem
acertadas,
> volto, acredito q ñ fike de fora por mais de uma semana...
> 
> Obrigada,
> 
> Tamara Clemente - Suporte Técnico
> Moked do Brasil - Consultoria de Segurança Empresarial
> Divisão MokInf de Informática
> PABX: (55-11) 5071-2748
> [EMAIL PROTECTED] 
> www.moked.com.br 
> 
> 
> 
> 
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em
> nome de Moked - Thiago (Brasil)
> Enviada em: quarta-feira, 13 de setembro de 2006 12:02
> Para: delphi-br@yahoogrupos.com.br
> Assunto: RES: [delphi-br]
> 
> 
> Bom dia Ulisses,
> 
> a Tamara esta aqui...
> 
> já solucionei. obrigado.
> 
> 
> 
> 
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em
> nome de Ulisses
> Enviada em: quarta-feira, 13 de setembro de 2006 11:32
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br]
> 
> 
> Bom dia!
> 
> Como assim?
> 
> Pode ser um pouco mais claro?
> 
> Cadê a Tamara?
> 
> []'s
> 
> Ulisses
>   -Mensagem Original- 
>   De: Moked - Thiago (Brasil)
>   Para: delphi-br@yahoogrupos.com.br
>   Enviada em: quarta-feira, 13 de setembro de 2006 09:43
>   Assunto: [delphi-br]
> 
> 
>   Bom dia Pessoal,
> 
>   Tenho uma aplicação e preciso atribuir valores para todos os
registros que
> vierem de um select e gravar no banco de dados, como posso fazer
isso?
> 
>   obrigado.
> 
>   Thiago Filiano - Suporte técnico
>   Moked do Brasil - Consultoria de Segurança Empresarial
>   Divisão Mokinf de Informática
>   PABX: (55-11) 5071-2748
>   [EMAIL PROTECTED] 
>   www.moked.co

Re: RES: [delphi-br] MALDITO BREAKPOINT

[Filipe Belchior]

pow rogério, tbm ja ta marcado, sinistro isso, não entendo
pq ta acontecendo isso.. mas valeu mais uma vez.. to pensando
em reinstalar o delphi.



--- Em delphi-br@yahoogrupos.com.br, Rogério <[EMAIL PROTECTED]> escreveu
>
> Neste caso, vc deve resolver assim:
> 
> Tools -> Debugger options
> Ative: Integrated Debugging
> 
> PS: Não falei isto antes pq vc disse que viu as config. e preferências
> 
> Abraço,
> 
> Rogério Ricardo Fernandes
> Desenvolvimento
> http://www.gs3.inf.br
> Tel.:47 3035-6020/Fax:47 3035-6050 
>   - Original Message - 
>   From: Filipe Belchior 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Wednesday, September 13, 2006 2:02 PM
>   Subject: Re: RES: [delphi-br] MALDITO BREAKPOINT
> 
> 
>   pow thiago, desculpe mas, isso eu já sei.. o q ta acontecendo,
>   eh fora do normal.. nenhuma linha ta aceitando o breakpoint!
> 
> 
> 
>   --- Em delphi-br@yahoogrupos.com.br, "Moked - Thiago \(Brasil\)"
>   <[EMAIL PROTECTED]> escreveu
>   >
>   > quando o break fica com o x vermelho, eh porque nao pode para nessa
>   linha, tente
>   > colocar o break em alguma linha que faça alguma coisa, por
exemplo if...
>   >  
>   > se colocar no begin, ou em linha em branca tbm não funciona.
>   >  
>   >  
>   >  
>   > Thiago Filiano - Suporte técnico
>   > Moked do Brasil - Consultoria de Segurança Empresarial
>   > Divisão Mokinf de Informática
>   > PABX: (55-11) 5071-2748
>   > [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
>   > www.moked.com.br <http://www.moked.com.br/> 
>   >  
>   > 
>   > 
>   > 
>   > De: delphi-br@yahoogrupos.com.br
>   [mailto:[EMAIL PROTECTED] Em nome de Filipe Belchior
>   > Enviada em: quarta-feira, 13 de setembro de 2006 13:48
>   > Para: delphi-br@yahoogrupos.com.br
>   > Assunto: [delphi-br] MALDITO BREAKPOINT
>   > 
>   > 
>   > olá galera, pow, mals pelo titulo do assunto..
>   > 
>   > Eh a 2a vez q me acontece isso, mas na 1a vez o projeto
>   > naum era meu.. seguinte, o Delphi está simplesmente
>   > ignorando meus breakpoints.. já olhei em tudo que eh
>   > configuração e preferência, e nem lembro de ter mexido
>   > em algum ultimamente..
>   > 
>   > qnd compilo, vai direitin, e aparece akelas bolinhas azuis
>   > em cada linha, normalmente.. marco um breakpoint, ateh ai
>   > normal tbm.. mas depois q rodo (f9, f8, f7).. onde ta
>   > marcado o breakpoint, fica a linha em verde escuro, e
>   > bolinha vermelha com um "x", conhecida por muitos.. com
>   > isso, o depurador naum para na linha.. e durante o programa
>   > aberto, se eu marco qq linha, fica tbm em verde.. ou seja
>   > naum permite nenhum breakpoint.
>   > 
>   > help!
>   > 
>   > 
>   > 
>   > 
>   > 
>   >  
>   > 
>   > 
>   > [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] Re: MALDITO BREAKPOINT

[Filipe Belchior]

pow eduardo, valeu a idéia.. mas vi, e num tem essa diretiva
declarada.



--- Em delphi-br@yahoogrupos.com.br, Eduardo <[EMAIL PROTECTED]> escreveu
>
> Partindo do principio q este metodo esta sendo executado em algum 
> momento, procure no seu codigo se existe uma diretiva de compilação 
> "{$D-}" se existir, delete ou mude para "{$D+}".
> 
> 
> Eduardo
> 
> Filipe Belchior escreveu:
> > olá galera, pow, mals pelo titulo do assunto..
> >
> > Eh a 2a vez q me acontece isso, mas na 1a vez o projeto
> > naum era meu.. seguinte, o Delphi está simplesmente
> > ignorando meus breakpoints.. já olhei em tudo que eh
> > configuração e preferência, e nem lembro de ter mexido
> > em algum ultimamente..
> >
> > qnd compilo, vai direitin, e aparece akelas bolinhas azuis
> > em cada linha, normalmente.. marco um breakpoint, ateh ai
> > normal tbm.. mas depois q rodo (f9, f8, f7).. onde ta
> > marcado o breakpoint, fica a linha em verde escuro, e
> > bolinha vermelha com um "x", conhecida por muitos.. com
> > isso, o depurador naum para na linha.. e durante o programa
> > aberto, se eu marco qq linha, fica tbm em verde.. ou seja
> > naum permite nenhum breakpoint.
> >
> > help!
> >
> >
> >
> >
> >
> >  
> 
> 
>   
> ___ 
> 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] Re: MALDITO BREAKPOINT

[Filipe Belchior]

rogério, desuculpe mas, rs, vou responder o mesmo q respondi
pro thiago.. isso eu já sei!! ..o q ta acontecendo eh fora do
normal.. como eu disse, o projeto compila normal, e aparecem
as "bolinhas azuis", q indicam "linhas válidas", onde posso
colocar breakpoint.. o q ta acontecendo, eh q num aceita em
nenhuma linha.. nada!.. qq linha q eu coloke, fica com a
marcação de "breakpoint inválido"..
..esta ocorredo um erro no programa, e estou tento muita
dificuldade pra identifica-lo pq naum consigo usar o break
:(
:(
:(



--- Em delphi-br@yahoogrupos.com.br, Rogério <[EMAIL PROTECTED]> escreveu
>
> Isto é porque a linha em questão está sendo ignorada na compilação.
> 
> O Delphi faz uma compilação inteligente e se puder desprezar algo,
ele despreza.
> É o que acontece no seu caso, ou
> o comando está quebrado em mais de uma linha e o break está na linha
errada.
> 
> Abraço,
> 
> Rogério Ricardo Fernandes
> Desenvolvimento
> http://www.gs3.inf.br
> Tel.:47 3035-6020/Fax:47 3035-6050 
>   - Original Message - 
>   From: Filipe Belchior 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Wednesday, September 13, 2006 1:39 PM
>   Subject: [delphi-br] MALDITO BREAKPOINT
> 
> 
>   olá galera, pow, mals pelo titulo do assunto..
> 
>   Eh a 2a vez q me acontece isso, mas na 1a vez o projeto
>   naum era meu.. seguinte, o Delphi está simplesmente
>   ignorando meus breakpoints.. já olhei em tudo que eh
>   configuração e preferência, e nem lembro de ter mexido
>   em algum ultimamente..
> 
>   qnd compilo, vai direitin, e aparece akelas bolinhas azuis
>   em cada linha, normalmente.. marco um breakpoint, ateh ai
>   normal tbm.. mas depois q rodo (f9, f8, f7).. onde ta
>   marcado o breakpoint, fica a linha em verde escuro, e
>   bolinha vermelha com um "x", conhecida por muitos.. com
>   isso, o depurador naum para na linha.. e durante o programa
>   aberto, se eu marco qq linha, fica tbm em verde.. ou seja
>   naum permite nenhum breakpoint.
> 
>   help!
> 
> 
> 
> 
> 
>
> 
> [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] MALDITO BREAKPOINT

[Filipe Belchior]

pow thiago, desculpe mas, isso eu já sei.. o q ta acontecendo,
eh fora do normal.. nenhuma linha ta aceitando o breakpoint!



--- Em delphi-br@yahoogrupos.com.br, "Moked - Thiago \(Brasil\)"
<[EMAIL PROTECTED]> escreveu
>
> quando o break fica com o x vermelho, eh porque nao pode para nessa
linha, tente
> colocar o break em alguma linha que faça alguma coisa, por exemplo if...
>  
> se colocar no begin, ou em linha em branca tbm não funciona.
>  
>  
>  
> Thiago Filiano - Suporte técnico
> Moked do Brasil - Consultoria de Segurança Empresarial
> Divisão Mokinf de Informática
> PABX: (55-11) 5071-2748
> [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
> www.moked.com.br <http://www.moked.com.br/> 
>  
> 
> ____
> 
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em nome de Filipe Belchior
> Enviada em: quarta-feira, 13 de setembro de 2006 13:48
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] MALDITO BREAKPOINT
> 
> 
> olá galera, pow, mals pelo titulo do assunto..
> 
> Eh a 2a vez q me acontece isso, mas na 1a vez o projeto
> naum era meu.. seguinte, o Delphi está simplesmente
> ignorando meus breakpoints.. já olhei em tudo que eh
> configuração e preferência, e nem lembro de ter mexido
> em algum ultimamente..
> 
> qnd compilo, vai direitin, e aparece akelas bolinhas azuis
> em cada linha, normalmente.. marco um breakpoint, ateh ai
> normal tbm.. mas depois q rodo (f9, f8, f7).. onde ta
> marcado o breakpoint, fica a linha em verde escuro, e
> bolinha vermelha com um "x", conhecida por muitos.. com
> isso, o depurador naum para na linha.. e durante o programa
> aberto, se eu marco qq linha, fica tbm em verde.. ou seja
> naum permite nenhum breakpoint.
> 
> help!
> 
> 
> 
> 
> 
>  
> 
> 
> [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] MALDITO BREAKPOINT

[Filipe Belchior]

olá galera, pow, mals pelo titulo do assunto..

Eh a 2a vez q me acontece isso, mas na 1a vez o projeto
naum era meu.. seguinte, o Delphi está simplesmente
ignorando meus breakpoints.. já olhei em tudo que eh
configuração e preferência, e nem lembro de ter mexido
em algum ultimamente..

qnd compilo, vai direitin, e aparece akelas bolinhas azuis
em cada linha, normalmente.. marco um breakpoint, ateh ai
normal tbm.. mas depois q rodo (f9, f8, f7).. onde ta
marcado o breakpoint, fica a linha em verde escuro, e
bolinha vermelha com um "x", conhecida por muitos.. com
isso, o depurador naum para na linha.. e durante o programa
aberto, se eu marco qq linha, fica tbm em verde.. ou seja
naum permite nenhum breakpoint.

help!







-- 
< 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] Re: Editar em ClientDataSet

[Filipe Belchior]

ok marcos, entendido isso.. agora, :D ..seguinte, pra editar
(update) uma tabela.. vamos fazer na prática, :D ..quais
componentes usar? ..CDS, DSP e SQ??? na CDS eu defino os Fields.
Como informar qual tabela? ..O DSP, normal.. e o SQ? uso?



--- Em delphi-br@yahoogrupos.com.br, "Marcos Douglas" <[EMAIL PROTECTED]> 
escreveu
>
> Filipe,
> Veja minhas considerações abaixo:
> 
> > marcos.. olhei a respeito do método, no delphi.. mas eu num
> > entendi exatamente como funciona.. eu deixo o comandtext em
> > branco? ..e tbm tem essa parte dita pelo help do delphi..
> 
> O método CreateDataSet cria uma "área" em memória como se tivesse
sido feito
> um SELECT no banco, mas que não foi retornado nenhum registro. A
propriedade
> CommandText não tem nada a ver com isso; na verdade não é bom utilizar
> CommandText.
> 
> > ..qnd vc disse que eh "obrigatório definir os TFields antes",
> > na verdade, vc naum quiz dizer TFieldDefs? ..e tbm, o texto
> > acima retirado do help, diz que eh usado o FieldDefs OU o
> > Fields para cria as definições dos campos. Afinal, qual a
> > diferença? ..pois, o Fields, eh criado qnd usamos o Open,
> > certo?
> 
> Tanto faz, é o que diz o help do Delphi. Se tem que definir, pelo
menos, os
> FieldDefs. Mas se houver TFields definidos, estes serão utilizados.
> Quando chamamos Open e não há nenhum FieldDefs definido, o Delphi
cria eles
> em rumtime, junto com os TFields.
> 
> 
> >
> > --- Em delphi-br@yahoogrupos.com.br, "Marcos Douglas" <[EMAIL PROTECTED]>
escreveu
> >>
> >> Não precisa dar Open. Vc pode utilizar o método CreateDataSet, mas é
> >> obrigatório definir os TFields antes.
> >>
> >> --
> >> Marcos Douglas
> >>
> >>  Mensagem Original 
> >> From: "Filipe Belchior" <[EMAIL PROTECTED]>
> >> To: delphi-br@yahoogrupos.com.br
> >> Sent: Seg, Setembro 11, 2006 2:56 pm
> >> Subject: [delphi-br] Editar em ClientDataSet
> >>
> >> > olá, paz..
> >> >
> >> > Direto ao assunto.. pra fazer uma edição em CDS (insert,
> >> > update, delete), é preciso um "Open" antes, correto?
> >> > Se vou abrir preciso do select.. o select tem q ser "*"?
> >> > mas se for um select com "where"?
> >> >
> >> > []s
> >> >
> >> > PS.: estou comecando em MIDAS. E sempre fiz edição por sql
> >> > dinâmica.. nada de "DataSet.Insert", ".Edit", etc..
> >> >
> >> >
> >> > FILIPE BELCHIOR
> >> >
> >> >
> >> >
> >> >
> >>
> >
> >
> >
> >
> >
> >
>






-- 
<<<<< 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] Re: Editar em ClientDataSet

[Filipe Belchior]

marcos.. olhei a respeito do método, no delphi.. mas eu num
entendi exatamente como funciona.. eu deixo o comandtext em
branco? ..e tbm tem essa parte dita pelo help do delphi..

"If the FieldDefs property contains values, these values are
used to create field definitions. OTHERWISE the Fields
property is used."

..qnd vc disse que eh "obrigatório definir os TFields antes",
na verdade, vc naum quiz dizer TFieldDefs? ..e tbm, o texto
acima retirado do help, diz que eh usado o FieldDefs OU o
Fields para cria as definições dos campos. Afinal, qual a
diferença? ..pois, o Fields, eh criado qnd usamos o Open,
certo?



--- Em delphi-br@yahoogrupos.com.br, "Marcos Douglas" <[EMAIL PROTECTED]> 
escreveu
>
> Não precisa dar Open. Vc pode utilizar o método CreateDataSet, mas é
> obrigatório definir os TFields antes.
> 
> --
> Marcos Douglas
> 
>  Mensagem Original 
> From: "Filipe Belchior" <[EMAIL PROTECTED]>
> To: delphi-br@yahoogrupos.com.br
> Sent: Seg, Setembro 11, 2006 2:56 pm
> Subject: [delphi-br] Editar em ClientDataSet
> 
> > olá, paz..
> >
> > Direto ao assunto.. pra fazer uma edição em CDS (insert,
> > update, delete), é preciso um "Open" antes, correto?
> > Se vou abrir preciso do select.. o select tem q ser "*"?
> > mas se for um select com "where"?
> >
> > []s
> >
> > PS.: estou comecando em MIDAS. E sempre fiz edição por sql
> > dinâmica.. nada de "DataSet.Insert", ".Edit", etc..
> >
> >
> > FILIPE BELCHIOR
> >
> >
> >
> >
>







-- 
<<<<< 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] Editar em ClientDataSet

[Filipe Belchior]

olá, paz..

Direto ao assunto.. pra fazer uma edição em CDS (insert,
update, delete), é preciso um "Open" antes, correto?
Se vou abrir preciso do select.. o select tem q ser "*"?
mas se for um select com "where"?

[]s

PS.: estou comecando em MIDAS. E sempre fiz edição por sql
dinâmica.. nada de "DataSet.Insert", ".Edit", etc..


FILIPE BELCHIOR





-- 
<<<<< 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] Re: Migrar para sistema multicamadas

[Filipe Belchior]

pow, sinceramente naum sei dizer à respeito.. eh isso, tbm
vejo muito escreverem sobre SOAP, ele eh popular. E pelo
menos, o SOAP eh muito simples de implementar em Delphi,
COM+ tem umas coisinhas a mais pra configurar no S.O., mas
tbm num xega a ser complicado.



--- Em delphi-br@yahoogrupos.com.br, Welson Avelar
<[EMAIL PROTECTED]> escreveu
>
> --- Filipe Belchior escreveu:
> > bom, welson, o luiz explicou como enxergar a sua maquina remotamente,
> > agora, se vc tbm quer saber como implementar mesmo, multicamadas,
> > se for em delphi mesmo (digo isso, pois como vc comecou seu topico,
> > não tenho certeza se é em delphi mesmo), pesquise por exemplos
> > utilizando Datasnap com SOAP. vlw.
> > 
> > []s
> > FILIPE BELCIOR
> [--x--]
> 
> [Welson] O sistema é em Delphi mesmo. De início pensei em usar COM+,
mas o SOAP
> falam bem dele também. Qual a vantagem do SOAP pro COM+ ? A
diferença chega a
> ser gritante ?!
> 
> Obrigado Filipe pela atenção e também ao Luiz (acho que não o
agradeci no email
> dele)
> 
> []s.
> 
> =
> "O que me preocupa não é o grito dos maus. É o silêncio dos bons."
> Martin Luther King.
> =
> Welson de Avelar Soares Filho
> Analista/Programador Delphi
> Gemini Sistemas
> 
> Juiz de Fora - Minas Gerais
> =
> 
> 
>   
> ___ 
> 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] Re: Scroll em runtime [RESOLVIDO, legal]

[Filipe Belchior]

olá galera..

eis a solução..


PostMessage( DBRichEdit1.Handle, WM_VSCROLL, SB_PAGEUP, 0 );
//ou
PostMessage( DBRichEdit1.Handle, WM_VSCROLL, SB_PAGDOWN, 0 );


..vlw, fica pra aprendizado

[]s

FILIPE BELCHIOR



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> olá galera, paz..
> 
> ..seguinte, questão dificil, rs.. to precisando rolar
> a scrollbar em runtime, de um dbrichedit.. é de um módulo
> em touchscreen, então, personalizei os botões de rolagem.
> 
> bom.. estou tentando, usar o método ScrollBy, herdado
> da classe TWinControl, mas naum funciona da forma que
> eu esperava, só vcs vendo pra entenderem..
> 
> se puderem, encarissidamente, me ajudarem, agradeço, rs.
> :D
>







-- 
<<<<< 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] Re: Como gravar um JPG no FB com Delphi

[Filipe Belchior]

thiago e nivaldo,

desculpe, naum vou me explicar pois estou sem tempo, rs..
mas leiam sobre stream.. TJPEGImage.SaveToStream

[]s
FILIPE BELCHIOR



--- Em delphi-br@yahoogrupos.com.br, Nivaldo Stainle
<[EMAIL PROTECTED]> escreveu
>
> estou querendo fazer a mesma coisa e não consigo, caso você descubra por
>   favor me avise, se eu descobrir farei o mesmo.
>
>   Stainle
> 
> Thiago Menon <[EMAIL PROTECTED]> escreveu:
>   Olá,
> 
> Gostaria de saber como faço para gravar uma imagem em um campo do tipo 
> BLOB utilizando o Delphi ?
> 
> Eu fiz um teste e nao aceita pois está dizendo q nao é uma extensão
valida.
> 
> Muito Obrigado
> Thiago Menon
>  
> 
>   
> -
>  Yahoo! Search
>  Música para ver e ouvir: You're Beautiful, do James Blunt
> 
> [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] Re: Como gravar um JPG no FB com Delphi

[Filipe Belchior]

thiago e nivaldo,

desculpe, naum vou me explicar pois estou com um pouco sem tempo, rs..
mas leiam sobre stream.. TJPEGImage.SaveToStream

[]s
FILIPE BELCHIOR



--- Em delphi-br@yahoogrupos.com.br, Nivaldo Stainle
<[EMAIL PROTECTED]> escreveu
>
> estou querendo fazer a mesma coisa e não consigo, caso você descubra por
>   favor me avise, se eu descobrir farei o mesmo.
>
>   Stainle
> 
> Thiago Menon <[EMAIL PROTECTED]> escreveu:
>   Olá,
> 
> Gostaria de saber como faço para gravar uma imagem em um campo do tipo 
> BLOB utilizando o Delphi ?
> 
> Eu fiz um teste e nao aceita pois está dizendo q nao é uma extensão
valida.
> 
> Muito Obrigado
> Thiago Menon
>  
> 
>   
> -
>  Yahoo! Search
>  Música para ver e ouvir: You're Beautiful, do James Blunt
> 
> [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] Re: Migrar para sistema multicamadas

[Filipe Belchior]

bom, welson, o luiz explicou como enxergar a sua maquina remotamente,
agora, se vc tbm quer saber como implementar mesmo, multicamadas,
se for em delphi mesmo (digo isso, pois como vc comecou seu topico,
não tenho certeza se é em delphi mesmo), pesquise por exemplos
utilizando Datasnap com SOAP. vlw.

[]s
FILIPE BELCIOR



--- Em delphi-br@yahoogrupos.com.br, "Luiz Escobar" <[EMAIL PROTECTED]>
escreveu
>
> Bom com certeza seu servidor vai esta dentro da sua empresa, e o ip
dele ser 
> 192.168.0.x ou 10.1.1.x etc..
> que não é um IP valido, certo !?, OK!?
> 
> Bom então no seu ROTEADOR/NAT, vc vai criar um regra para fazer um 
> redirecionamento de porta para a maquina servidora, e nos clientes
vc vai 
> colocar o IP valido do seu ROTEADOR/NAT e não do seu servidor REAL
entendeu 
> ?
> 
> IP.internet 200.x.x.x.x <--> routeador/nat porta 3306(mysql) 
> ip.interno.do.roteador 192.168.0.1 <--> vai para o servidor MySQL
interno no 
> IP:192.168.0.x
> 
> no cliente ip do servidor mysql será: 200.x.x.x.x
> 
> o Exemplo é valido para qualquer servidor só falta saber a porta que
vc vai 
> utilizar ;-)
> 
> 
> 
> Luiz Escobar
> Analista/Desenvolvedor:
> WEB - HTML/JavaScript/PHP/MySQL
> WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
> DOS - Clipper/Assembler xBase
> LINUX - LAZARUS/Kylix/MySQL;
> http://www.megasistema.com.br
> 
> - Original Message - 
> From: Welson Avelar
> To: Delphi-BR
> Sent: Thursday, August 31, 2006 5:40 PM
> Subject: [delphi-br] Migrar para sistema multicamadas
> 
> 
> Amigos, perdoem o assunto do email, as foi o mais próximo que
encontrei para
> chamar a atenção para a minha questão.
> É o seguinte: temos hoje aqui na empresa um sistema que está em um
cliente 
> com
> filiais espalhadas por Minas.
> Quando foi colocado o sistema, tinha a necessidade que os bancos de
dados de
> todos (matriz e filiais) permanecessem atualizados. Na época (eu não
estava 
> na
> empresa ainda) foi feito o seguinte:
> A filial extrai todos os dados, de todas as tabelas, que foram
alterados e 
> NÃO
> enviados na última exportação e manda para a matriz. A matriz importa e 
> exporta
> alguma coisa que ela tenha feito, no mesmo esquema que as filiais,
ou seja,
> extrai os dados, de todas as tabelas, que foram alterados e NÃO
enviados na
> última exportação.
> Isso nós fazíamos porque o cliente tinha conexão discada e somente a
matriz
> tinha banda larga (ela fica em Belo Horizonte). Recentemente todas as 
> filiais
> colocaram banda larga e eles resolveram centralizar o banco de
dados, porque 
> é
> mais seguro contra invasão (física mesmo, de alguém ir lá e roubar o
BD) e
> roubo dos dados.
> 
> Bom, essa foi a explanação sobre como funciona o sistema hoje. É na 
> filosofia
> de cliente/servidor.
> Pra colocar da forma que o cliente deu idéia, eu coloquei a
possibilidade de
> passarmos pra multicamadas, mas uma dúvida ficou pertinente:
> o cliente disponibilizando um servidor dedicado, como eu conectarei 
> remotamente
> a essa máquina ?! O que eu quero saber é se "basta" passar o IP do
servidor
> para conectar a máquina e 'voi lá', já conectei...
> 
> Acho que falta perguntar mais coisas, mas como é uma coisa absolutamente
> inédita pra mim, nem sei o que perguntar. Por isso que peço a ajuda dos 
> amigos
> da lista, pra poderem me "dar a luz" no problema.
> 
> []s.
> 
> =
> "O que me preocupa não é o grito dos maus. É o silêncio dos bons."
> Martin Luther King.
> =
> Welson de Avelar Soares Filho
> Analista/Programador Delphi
> Gemini Sistemas
> 
> Juiz de Fora - Minas Gerais
> =
> 
> 
> 
> ___
> 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] Scroll em runtime

[Filipe Belchior]

olá galera, paz..

..seguinte, questão dificil, rs.. to precisando rolar
a scrollbar em runtime, de um dbrichedit.. é de um módulo
em touchscreen, então, personalizei os botões de rolagem.

bom.. estou tentando, usar o método ScrollBy, herdado
da classe TWinControl, mas naum funciona da forma que
eu esperava, só vcs vendo pra entenderem..

se puderem, encarissidamente, me ajudarem, agradeço, rs.
:D






-- 
< 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] Re: Ponteiro de Interface?? [RESOLVIDO]

[Filipe Belchior]

blz galera, eis o acerto..


PMinhaInterface = ^IMinhaInterface

OutraInterface: IMinhaInterface
 
OutraInterface := PMinhaInterface(ponteiro)^
 
OutraInterface.UmMetodoDaInterface //CORRETO!



..valeu!! fica pra aprendizado!! []s



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> olá..
> 
> ..naum estou conseguindo utilizar um objeto, que passo
> o "ponteiro da sua interface" por parametro, pois é,
> seguinte..
> 
> 
> IMinhaInterface = Interface
> 
> TMinhaClasse = class(TInterfacedObject, IMinhaInterface)
> 
> 
> MinhaInterfaceImplementada: IMinhaClasse
> 
> MinhaInterfaceImplementada := TMinhaClasse.Create
> 
> 
> procedure MeuMetodo( ponteiro: Cardinal )
> 
> 
> MeuMetodo( @MinhaInterfaceImplementada )
> 
> OutraInterface: IMinhaInterface
> 
> OutraInterface := ponteiro^
> 
> OutraInterface.UmMetodoDaInterface //ERRO!
> 
> 
> ..num sei se vcs entenderam, rs.. mas, agradeco quem puder ajudar.
> 
> ..mais uma coisa, vcs provavelmente irao perguntar o pq do parametro
> como ponteiro.. desacoplamento.. por conta disso, eu naum mostrei
> exatamente como faco a passagem de parametro, mas exemplifiquei
> através do "MeuMetodo"
> 
> []s
> 
> FILIPE BELCHIOR
>







-- 
<<<<< 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] Ponteiro de Interface??

[Filipe Belchior]

olá..

..naum estou conseguindo utilizar um objeto, que passo
o "ponteiro da sua interface" por parametro, pois é,
seguinte..


IMinhaInterface = Interface

TMinhaClasse = class(TInterfacedObject, IMinhaInterface)


MinhaInterfaceImplementada: IMinhaClasse

MinhaInterfaceImplementada := TMinhaClasse.Create


procedure MeuMetodo( ponteiro: Cardinal )


MeuMetodo( @MinhaInterfaceImplementada )

OutraInterface: IMinhaInterface

OutraInterface := ponteiro^

OutraInterface.UmMetodoDaInterface //ERRO!


..num sei se vcs entenderam, rs.. mas, agradeco quem puder ajudar.

..mais uma coisa, vcs provavelmente irao perguntar o pq do parametro
como ponteiro.. desacoplamento.. por conta disso, eu naum mostrei
exatamente como faco a passagem de parametro, mas exemplifiquei
através do "MeuMetodo"

[]s

FILIPE BELCHIOR





-- 
<<<<< 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] Re: Não sei como resolver, se com apontadores ou typecast ou sei la oque...

[Filipe Belchior]

kra, rs.. q eu saiba nao! ..mas.. pensei agora, uma outra idéia,
seria usar overload de métodos.. mas ainda naum pensei direito
na idéia.



--- Em delphi-br@yahoogrupos.com.br, "Jônatas Renan" <[EMAIL PROTECTED]>
escreveu
>
> então não é possível eu usar um retorno de função que possa ser
string e ao
> mesmo tempo um filho de Tobject
> 
> 
> 
> Em 11/08/06, Filipe Belchior <[EMAIL PROTECTED]> escreveu:
> >
> > ..OPS, ERREI!!
> >
> > O CERTO É..
> >
> >
> > var
> > valor: IMeusValores;
> > form1: TFORM;
> >
> > begin
> >
> > valor := MinhaFuncao(1);
> > showmessage( valor.Value );
> >
> > {** ..OU..
> > form1 := TForm( MinhaFuncao(1));
> > showmessage( form1.Value );
> > **}
> >
> > end;
> >
> >
> >
> >
> > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
> > <[EMAIL PROTECTED]> escreveu
> > >
> > > ..ESQUECI O SEGUINTE..
> > >
> > > var
> > > valor: IMeusValores;
> > >
> > > begin
> > >
> > > valor := MinhaFuncao(1).Value;
> > > {** ..OU..
> > > valor := TForm( MinhaFuncao(1).Value );
> > > **}
> > >
> > > end;
> > >
> > >
> > > ..OBS.: SE VC QUER UMA FUNÇÃO QUE RETORNE TIPOS PRIMITIVOS
> > > OU OBJETOS, NÃO ADIANTA, VAI TER QUE USAR TYPECAST!! SENÃO,
> > > VC JÁ QUER DEMAIS, NÉ!! RSRS.. VALEU!!!
> > >
> > >
> > >
> > > --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
> > > <[EMAIL PROTECTED]> escreveu
> > > >
> > > > olá..
> > > >
> > > > ..use interface.. tipo assim..
> > > >
> > > >
> > > >
> > > > IMeusValores = Interface
> > > >   function GetValue: Variant;
> > > >   procedure SetValue(Value: Variant);
> > > >   property Value: Variant read GetValue write SetValue;
> > > > end;
> > > >
> > > > TValue = class(TInterfacedObject, IMeusValores)
> > > > private
> > > >   FValue: Variant;
> > > >   function GetValue: Variant;
> > > >   procedure SetValue(Value: Variant);
> > > > public
> > > >   property Value: Variant read GetValue write SetValue;
> > > > end;
> > > >
> > > > {**
> > > > ..OU, QUALQUER CLASSE, SEM SER "TInterfacedObject",
> > > > DESDE QUE, IMPLEMENTE OS MÉTODOS DE "IInterface",
> > > > E ALÉM DISSO, IMPLEMENTE, NO CASO, "IMeusValores"
> > > > **}
> > > >
> > > > TMeuFormValores = class(TForm, IMeusValores)
> > > > private
> > > >   FValue: Variant;
> > > >   function GetValue: Variant;
> > > >   procedure SetValue(Value: Variant);
> > > > public
> > > >   property Value: Variant read GetValue write SetValue;
> > > > end;
> > > >
> > > >
> > > > implementation
> > > >
> > > >
> > > > function MinhaFuncao(Parametro: ?): IMeusValores;
> > > >  var
> > > >   v: IMeusValores;
> > > > begin
> > > >  v := TValue.Create;
> > > >  {** ..OU..
> > > >  v := TMeuFormValores.Create( Application );
> > > >  **}
> > > >
> > > >  Result := v;
> > > > end;
> > > >
> > > >
> > > >
> > > > ..ESTUDE INTERFACES, É LEGAL! RSRS
> > > >
> > > > []s
> > > >
> > > > FILIPE BELCHIOR
> > > >
> > > >
> > > >
> > > > --- Em delphi-br@yahoogrupos.com.br, "Andre Mesquita"
> > > > <[EMAIL PROTECTED]> escreveu
> > > > >
> > > > > experimente Variant, OLEVariant, e afins...
> > > > >
> > > > >
> > > > > - Original Message -
> > > > > From: "Jônatas Renan" <[EMAIL PROTECTED]>
> > > > > To: 
> > > > > Sent: Friday, August 11, 2006 4:44 PM
> > > > > Subject: [delphi-br] Não sei como resolver, se com
apontadores ou
> > > > typecast
> > > > > ou sei la oque...
> > > > >
> > > > >
> > > > > Preciso que uma função retorne uma variável que varie de
tipo
> > > > >
> > > > > Alguns exemplos d

[delphi-br] Re: Não sei como resolver, se com apontadores ou typecast ou sei la oque...

[Filipe Belchior]

..OPS, ERREI!!

O CERTO É..


 var
 valor: IMeusValores;
 form1: TFORM;
 
 begin
 
 valor := MinhaFuncao(1);
 showmessage( valor.Value );

 {** ..OU..
 form1 := TForm( MinhaFuncao(1));
 showmessage( form1.Value );
 **}
 
 end;



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> ..ESQUECI O SEGUINTE..
> 
> var
> valor: IMeusValores;
> 
> begin
> 
> valor := MinhaFuncao(1).Value;
> {** ..OU..
> valor := TForm( MinhaFuncao(1).Value );
> **}
> 
> end;
> 
> 
> ..OBS.: SE VC QUER UMA FUNÇÃO QUE RETORNE TIPOS PRIMITIVOS
> OU OBJETOS, NÃO ADIANTA, VAI TER QUE USAR TYPECAST!! SENÃO,
> VC JÁ QUER DEMAIS, NÉ!! RSRS.. VALEU!!!
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
> <[EMAIL PROTECTED]> escreveu
> >
> > olá..
> > 
> > ..use interface.. tipo assim..
> > 
> > 
> > 
> > IMeusValores = Interface
> >   function GetValue: Variant;
> >   procedure SetValue(Value: Variant);
> >   property Value: Variant read GetValue write SetValue;
> > end;
> > 
> > TValue = class(TInterfacedObject, IMeusValores)
> > private
> >   FValue: Variant;
> >   function GetValue: Variant;
> >   procedure SetValue(Value: Variant);
> > public
> >   property Value: Variant read GetValue write SetValue;
> > end;
> > 
> > {**
> > ..OU, QUALQUER CLASSE, SEM SER "TInterfacedObject",
> > DESDE QUE, IMPLEMENTE OS MÉTODOS DE "IInterface",
> > E ALÉM DISSO, IMPLEMENTE, NO CASO, "IMeusValores"
> > **}
> > 
> > TMeuFormValores = class(TForm, IMeusValores)
> > private
> >   FValue: Variant;
> >   function GetValue: Variant;
> >   procedure SetValue(Value: Variant);
> > public
> >   property Value: Variant read GetValue write SetValue;
> > end;
> > 
> > 
> > implementation
> > 
> > 
> > function MinhaFuncao(Parametro: ?): IMeusValores;
> >  var
> >   v: IMeusValores;
> > begin
> >  v := TValue.Create;
> >  {** ..OU..
> >  v := TMeuFormValores.Create( Application );
> >  **}
> >  
> >  Result := v;
> > end;
> > 
> > 
> > 
> > ..ESTUDE INTERFACES, É LEGAL! RSRS
> > 
> > []s
> > 
> > FILIPE BELCHIOR
> > 
> > 
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Andre Mesquita"
> > <[EMAIL PROTECTED]> escreveu
> > >
> > > experimente Variant, OLEVariant, e afins...
> > > 
> > > 
> > > - Original Message - 
> > > From: "Jônatas Renan" <[EMAIL PROTECTED]>
> > > To: 
> > > Sent: Friday, August 11, 2006 4:44 PM
> > > Subject: [delphi-br] Não sei como resolver, se com apontadores ou
> > typecast 
> > > ou sei la oque...
> > > 
> > > 
> > > Preciso que uma função retorne uma variável que varie de tipo
> > > 
> > > Alguns exemplos de uso que não devem gerar excessões:
> > > 
> > > showmessage(MinhaFuncao(ParametroParaQueORetornoSejaString));
> > > 
> > > x := 1 + MinhaFuncao(ParametroParaQueORetornoSejaInteiro);
> > > 
> > > Form := MinhaFuncao(ParametroParaQueORetornoSejaForm);
> > > 
> > > é possível em pascal??
> > > 
> > > como fica o escopo da function?
> > > 
> > > Usaria ponteiros???
> > > 
> > > Desde Já grato!!!
> > > 
> > > -- 
> > >=
> > >  Jônatas Renan - Freaker
> > >MSN: [EMAIL PROTECTED]
> > >   Instituto Damone de Softwares
> > >=
> > > 
> > > 
> > > [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

 

[delphi-br] Re: Não sei como resolver, se com apontadores ou typecast ou sei la oque...

[Filipe Belchior]

..ESQUECI O SEGUINTE..

var
valor: IMeusValores;

begin

valor := MinhaFuncao(1).Value;
{** ..OU..
valor := TForm( MinhaFuncao(1).Value );
**}

end;


..OBS.: SE VC QUER UMA FUNÇÃO QUE RETORNE TIPOS PRIMITIVOS
OU OBJETOS, NÃO ADIANTA, VAI TER QUE USAR TYPECAST!! SENÃO,
VC JÁ QUER DEMAIS, NÉ!! RSRS.. VALEU!!!



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> olá..
> 
> ..use interface.. tipo assim..
> 
> 
> 
> IMeusValores = Interface
>   function GetValue: Variant;
>   procedure SetValue(Value: Variant);
>   property Value: Variant read GetValue write SetValue;
> end;
> 
> TValue = class(TInterfacedObject, IMeusValores)
> private
>   FValue: Variant;
>   function GetValue: Variant;
>   procedure SetValue(Value: Variant);
> public
>   property Value: Variant read GetValue write SetValue;
> end;
> 
> {**
> ..OU, QUALQUER CLASSE, SEM SER "TInterfacedObject",
> DESDE QUE, IMPLEMENTE OS MÉTODOS DE "IInterface",
> E ALÉM DISSO, IMPLEMENTE, NO CASO, "IMeusValores"
> **}
> 
> TMeuFormValores = class(TForm, IMeusValores)
> private
>   FValue: Variant;
>   function GetValue: Variant;
>   procedure SetValue(Value: Variant);
> public
>   property Value: Variant read GetValue write SetValue;
> end;
> 
> 
> implementation
> 
> 
> function MinhaFuncao(Parametro: ?): IMeusValores;
>  var
>   v: IMeusValores;
> begin
>  v := TValue.Create;
>  {** ..OU..
>  v := TMeuFormValores.Create( Application );
>  **}
>  
>  Result := v;
> end;
> 
> 
> 
> ..ESTUDE INTERFACES, É LEGAL! RSRS
> 
> []s
> 
> FILIPE BELCHIOR
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "Andre Mesquita"
> <[EMAIL PROTECTED]> escreveu
> >
> > experimente Variant, OLEVariant, e afins...
> > 
> > 
> > - Original Message - 
> > From: "Jônatas Renan" <[EMAIL PROTECTED]>
> > To: 
> > Sent: Friday, August 11, 2006 4:44 PM
> > Subject: [delphi-br] Não sei como resolver, se com apontadores ou
> typecast 
> > ou sei la oque...
> > 
> > 
> > Preciso que uma função retorne uma variável que varie de tipo
> > 
> > Alguns exemplos de uso que não devem gerar excessões:
> > 
> > showmessage(MinhaFuncao(ParametroParaQueORetornoSejaString));
> > 
> > x := 1 + MinhaFuncao(ParametroParaQueORetornoSejaInteiro);
> > 
> > Form := MinhaFuncao(ParametroParaQueORetornoSejaForm);
> > 
> > é possível em pascal??
> > 
> > como fica o escopo da function?
> > 
> > Usaria ponteiros???
> > 
> > Desde Já grato!!!
> > 
> > -- 
> >=
> >  Jônatas Renan - Freaker
> >MSN: [EMAIL PROTECTED]
> >   Instituto Damone de Softwares
> >=
> > 
> > 
> > [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

 

[delphi-br] Re: Não sei como resolver, se com apontadores ou typecast ou sei la oque...

[Filipe Belchior]

olá..

..use interface.. tipo assim..



IMeusValores = Interface
  function GetValue: Variant;
  procedure SetValue(Value: Variant);
  property Value: Variant read GetValue write SetValue;
end;

TValue = class(TInterfacedObject, IMeusValores)
private
  FValue: Variant;
  function GetValue: Variant;
  procedure SetValue(Value: Variant);
public
  property Value: Variant read GetValue write SetValue;
end;

{**
..OU, QUALQUER CLASSE, SEM SER "TInterfacedObject",
DESDE QUE, IMPLEMENTE OS MÉTODOS DE "IInterface",
E ALÉM DISSO, IMPLEMENTE, NO CASO, "IMeusValores"
**}

TMeuFormValores = class(TForm, IMeusValores)
private
  FValue: Variant;
  function GetValue: Variant;
  procedure SetValue(Value: Variant);
public
  property Value: Variant read GetValue write SetValue;
end;


implementation


function MinhaFuncao(Parametro: ?): IMeusValores;
 var
  v: IMeusValores;
begin
 v := TValue.Create;
 {** ..OU..
 v := TMeuFormValores.Create( Application );
 **}
 
 Result := v;
end;



..ESTUDE INTERFACES, É LEGAL! RSRS

[]s

FILIPE BELCHIOR



--- Em delphi-br@yahoogrupos.com.br, "Andre Mesquita"
<[EMAIL PROTECTED]> escreveu
>
> experimente Variant, OLEVariant, e afins...
> 
> 
> - Original Message - 
> From: "Jônatas Renan" <[EMAIL PROTECTED]>
> To: 
> Sent: Friday, August 11, 2006 4:44 PM
> Subject: [delphi-br] Não sei como resolver, se com apontadores ou
typecast 
> ou sei la oque...
> 
> 
> Preciso que uma função retorne uma variável que varie de tipo
> 
> Alguns exemplos de uso que não devem gerar excessões:
> 
> showmessage(MinhaFuncao(ParametroParaQueORetornoSejaString));
> 
> x := 1 + MinhaFuncao(ParametroParaQueORetornoSejaInteiro);
> 
> Form := MinhaFuncao(ParametroParaQueORetornoSejaForm);
> 
> é possível em pascal??
> 
> como fica o escopo da function?
> 
> Usaria ponteiros???
> 
> Desde Já grato!!!
> 
> -- 
>=
>  Jônatas Renan - Freaker
>MSN: [EMAIL PROTECTED]
>   Instituto Damone de Softwares
>=
> 
> 
> [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

 

[delphi-br] Re: HAUHA.. aonde foi parar a "Project resources" no D7??

[Filipe Belchior]

por favor, galera, uma luz! rs..

..eu já até baixei programa q faz isso, "XN Resource Editor",
mas naum adiantou, o D7 não linka o resource modificado por
este programa.



--- Em delphi-br@yahoogrupos.com.br, "Filipe Belchior"
<[EMAIL PROTECTED]> escreveu
>
> olá pessoal..
> 
> ..vcs num tem idéia d como procurei como um louco, aquela
> janelinha "Project resources", q tinha no D6.. não encontro
> no D7!! até já procurei na net, mas ninguem comentou algo
> a respeito!! to tendo q abrir o .res no D6, salvar e depois
> voltar pro D7, é mole!!?
> 
> []s
> 
> FILIPE BELCHIOR
>






-- 
<<<<< 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] HAUHA.. aonde foi para a "Project resources" no D7??

[Filipe Belchior]

olá pessoal..

..vcs num tem idéia d como procurei como um louco, aquela
janelinha "Project resources", q tinha no D6.. não encontro
no D7!! até já procurei na net, mas ninguem comentou algo
a respeito!! to tendo q abrir o .res no D6, salvar e depois
voltar pro D7, é mole!!?

[]s

FILIPE BELCHIOR





-- 
<<<<< 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] Re: Bug do Delphi 7.0???????????Ninguem sabe???

[Filipe Belchior]

silvano, eu acho q sei o q é.. então, tente o seguinte..


CDSPesquisa.Close;

CDSPesquisa.Params.Clear;

CDSPesquisa.CommandText := 'SELECT * FROM TABELA002 WHERE CAMPO1 
= :PARAMETRO1 AND CAMPO2 = :PARAMETRO2';
CDSPesquisa.ParamByName('PARAMETRO1').AsString := Edit1.Text;
CDSPesquisa.ParamByName('PARAMETRO2').AsString := Edit2.Text;
CDSPesquisa.Open;



--- Em delphi-br@yahoogrupos.com.br, "silvano_monteiro" <[EMAIL PROTECTED]>
escreveu
>
> Ninguem sabe ???
> 
> --- Em delphi-br@yahoogrupos.com.br, "silvano_monteiro" 
> <[EMAIL PROTECTED]> escreveu
> >
> > Bom dia , estou com um grande problema e nao consegui resolver ainda
> > Problema com passagem de parametros , estou usando 
> > D7/DbXpress/ClientDataSet/DataSetProvider/SqlQuery
> > 
> > Minha aplicacao esta em 3 camadas
> > Entao tenho um servidor de aplicacao (Servidor.exe) no qual fica a 
> > SQLQuery/DataSetProvider num DataModule
> > 
> > No meu Programa Cliente (onde fica o ClientDataSet q esta ligado ao 
> > DSProvider do Servidor) preciso utilizar o mesmo CDS varias vezes 
> pra 
> > fazer consulta no BD (em SyBase)
> > 
> > O problema esta acontecendo Aleatoriamente , da a seguinte mensagem 
> > de Erro : "No value for parameter 'Parametro1'" ou "No value for 
> > parameter 'ParametroXXX'" , depende do parametro corrente
> > 
> > 
> > Estou fazendo o seguinte:
> > 
> > CDSPesquisa.Close;
> > CDSPesquisa.CommandText := 'SELECT * FROM TABELA001 WHERE CAMPO1 
> > >= :PARAMETRO1';
> > CDSPesquisa.ParamByName('PARAMETRO1').AsString := Edit1.Text;
> > CDSPesquisa.Open; <-- ***Primeira vez nao da erro
> > 
> > CDSPesquisa.Close;
> > CDSPesquisa.CommandText := 'SELECT * FROM TABELA002 WHERE CAMPO1 
> > >= :PARAMETRO1 AND CAMPO2 = :PARAMETRO2';
> > CDSPesquisa.ParamByName('PARAMETRO1').AsString := Edit1.Text;
> > CDSPesquisa.ParamByName('PARAMETRO2').AsString := Edit2.Text;
> > CDSPesquisa.Open; <-- ***As vezes aparece o ERRO AQUI
> > 
> > "NO VALUE FOR PARAMETER 'XXX'"
> > 
> > Ja utilizei o FetchParams
> > Ja dei create
> > CDSPesquisa.Params.CreateParam(ftString,'PARAMETRO1',ptInput);
> > 
> > 
> > Comentaram q isso poderia ser BUG do Delphi7... eu trabalhava com o 
> > D6 dessa forma e funcionava
> > Alguem sabe qual a forma correta de passar parametros sem da esse 
> > erro?
> > Sabem se é realmente Bug do D7?
> > 
> > Agradeço desde já
> > Silvano Monteiro - Cuiabá-MT
> >
>






-- 
< 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] Re: FastMM4: leak de memória!?

[Filipe Belchior]

não eduardo, pois, se eu comentar esse código, não acontece
nenhum erro!



--- Em delphi-br@yahoogrupos.com.br, "Eduardo Silva dos Santos"
<[EMAIL PROTECTED]> escreveu
>
> Detalhe, eu uso o FastMM4 com Delphi7
> 
> 2006/8/9, Eduardo Silva dos Santos <[EMAIL PROTECTED]>:
> > Eu uso o FastMM4  ha muito tempo e nunca tive problemas, pelo
> > contrário, minhas aplicações ficaram visuvelmente com desepenho
> > melhor...
> >
> > em relação ao leak, usando o Debug na hora que finaliza ele sempre da
> > esse erro mesmo.
> >
> >
> > Em 09/08/06, Walter Alves Chagas Junior<[EMAIL PROTECTED]> escreveu:
> > > Se voces soubessem o que esse tal de FastMM fez no meu delphi semana
> > > retrazada
> > >
> > > NÃO RECOMENDO!
> > >
> > >
> > > []s
> > >
> > > Walter Alves Chagas Junior
> > > Projeto e desenvolvimento de sistemas
> > > Telemont Engenharia de telecomunicações S/A
> > > Belo Horizonte - MG - Brasil
> > > [EMAIL PROTECTED]
> > > Fone: (31) 3389-8215 Fax: (31) 3389-8200
> > >
> > > Parabens Telemont - Somos a 8ª maior empresa do Brasil no
segmento de
> > > construção!!
> > >
> > >
> > > -Mensagem original-
> > > De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED]
> > > nome de Filipe Belchior
> > > Enviada em: quarta-feira, 9 de agosto de 2006 17:39
> > > Para: delphi-br@yahoogrupos.com.br
> > > Assunto: [delphi-br] FastMM4: leak de memória!?
> > >
> > >
> > > olá..
> > >
> > > Alguém sabe me dizer pq o FastMM4 diz que tem vazamento de memória
> > > no código abaixo:
> > >
> > >
> > > function GetJPEG( ResName: String ): TGraphic;
> > >   var
> > > s: TCustomMemoryStream;
> > > j: TJPEGImage;
> > > begin
> > >   s := TResourceStream.Create( HInstance, ResName, RT_RCDATA );
> > >   try
> > >   try
> > >   j := TJPEGImage.Create;
> > >   j.LoadFromStream( s );
> > >   Result := j;
> > >   finally
> > >   s.Free;
> > > end;
> > >   except
> > >   j.Free;
> > > end;
> > > end;
> > >
> > >
> > > ..eu consigo carregar a imagem sem problemas, mas em mode de
> > > depuração, pelo delphi, após fechar o sistema, aparece a msg
> > > de erro abaixo:
> > >
> > >
> > > "Essa aplicação teve vazamentos de memória. Os vazamentos dos blocos
> > > pequenos são (excluindo os vazamentos esperados registrados por
ponteiro):
> > >
> > > 13 - 20 bytes: TMemoryStream x 1
> > > 21 - 28 bytes: Desconhecida x 1
> > > 61 - 76 bytes: Desconhecida x 1
> > > "
> > >
> > >
> > > ..agradeço a atenção, []s
> > >
> > > FILIPE BELHCIOR
> > >
> > >
> > >
> > >
> > >
> > > --
> > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > >
> > >
> > >
> > > Links do Yahoo! Grupos
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> > > --
> > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > >
> > >
> > >
> > > Links do Yahoo! Grupos
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> >
> >
> > --
> > Eduardo Silva dos Santos
> > DRD Sistemas.
> > (27) 3218-4201
> > MSN: [EMAIL PROTECTED]
> > Site: http://www.drdsistemas.com/
> >
> 
> 
> -- 
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED]
> Site: http://www.drdsistemas.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] FastMM4: leak de memória!?

[Filipe Belchior]

olá..

Alguém sabe me dizer pq o FastMM4 diz que tem vazamento de memória
no código abaixo:


function GetJPEG( ResName: String ): TGraphic;
  var
s: TCustomMemoryStream;
j: TJPEGImage;
begin
  s := TResourceStream.Create( HInstance, ResName, RT_RCDATA );
  try
  try
  j := TJPEGImage.Create;
  j.LoadFromStream( s );
  Result := j;
  finally
  s.Free;
end;
  except
  j.Free;
end;
end;


..eu consigo carregar a imagem sem problemas, mas em mode de
depuração, pelo delphi, após fechar o sistema, aparece a msg
de erro abaixo:


"Essa aplicação teve vazamentos de memória. Os vazamentos dos blocos
pequenos são (excluindo os vazamentos esperados registrados por ponteiro):

13 - 20 bytes: TMemoryStream x 1
21 - 28 bytes: Desconhecida x 1
61 - 76 bytes: Desconhecida x 1
"


..agradeço a atenção, []s

FILIPE BELHCIOR





-- 
< 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] GetClass em modularização

[Filipe Belchior]

olá..

estou fazendo um projeto modularizado, e não estou conseguindo
instanciar um form, pq a função GetClass me retorna "nil"..
..sendo q, o form principal eu consigo instanciar.

fiz conforme o artigo da revista clubedelphi edição 74..
..criei um pacote (pFuncoes) contendo unit com uma função que
"carrega" pacote e instancia um form. Meu projeto ".exe", tem
adicionado a unit deste pacote.

..através do .exe, eu instancio o form principal, que se enconta
num pacote (pPrincipal).. a unit do form principal contem o
código de registrar classe (RegisterClass) em "initialization"..
no projeto pPrincipal.bpl, eu adicionei em "requires" os pacotes
pFuncoes.bpl e pTeclado.bpl.. em pTeclado.bpl, também existe
um form, e com RegisterClass..

..enfim, em pPrincipal, através da função em pFuncoes, eu tento
instanciar o form em pTeclado.. mas apesar de carregar o pacote
(verificado por depuramento), contudo o GetClass retorna "nil".

Já verifiquei se o nome da classe está correto.. o q será q
está faltando!?

agradeço atenção, []s


Filipe Belchior






-- 
<<<<< 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] Package requer a própria package!!

[Filipe Belchior]

olá, estou escrevendo esse post muito p da vida..
como o assunto já diz, o meu problema é q
a package q estou fazendo só tem uma unit, e
quando compilo, primeiro diz q a package já tem
a tal unit..
"[Error] Package 'pDados' already contains unit 'model'"
..e em seguida..
"[Fatal Error] Required package 'pDados' not found"

..é mole!! fdp.. como pode a 'pDados' requerer a 'pDados'!?






-- 
< 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] "XSQLDA index out of range"

[Filipe Belchior]

gustavo,

bom, acredito que este erro foi o mesmo que tive aqui,
e fiquei alguns dias quebrando a cabeça pra resolver..
e mesmo usando várias dicas que li (como apagar e recriar
o componente de acesso), mas resolvi da seguinte forma..
percebi que o erro ocorria pq existia comentários na sql,
pois é, comentários.. verifique se existe comentários
na sua SP, e retire-os.


FILIPE BELCHIOR



--- Em delphi-br@yahoogrupos.com.br, Douglas Uesato - Depto de
Informática <[EMAIL PROTECTED]> escreveu
>
>   Isso já aconteceu comigo, contudo foi resolvido atualizando a DLL
> que o meu sistema estava usando para se conectar no banco.
>   Às vezes acontece do gerenciador do banco estar utilizando uma DLL
> própria e atualizada para conectar no banco e sua aplicação estar
utilizando
> uma outra DLL porém desatualizada. Para resolver é só atualizar a
dll que
> fica tudo nos conformes.
> 
> Atenciosamente,
> Douglas Uesato 
> 
> 
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em
> nome de Gustavo Sequeira
> Enviada em: terça-feira, 4 de julho de 2006 07:49
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] "XSQLDA index out of range"
> 
> bom dia pessoal .. estou com um problema quando boto o delphi para
> executa a SP e volta com
> "XSQLDA index out of range"
> 
> Porém quando eu executo direto no banco... funciona
> 
> alguem poderia me dar alguma luz?
> 
> 
> -- 
> Gustavo Sequeira
> Analista de Sistemas
> IEADPE - Igreja Assembléia de Deus / Pernambuco
> "Respondeu-lhe Jesus Cristo: Eu sou o caminho, e a verdade, e a vida;
> ninguém vem ao Pai, senão por mim."
> 
> 
> [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] sql: count(*) com group by

[Filipe Belchior]

olá, paz,

essa sql não retorna, necessariamente, o que eu esperava..


select count(*)
from tabela1
group by campo1, campo2


..eu esperava o total de registros da consulta. poderiam me ajudar?


___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e 
anti-spam realmente eficaz. 
http://mail.yahoo.com.br/


-- 
< 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] Re: Interromper execução de Query

[Filipe Belchior]

Dependendo do propósito para qual vc deseja isso,
pode se executar o open numa Thread.

[]s



--- Em delphi-br@yahoogrupos.com.br, "Luiz Henrique Severo"
<[EMAIL PROTECTED]> escreveu
>
> Pessoal,
> 
> Tem alguma maneira de eu interromper a execução de uma query (select
campos
> from tabela) depois de eu ter executado o query.open?
> 
> 
> Obrigado
> Luiz Henrique Severo d Oliveira
> RPG Soluções
> www.rpgsolucoes.com.br
> 
> -- 
> Internal Virus Database is out-of-date.
> Checked by AVG Free Edition.
> Version: 7.1.394 / Virus Database: 268.9.1/369 - Release Date:
19/06/2006
>







-- 
< 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] Thread e Form

[Filipe Belchior]

olá, paz,

tenho um form com um progressbar somente, e no onshow do form,
inicio uma thread que faz alguns processos e atualiza a progressbar
do form, usando a boa prática dentro do Synchronize().

mas o refresh do form, na progressbar, só ocorre se eu usar o
application.processmessage... é assim mesmo? ou esqueci algo?


FILIPE BELCHIOR



___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e 
anti-spam realmente eficaz. 
http://mail.yahoo.com.br/


-- 
<<<<< 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] Re: Armazenar na Memória RAM

[Filipe Belchior]

use ClientDataSet



--- Em delphi-br@yahoogrupos.com.br, Haylo Silva <[EMAIL PROTECTED]>
escreveu
>
> Olá Felipe,
> 
> No meu caso eu gostaria de transferir os dados de uma tabela para a 
> memória, no qual  essa mesma tabela tem para mais de 2000 registros.
> 
> Grato pela atenção
> 
> Haylo
> 
> 
> 
> Filipe Belchior escreveu:
> > A própria linguagem de programação, através do S.O.
> > faz isso pra vc
> >
> >
> > FILIPE BELCHIOR
> >
> >
> >
> >
> > --- Em delphi-br@yahoogrupos.com.br, Haylo Silva <[EMAIL PROTECTED]>
> > escreveu
> > >
> > > Olá Pessoal !!
> > >
> > > Uma dúvida interessante:
> > >
> > > Preciso realizar uma pesquisa e alguns cálculos de forma extramente
> > > rápida. Uma saída seria carregar todos os dados na memória ram. Como
> > > fazer isso ?
> > >
> > > Abraço a Todos,
> > >
> > > Haylo
> > >
> >
> >
> >
> >
> >
> >
>







-- 
<<<<< 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] delete em Clientdataset

[Filipe Belchior]

bom, ok walter.. mas agora me veio outra duvida, rs..
eu consigo saber algo como um rowsaffected, por IBX ou CDS?



--- Em delphi-br@yahoogrupos.com.br, Walter Alves Chagas Junior
<[EMAIL PROTECTED]> escreveu
>
> Acho que voce vai ter que fazer a ligação na mão. Já tive que fazer
isto uma
> vez a muito tempo atrás quando eu mexia com programação para WEB.
Quando eu
> trabalhava com programação para Palm também tinha disto uma vez que
tabelas
> do Palm não trabalham com chaves primárias e nem secundárias. A
amarração
> toda você é que tem que fazer.
> 
> []s
> 
> Walter Alves Chagas Junior
> Projeto e desenvolvimento de sistemas
> Telemont Engenharia de telecomunicações S/A
> Belo Horizonte - MG - Brasil
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
> 
> 
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> nome de Filipe Belchior
> Enviada em: sexta-feira, 9 de junho de 2006 12:10
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] delete em Clientdataset
> 
> 
> olá pessoal,
> 
> Gostaria de saber como proceder para deletar registros
> numa tabela na seguinte situação..
> A tabela não tem PK (é eu sei, errado), e ainda por cima
> aconteceu redundância de registros, eis aí a merda!
> Não sei como eliminar essas redundacias pelo CDS, pois
> acho que os UpdateMode e ProviderFlags não irão
> resolver isso.
> 
> 
> 
> FILIPE BELCHIOR
> 
>   
> 
>   
>   
> ___ 
> Yahoo! doce lar. Faça do Yahoo! sua homepage. 
> http://br.yahoo.com/homepageset.html 
> 
> 
> 
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> 
> 
>  
> Links do Yahoo! Grupos
> 
> 
> 
> 
>  
> 
> 
> 
> [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] Re: Armazenar na Memória RAM

[Filipe Belchior]

A própria linguagem de programação, através do S.O.
faz isso pra vc


FILIPE BELCHIOR




--- Em delphi-br@yahoogrupos.com.br, Haylo Silva <[EMAIL PROTECTED]>
escreveu
>
> Olá Pessoal !!
> 
> Uma dúvida interessante:
> 
> Preciso realizar uma pesquisa e alguns cálculos de forma extramente 
> rápida. Uma saída seria carregar todos os dados na memória ram. Como 
> fazer isso ?
> 
> Abraço a Todos,
> 
> Haylo
>







-- 
<<<<< 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] delete em Clientdataset

[Filipe Belchior]

olá pessoal,

Gostaria de saber como proceder para deletar registros
numa tabela na seguinte situação..
A tabela não tem PK (é eu sei, errado), e ainda por cima
aconteceu redundância de registros, eis aí a merda!
Não sei como eliminar essas redundacias pelo CDS, pois
acho que os UpdateMode e ProviderFlags não irão
resolver isso.



FILIPE BELCHIOR





___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



-- 
<<<<< 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] Re: lista de arquivos de uma pasta

[Filipe Belchior]

Anderson, Rubem e André, obrigado,

Usei o 1o exemplo de código enviado pelo anderson,
funcionou. Rubem, sim, eu entendi os métodos usados,
não havia utilizado eles antes.



--- Em delphi-br@yahoogrupos.com.br, André Moraes - DJSystem
<[EMAIL PROTECTED]> escreveu
>
> Abaixo uma dica retirada do arquivo DTDelphi 2.7:
> 
> 840 - Listar Arquivos de Um Diretório
> 
> uma dica sobre como listar qualquer tipo de arquivos de um
diretorio. o toque especial dessa procedure e que ela pode entrar em
todos os diretorios que estão dentro do diretorio inicial, para
procurar arquivos do tipo especificado.
> 
> parametros da procedure:
> 
> diretorioinicial - diretorio que a procedure comeca a sua busca ex:
c:\windows\ ou ainda c:\ mascara - mascara de arquivo ex: *.txt ou
ainda *.* listtotaldir - quando true, ela fornece o caminho completo
recursive - quando true, ativa a busca do arquivo dentro de outros
diretorios, que estao dentro do diretorio inicial
> 
> obs.:O form que ira chamar esta função deve possuir uma variavel
global declarada da sequinte forma
> 
> listtemp2:Tstrings; 
> 
> 
> ele deve ser criada com o comando
> 
> 
> listtemp2 := TstringList.Create;
> 
> 
> depois de chamada a procedure o resultado final estara nesta variavel
> 
> 
> procedure ListarArquivos(diretorioInicial, mascara: string;
listtotaldir: boolean = false; recursive: boolean = true);
> var
>   i: integer;
>   listatemp: TStrings;
>   procedure ListarDiretorios(Folder: string; lista: Tstrings);
>   var
> Rec: TSearchRec;
> i: integer;
> temps: string;
>   begin
> lista.Clear;
> if SysUtils.FindFirst(Folder + '*', faDirectory, Rec) = 0 then
> try
>   repeat
> lista.Add(rec.Name);
>   until SysUtils.FindNext(Rec) <> 0;
> finally
>   if lista.count <> 0 then
>   begin
> // deleta o diretorio ..
> lista.Delete(1);
> // deleta o diretorio .
> lista.Delete(0);
> i := 0;
> //deleta os arquivos isto e fica apenas os diretorios
> if lista.count <> 0 then
> begin
>   repeat
> temps := lista.Strings[i];
> temps := extractfileext(temps);
> if temps <> '' then
>   lista.Delete(i)
> else
>   inc(i);
>   until i >= lista.Count;
> end;
>   end;
> end;
>   end;
> 
>   procedure ListarAtahos(Folder, mask: string; Lista: Tstrings);
>   var
> Rec: TSearchRec;
>   begin
> lista.Clear;
> if SysUtils.FindFirst(Folder + mask, faAnyFile, Rec) = 0 then
> try
>   repeat
> lista.Add(rec.Name);
>   until SysUtils.FindNext(Rec) <> 0;
> finally
>   SysUtils.FindClose(Rec);
> end;
>   end;
> 
>   procedure AddLIstInOther(ListSource, ListDestino: TStrings);
>   var
> f: integer;
>   begin
> for f := 0 to ListSource.Count - 1 do
> begin
>   ListDestino.Add(ListSource.Strings[f]);
> end;
>   end;
> begin
>   listatemp := TStringList.Create;
>   ListarAtahos(diretorioInicial, mascara, listatemp);
>   if listtotaldir = true then
>   begin
> for i := 0 to listatemp.Count - 1 do
> begin
>   listatemp.Strings[i] := diretorioInicial + listatemp.Strings[i];
> end;
>   end;
>   AddLIstInOther(listatemp, listtemp2);
>   if recursive = true then
>   begin
> ListarDiretorios(diretorioInicial, listatemp);
> for i := 0 to listatemp.Count - 1 do
> begin
>   ListarArquivos(diretorioInicial + listatemp.Strings[i] + '\',
mascara, listtotaldir, recursive);
> end;
>   end;
>   listatemp.Free;
> end;
> 
> 
> 
> exemplo:
> coloca-se um listbox, e um button no form.
> depois declara-se a variavel global no form
> ex:
> 
> 
> var
>   Form1: TForm;
>   listtemp2: TStrings;
> 
> 
> 
> e no evento onclick do button a seguinte procedure
> 
> 
> 
> listtemp2 := TStringList.Create;
> ListarArquivos('c:\windows\', '*.exe', true, true);
> listbox1.items := listtemp2;
> listtemp2.free;
>   - Original Message - 
>   From: Rubem Nascimento da Rocha 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Wednesday, June 07, 2006 8:31 AM
>   Subject: RE: [delphi-br] lista de arquivos de uma pasta
> 
> 
> 
>   Não existe função pronta para isso. Vc deverá criar uma função
própria 
>   usando as funções FindFirst(), FindNext() e FindClose() da unit
SysUtils. Ao 
>   consultar informações sobre essas funções no help do Delphi,
haverá um link 
>   ilustrando exemplo de como usar ess

Re: RES: [delphi-br] lista de arquivos de uma pasta

[Filipe Belchior]

elazar e luiz,

quando eu disse que não queria um componente visual,
quiz dizer que queria apenas uma função, não pensei
em ocultar o componente. até pq eu posso criá-lo,
sem estar num form, rs.

[]s



--- Em delphi-br@yahoogrupos.com.br, "Yahoo" <[EMAIL PROTECTED]> escreveu
>
> Por acaso este componente nao tem o visible := False?
> 
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> Em nome de Luiz Escobar
> Enviada em: terça-feira, 6 de junho de 2006 15:51
> Para: delphi-br@yahoogrupos.com.br
> Assunto: Re: [delphi-br] lista de arquivos de uma pasta
> 
> 
> 
> ou vc cria uma variavel, ou põe o componente e coloca tipo TOP:=-5000; 
> (MENOS CINCO MIL), vai sumir da tela... hehehehhe
> 
> Luiz Escobar
> 
> 
> 
> - Original Message - 
> From: Filipe Belchior
> To: delphi-br@yahoogrupos.com.br
> Sent: Tuesday, June 06, 2006 2:18 PM
> Subject: [delphi-br] lista de arquivos de uma pasta
> 
> 
> olá galera,
> 
> como eu consigo, de preferência numa "list",
> o nome dos arquivos de uma pasta? para windows
> 
> pensei em usar o TFileListBox, mas ele é visual,
> não to precisando visual.. será q existe alguma
> função na unit "Windows"?
> 
> 
> FILIPE BELCHIOR
> 
> 
> 
> ___
> Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no
> celular e 
> anti-spam realmente eficaz.
> http://mail.yahoo.com.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

 

[delphi-br] Re: lista de arquivos de uma pasta

[Filipe Belchior]

valeu anderson, a principio, eu iria criar
a variável mesmo, mas não sabia que bastava
preencher o caminho e a máscara nessa
propriedade. valeu!



--- Em delphi-br@yahoogrupos.com.br, "Desenvolvimento \(Anderson\)"
<[EMAIL PROTECTED]> escreveu
>
> cria uma var do tipo TFILELISTBOX...
> daí, vc seta a propriedade MASK pra filtrar os tipos e pega essa lista..
> mais fácil q isso, só queijo com goiabada...
> 
> Anderson
> 
> 
>   ----- Original Message - 
>   From: Filipe Belchior 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Tuesday, June 06, 2006 2:18 PM
>   Subject: [delphi-br] lista de arquivos de uma pasta
> 
> 
>   olá galera,
> 
>   como eu consigo, de preferência numa "list",
>   o nome dos arquivos de uma pasta? para windows
> 
>   pensei em usar o TFileListBox, mas ele é visual,
>   não to precisando visual.. será q existe alguma
>   função na unit "Windows"?
> 
> 
>   FILIPE BELCHIOR
> 
> 
>   
>   ___ 
>   Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no
celular e anti-spam realmente eficaz. 
>   http://mail.yahoo.com.br/ 
>
> 
>   __ Informação do NOD32 IMON 1.1581 (20060606) __
> 
>   Esta mensagem foi verificada pelo NOD32 sistema antivírus
>   http://www.eset.com.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

 

[delphi-br] lista de arquivos de uma pasta

[Filipe Belchior]

olá galera,

como eu consigo, de preferência numa "list",
o nome dos arquivos de uma pasta? para windows

pensei em usar o TFileListBox, mas ele é visual,
não to precisando visual.. será q existe alguma
função na unit "Windows"?


FILIPE BELCHIOR



___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e 
anti-spam realmente eficaz. 
http://mail.yahoo.com.br/


-- 
<<<<< 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] Re: Problemas com DLLs

[Filipe Belchior]

use PChar, não use parametros do tipo String em dlls..


  Function AbreConsultas(Tela, TipoProduto: PChar):PChar;Stdcall;


..recomendo usar try..except para não deixar estourar excessão..


  try
 FormProd := TFCons_Produtos.Create(Application);
 FormProd.VTipoProduto := TipoProduto;
 if FormProd.ShowModal =mrok then;
    Vcodigo := FormProd.VCodigoProduto;
  except
 on oE: Exception do
    Forms.Application.ShowException( oE );
  end;
  if FormProd <> nil then
 FormProd.Release;
  Result := PChar( VCodigo );



FILIPE BELCHIOR
Tecnólogo de Informática
Multibrands Consultoria em Tecnologia



--- Em delphi-br@yahoogrupos.com.br, "Weber Luvisa" <[EMAIL PROTECTED]> escreveu
>
> Olá, tenho alguns form dentro de uma DLL, porém quando chama o form a
> 1 vez ele funciona a segunda ela da erro.. estou chamando assim:
> Function AbreConsultas(Tela, TipoProduto: String):String;Stdcall;
> var
>   VCodigo : String;
>   FormProd : TFCons_Produtos;
> begin
>   if Tela = 'Produtos' then
>   begin
> FormProd := TFCons_Produtos.Create(Application);
> FormProd.VTipoProduto := TipoProduto;
> if FormProd.ShowModal =mrok then;
>    Vcodigo := FormProd.VCodigoProduto;
> FormProd.Free;
> Result := VCodigo;
>   end;
> end;
> exports
>   CriaDMConsultas,
>   DestroiDMConsultas,
>   AbreConsultas;
> 
> o INTERESSANTE QUE se uso apenas FORMPROD := NIL FUNCIONA, PARA ABRIR
> ALGUMA VEZES MAIS PORÉM QUANDO ABERTO MUITAS VEZES (MAIS QUE 4
> GERALMENTE) DA ERRO TAMBÉM...
>










-- 
<<<<< 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

Re: RES: [delphi-br] Criando DLL

[Filipe Belchior]

Marcello,

Explicar sobre PChar, tecnicamente, eu não sei, rs..
..mas acontece o seguinte, usando string vc tem resultado
dos métodos todo errado!

agora, sobre o form do report, vc falou pouco sobre
como vc esta fazendo. mostre como vc ta fazendo.



--- Em delphi-br@yahoogrupos.com.br, "marcelloassouza"
<[EMAIL PROTECTED]> escreveu
>
> Felipe,
> 
> Primeiramente, obrigado pela resposta, você não sabe o quanto me 
> ajudou, você e os outros amigos do grupo. Agora me diga uma coisa, no 
> primeiro form o problema foi resolvido, agora estou com problemas 
> quando ao outro que no Caso é um Report. Quando uso o Report num 
> projeto comum, ele funciona normal ao chamar qualquer obejto do 
> mesmo, mas agora num DLL, estou recebendo a mesma mensagem de access 
> violation. Tenho que instacia-lo ou fazer alguma chamada diferenciada 
> para poder utilizá-lo na minha DLL???
> 
> Outra coisa, porque Pchar ao invés de String? Só para conhecimento!!!
> 
> Marcelo.
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, Filipe Belchior 
> <[EMAIL PROTECTED]> escreveu
> >
> > ..outra coisa,
> > 
> > no caso, vc ta usando ADO, já vou avisando que vc terá problemas
> > com ActiveX em projeto DLL.. para resolver, faça o seguinte:
> > 
> > no "OnCreate" do 1o form a ser criado no projeto dll, inclua a 
> linha:
> > 
> > CoInitialize( nil );
> > 
> > ..e no "OnDestroy":
> > 
> > CoUninitialize;
> > 
> > ..Ah! assim como o Anderson comentou, não use String nos parametros
> > dos métodos que serão exportados na sua dll.. sendo assim, basta 
> mudar
> > o seguinte:
> > 
> > Procedure GeraPDF( Servidor, Tipo: PChar ); stdcall;
> > 
> > 
> > ..pronto, valeu!!
> > 
> >     
> > ___ 
> > Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no 
> celular e anti-spam realmente eficaz. 
> > http://br.info.mail.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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

RES: [delphi-br] Criando DLL

[Filipe Belchior]

marcelo,

onde vc escreveu essas duas formas?

na 1a, se vc escreveu no dpr, então faltou a declaração de "Forms" em 
"uses".

na 2a, depende onde vc escreveu.


FILIPE BELCHIOR
Tecnólogo de Informática
Multibrands Consultoria em Tecnologia


    
___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://br.info.mail.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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

RES: [delphi-br] Criando DLL

[Filipe Belchior]

..outra coisa,

no caso, vc ta usando ADO, já vou avisando que vc terá problemas
com ActiveX em projeto DLL.. para resolver, faça o seguinte:

no "OnCreate" do 1o form a ser criado no projeto dll, inclua a linha:

CoInitialize( nil );

..e no "OnDestroy":

CoUninitialize;

..Ah! assim como o Anderson comentou, não use String nos parametros
dos métodos que serão exportados na sua dll.. sendo assim, basta mudar
o seguinte:

Procedure GeraPDF( Servidor, Tipo: PChar ); stdcall;


..pronto, valeu!!

    
___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://br.info.mail.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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

Re: RES: [delphi-br] Subtrair Segundos

[Filipe Belchior]

putz.. é mesmo andreano, tinha me esquecido da DateUtils, perdoem a
garf! é a idade! rsrs



--- Em delphi-br@yahoogrupos.com.br, "Andreano Lanusse"
<[EMAIL PROTECTED]> escreveu
>
> Declare a unit DateUtils
>  
> use a função IncSecond passando o numero de segundo ex: -4
>  
> []'s
>  
> 
> 
> Andreano Lanusse
> System Engineer - Development Tools
> Tel.: +55 (11) 2165-8000 / +55 (11) 8196-5912
> [EMAIL PROTECTED] - www.borland.com.br 
> Blogs: http://blogs.borland.com/andreanolanusse
> Artigos: http://bdn.borland.com
>  
> A Borland Software é líder mundial em soluções independentes de
plataforma para a Criação Otimizada de Software (Software Delivery
Optimization), auxiliando nossos clientes a transporem as barreiras
atuais do desenvolvimento, para maximizar o valor do software para seu
negócio. 
>  
> 
>  
> 
> 
> 
> 
> De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em nome de Moked - Tamara (Brazil)
> Enviada em: quinta-feira, 18 de maio de 2006 15:53
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Subtrair Segundos
> 
> 
> 
> 
>      Tamara Clemente - Suporte Técnico
> Moked do Brasil - Consultoria de Segurança Empresarial
> Divisão MokInf de Informática
> PABX: (55-11) 5071-2748
> [EMAIL PROTECTED]
> www.moked.com.br  
> 
> Grau de Sigilo:  Confidencial  Reservado  Interno  Amplo 
> Nível de Prioridade:  Alto  Médio  Baixo
> Destinatário/s: Lista de divulgação 
>
-
> 
> Boa Tarde,
> 
> Pessoal, como eu posso fazer para subtrair um valor de uma dateTime??
> 
> Exemplo: 
> Variavel : TDataTime;
> //Quero subtrair desta variável 4 segundos 
> variavel - 4 ; (óbvio q isto está errado, mas é só um exemplo)
> 
> Como faço?
> 
> Obrigada,
> 
> 
> Tamara
> A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000
> "O emitente da mensagem é o responsável por seu conteúdo e
divulgação, proibindo
> sua reprodução sem a prévia autorização do mesmo". 
> Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o
> comprometimento com os Custo envolvidos! 
> 
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
> 
> 
> 
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
> 
> 
> 
> 
> 
> 
> Yahoo! Grupos, um serviço oferecido por:  
> PUBLICIDADE
> 
> 


> 
> 
> 
> 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 Termos do
Serviço do Yahoo!  . 
> 
> 
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>










-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Re: Subtrair Segundos

[Filipe Belchior]

utilize os métodos EncodeTime e DecodeTime da SysUtils em conjunto.
No help do delphi tem exemplo sobre esse 2 métodos.


FILIPE BELCHIOR
Tecnólogo de Informática
Multibrands Consultoria em Tecnologia
http://www.multibrands.com.br



--- Em delphi-br@yahoogrupos.com.br, "Moked - Tamara \(Brazil\)"
<[EMAIL PROTECTED]> escreveu
>
>  
>  
>   <http://www.moked.com.br/>    Tamara Clemente - Suporte Técnico
> Moked do Brasil - Consultoria de Segurança Empresarial
> Divisão MokInf de Informática
> PABX: (55-11) 5071-2748
> [EMAIL PROTECTED]
> www.moked.com.br <http://www.moked.com.br/> 
> 
> Grau de Sigilo:  Confidencial  Reservado  Interno  Amplo 
> Nível de Prioridade:  Alto  Médio  Baixo
> Destinatário/s: Lista de divulgação 
>
-
> 
> Boa Tarde,
>  
> Pessoal, como eu posso fazer para subtrair um valor de uma dateTime??
>  
> Exemplo: 
> Variavel : TDataTime;
> //Quero subtrair desta variável 4 segundos 
> variavel - 4 ; (óbvio q isto está errado, mas é só um exemplo)
>  
> Como faço?
>  
> Obrigada,
> 
> 
> Tamara
> A Moked é a Única Empresa do ramo certificada pelo ISO9001:2000
> "O emitente da mensagem é o responsável por seu conteúdo e
divulgação, proibindo
> sua reprodução sem a prévia autorização do mesmo". 
> Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o
> comprometimento com os Custo envolvidos! 
>  
> 
> 
> [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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Re: Engenharia Reversa

[Filipe Belchior]

http://essmodel.sourceforge.net/



--- Em delphi-br@yahoogrupos.com.br, "Anderson RB" <[EMAIL PROTECTED]> escreveu
>
> Pessoal, qual programa eu consigo fazer engenharia reversa em
Delphi, eu 
> tenho as classes e quero obter os diagramas 
> 
> 
>     
> ___ 
> Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no
celular e anti-spam realmente eficaz. 
> http://br.info.mail.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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Re: Ajuda.

[Filipe Belchior]

Wilson,

Problemas como esse, e semelhantes, acontece em Oracle e
em outros BDs, por causa de caracteristicas, digamos assim,
dos tipos de campos, um deles, para o tipo de data e hora.

seguinte, não monte a sql, use parâmetros! assim:

Qryinsertclient.SQL.Text :=
'Insert Into ds.customer_client_site_aux'
+'(customer_id, client_id, client_group_id'
+', exibir_site, nome_exibe_site, data_exibicao)'
+' values'
+'(:customer_id, :client_id, :client_group_id'
+', :exibir_site, :nome_exibe_site, :data_exibicao)';

Qryinsertclient.Prepare;
with Qryinsertclient do
  begin
    ParamByName('customer_id').value := dbedit1.text;
    ParamByName('client_id').value := '-1';
    ParamByName('client_group_id').value := '-1';
    ParamByName('exibir_site').value := 'S';
    ParamByName('nome_exibe_site').value := dbedit2.text;
    ParamByName('data_exibicao').value := DTP.Datetime;
  end;

Qryinsertclient.Open;



--- Em delphi-br@yahoogrupos.com.br, Wilson <[EMAIL PROTECTED]> escreveu
>
> Boa tarde pessoal .
>   preciso de uma ajuda de  vcs...
>    
>   tenho uma instrução sql de inserção que passo do delphi para o
oracle...
>   a instrução é essa:
>    
>   Qryinsertclient.SQL.Text := 'Insert Into
ds.customer_client_site_aux(' +
>    'customer_id, client_id,
client_group_id, exibir_site, ' +
>    'nome_exibe_site,
data_exibicao) values(' +
>    QuotedStr( dbedit1.Text) + ',
' + QuotedStr('-1') +
>    ', ' + QuotedStr('-1') + ', '
+ QuotedStr('S') + ', ' +
>    QuotedStr(dbedit2.Text ) + ', ' +
>    datetostr(DTP.Datetime) + ' ) ';
>    
>   mas o oracle me fala q no campo data_exibicao que é um tipo date,
ele fala q estou inserindo numero ao inves de data.causando o erro
ora-00932...
>   alguem poderia me ajudar a solucionar este problema?
>    
>   abraços.
> 
>     
> -
>  Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no
celular e anti-spam realmente eficaz. 
> 
> [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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Re: Delphi - Programação Procedural???

[Filipe Belchior]

Osvaldo,

Como será que começo esse texto?.. Bom..
É, depois que li seu post, fui no site do projeto
InstantObjects, baixei o vídeo de demonstração..
http://prdownloads.sourceforge.net/instantobjects/iointro.exe?download
..e então.. como num piscar de olhos, me voltei
para algo que já sabia mas tinha me deixado levar
pela "paixão" à programação (eita! q isso!)..
Realmente, concordo com vc Osvaldo. Nós profissionais
de desenvolvimento, precisamos sim ter o conhecimento,
não ter vícios e estar aberto ao mesmo conhecimento, temos
sim que saber OOP, UML, Design Patterns, Multi-tie, etc,
etc.. mas temos que entender também, como o Osvaldo
lembrou, "não percam o cenário".. e o cenário é isso
mesmo, qualidade e rapidez. Há quem cuida de criar as
soluções de desenvolimento, e há quem use as soluções..
tudo pra uma finalidade, apresentar uma solução de
negócio com qualidade e RAPIDEZ, sim, e isso temos que
concordar.. é RAD+OO!

obrigado Osvaldo,

[]s,
FILIPE BELCHIOR
Tecnólogo de Informática
Multibrands Consultoria em Tecnologia



--- Em delphi-br@yahoogrupos.com.br, "Osvaldo Filho"
<[EMAIL PROTECTED]> escreveu
>
> OOP, POO, OO, RAD ...
> Vejo programação desde o Delphi 3, parece filme, por isso o "vejo".
> O pessoal do java vai, o pessoal do java vem, daqui a pouco é o
php... agora
> o Ruby on Rails...
> 
> Só não vejo ninguém chegar e dizer o que é melhor pra empresa e pro
cliente:
> 
> Vejamos o DePO, massa, um trabalho e tanto do Cesar Romero, e
durante muito
> tempo trabalho solitário... , mas pq ele não cresceu? Pq o
idealizador dele
> foi ajudar noutro projeto ?
> Por que o InstantObjects tá "batendo as parada" e o DePO parece
projeto de
> diversão acadêmica?
> 
> Toda vida que alguém fala em facilidade vem alguém e diz que tá
errado e vai
> dar problema, aí eu penso: Poxa quanta gente de sorte... afinal o
Delphi tem
> um público enorme no Brasil e não tô vendo nenhuma notícia de que a
Borland
> vai ser processada por um problema escondido do Delphi que só foi
descoberto
> agora... E o Delphi...  o DELPHI... isso é q é vida...
> 
> Então amigos tratemos do que interessa:
> POO traz melhor manutenibilidade (tá certo, o nome?), mais
reaproveitamento,
> maior legibilidade... mas se eu tiver  uma empresa pequena, tipo do
cenário:
> software house especializada em sistema para concessionárias com
consórcio,
> venda de peças com impressora fiscal, transações de cobrança com
bancos...
> mas nada de SOAP ou DOM ou qualquer coisa parecida... nesse cenário,
o que
> seria melhor, não sei pros outros mas vou de RAD+OO e nesse caso
fico com
> Instantobjects+modelmaker 7.20
> 
> Por favor, o pessoal das empresas maiores, que têm como vislumbrar mais
> longe, ajudem no balanço. Só não percam de vista o cenário.
Desconsiderem as
> montadoras que exigem ligação direta com as mesmas.
> 
> 
> 
> Em 08/05/06, Walter Alves Chagas Junior <[EMAIL PROTECTED]> escreveu:
> >
> > RAD e OO são duas coisas que nada tem haver. OOP é uma técnica de
> > programação voltada para criação de objetos reutilizaveis em outros
> > projetos. RAD é na verdade, um contexto que envolve toda 
ferramenta de
> > desenvolvimento e seus recursos.
> >
> > Form e label são recursos que podem ter na RAD ou mesmo em uma
linguagem
> > de
> > programação de console. RAD envolve a IDE (interface de
desenvolvimento),
> > as
> > bibliotecas e a acessabilidade a API do sistema operacional. Se
você me
> > perguntar se o Delphi é uma ferramenta RAD, eu lhe diria que sim,
RAD não
> > só
> > o Delphi, mas o Visual Studio, o VB, o Lazarus o Satellite Forms
pra ficar
> > só nestes exemplos. Toda ferramenta que lhe ofereça o máximo de
> > praticidade
> > e trabalhe muito na filosofia do Arrastar e soltar, que implementa
parte
> > do
> > código pra você automaticamente é uma ferramenta RAD.
> >
> > Agora uma coisa não tem haver com a outra. Labels e forms não são
> > necessáriamente componentes da RAD. Muitos aqui já programaram em
Turbo
> > Pascal, Turbo Assembler ou mesmo no Microsoft C++ e implementaram
forms e
> > Labels via código DOS mesmo. São componentes do sistema
operacional e não
> > da
> > ferramenta.
> >
> > Quanto a OO (programação Orientada a Objetos) é uma técnica de
> > desenvolvimento que propôe rapidez em desenvolver e reusabilidade
maxima
> > do
> > código. Tudo trabalhado em classes que são objetos encapsulados que se
> > comunicam entre si via interfaces de solicitação e recebimento de
dados
> > para
> > processamento interno. O Grande problema da OO, é que quem já tá
> > acostumado
> > a mexer com programação estruturada dificilmente se adequ

[delphi-br] Re: Salvar Objeto em BLOB

[Filipe Belchior]

bom, álvaro, se vc pretende fazer dessa forma a usar
persistência de objetos relacional, então acredito
que seja possível através de Stream.. Eu nunca fiz,
mas lembro de ter visto um artigo, sobre persistência
de objetos através de stream.. assim vc poderia depois
salvar no banco em blob.


FILIPE BELCHIOR
Tecnólogo de Informática
Multibrands Consultoria em Tecnologia
www.multibrands.com.br



--- Em delphi-br@yahoogrupos.com.br, "arcoverdeneto"
<[EMAIL PROTECTED]> escreveu
>
> Pessoal,
> 
> Existe alguma forma de gravar o objeto abaixo, com todas as
> propriedades e seus respectivos valores, para um campo Blob (Firebird)?
> 
> TTeste = class
> private
>    FId : Integer;
>    FNome : string;
> public
>    property Id : Integer read FId write FId;
>    property Nome : string read FNome write FNome;
> end;
> 
> Abraços,
> 
> Álvaro Vieira
>











-- 
<<<<< 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Re: Delphi - Programação Procedural???

[Filipe Belchior]

É por isso que estou estudando frameworks de
persistencia de objetos. Programo há anos no
delphi, e por incrivel que pareca, não tinha
parado pra pensar em usar um fmw de persistencia
de objetos. Mas encontrei um projeto legal,
o DePO. Ajudem, contribuindo com o projeto,
testando e implementando novidades.

http://www.oodesign.com.br/forum/index.php?showforum=43
http://www.liws.com.br/depo/arquivos/



--- Em delphi-br@yahoogrupos.com.br, "Fernando Nomellini"
<[EMAIL PROTECTED]> escreveu
>
>   Mais difícil ainda é usar OOP quando se tem Client/Server, sempre
acabam utilizando um ClientDataSet...
> 
> Eng. Fernando Nomellini
> Analista/Programador
> Datamace Informática Ltda
>   - Original Message - 
>   From: Walter Alves Chagas Junior 











-- 
< 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Re: Baixa De Contas A Pagar

[Filipe Belchior]

Cleiton,

Eu usei o componente Listview que vem no delphi, uso na
mesma situação que vc deseja... Seguinte:

altere as seguintes propriedades:

Checkboxes = true
ReadOnly = true
RowSelect = true
ViewStyle = true

e ainda adicione colunas, clicando duas vezes sobre o componente.

Para pegar informações do componente eu use o seguinte algoritmo:


    if slItensBaixa <> nil then
    slItensBaixa.Free;
    slItensBaixa := TContaList.Create;

    for iI := 1 to ListView1.Items.Count do
  if ListView1.Items[iI-1].Checked then begin
  idConta := StrToInt( ListView1.Items[iI-1].SubItems[4] );
  slItensBaixa.Add( TContaControle.getInstance.getConta( idConta 
) );
    end;


Sobre as classes TContaList e TContaControle, são minhas classes de negócio.

<http://br.groups.yahoo.com/group/delphi-br/message/154147>
FILIPE BELCHIOR
Tecnólogo de Informática
Multibrands Consultoria em Tecnologia
www.multibrands.com.br




    
___ 
Novo Yahoo! Messenger com voz: Instale agora e faça ligações de graça. 
http://br.messenger.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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Re: Atalhos do teclado sem ALT??? Por favor quebrem esse galho pra m

[Filipe Belchior]

allan, simples, coloque um diálogo no evento de fechar do form,
(eu mesmo uso assim) pedindo para confirmar, ou até mesmo
pra salvar antes de sair.


    
___ 
Navegue com o Yahoo! Acesso Grátis, assista aos jogos do Brasil na Copa e ganhe prêmios de hora em hora! 
http://br.yahoo.com/artilheirodacopa/






-- 
< 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDAD




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Re: Atalhos do teclado sem ALT??? Por favor quebrem esse galho pra mim!!

[Filipe Belchior]

Allan, isso não é erro do windows.. me desculpe, mas é erro do usuário!!
kra, vc mesmo disse, e é assim mesmo, que só vai funcionar se o foco
estiver em cima do botão. Ora, pq vc apertaria um caracter alfanumérico
no teclado com o foco em um botão!!!?


FILIPE BELCHIOR
Tecnólogo de Informática
Multibrands Consultoria em Tecnologia
http://www.multibrands.com.br

    
___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://br.info.mail.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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDAD




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Re: COMANDOS, FUNÇÕES E PROPRIEDADE DO DEL PHI

[Filipe Belchior]

kra, muitas das funções que vc mencionou abaixo não são
originalmente do Delphi, e sim de terceiros.. se vc é iniciante
e quer conhecer, digamos, o arsenal do Delphi (rsrs), não
se preocupe, isso vc absorve naturalmente com o tempo.
procure apenas exemplos e ajuda aqui no forum para resolver
situações que vc deseja, assim vc aprende melhor, praticando.

valeu! abraço.


    
___ 
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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Re: Driver do Firebird para DBExpress

[Filipe Belchior]

dbexpUI2.zip 

www.progdigy.com 

    
___ 
Novo Yahoo! Messenger com voz: Instale agora e faça ligações de graça. 
http://br.messenger.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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Re: UDF

[Filipe Belchior]

olá,

descobri pessoal, seguinte.. equívoco meu, claro rsrs..
esqueci que a chamada as udfs pelo IB/FB a parametros
do tipo integer e double precision, os valores são passados
por REFERÊNCIA. Pois é, aí foi só eu fazer as seguintes
modificações:

//criei tipos, ponteiro de integer e double
type
    pInt = ^Integer;
    pDoub = ^Double;

//modifiquei a função
[code]
function udf_ScriptInFile(irc: pInt; fval: pDoub): PChar;
//.
//.

Writeln( F, Format( 'update recebimentos set valor_conta =
%f where id_pk = %d;', [fval^, irc^]) );

//.
//.
end;
[/code]


..Fica então registrado, para futuras consultas! valeu!

    
___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://br.info.mail.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 Termos do Serviço do Yahoo!.

[delphi-br] RES: UDF

[Filipe Belchior]

Esqueci de informar a assinatura da função udf,
acredito que alguns iriam perguntar..

[code]
function udf_ScriptInFile(irc: integer; fval: double): PChar; cdecl; export;
[/code]

    
___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://br.info.mail.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 Termos do Serviço do Yahoo!.

[delphi-br] UDF

[Filipe Belchior]

olá,

vou tentar ser direto.. udf em delphi para firebird 1.5..


[code]
function udf_ScriptInFile(irc: integer; fval: double): PChar;
    var
  F: TextFile;
    R: String;
begin
    try
    AssignFile( F, 'sqlUpdateValor.sql' );

  if FileExists( 'sqlUpdateValor.sql' ) then
  Reset( F )
  else
  Rewrite( F );

  DecimalSeparator := '.';
  try
  Append( F );
  Writeln( F, Format( 'update recebimentos set valor_conta = 
%f where id_pk = %d;', [fval, irc]) );
  Flush( F );
  finally
  DecimalSeparator := ',';
  CloseFile( F );
  end;

  R := '';
  except
  on oE: Exception do
    R := oE.Message;
    end;

  Result := PChar( R );
end;
[/code]


[code]
DECLARE EXTERNAL FUNCTION SCRIPTINFILE
    INTEGER,
    DOUBLE PRECISION
RETURNS CSTRING(127)
ENTRY_POINT 'udf_ScriptInFile' MODULE_NAME 'udfDelphi';
[/code]


[code]
ALTER PROCEDURE  SP_VALORCONTA_RC
AS
DECLARE VARIABLE VALOR NUMERIC(11,2);
DECLARE VARIABLE ID_RC INTEGER;
DECLARE VARIABLE SR VARCHAR(128);
BEGIN

 for select id_recebimento_fk, sum(valor_conta) valor
  from contas_receber
  group by id_recebimento_fk
 into
  :id_rc,
  :valor
 do
  select scriptinfile(:id_rc, :valor) from rdb$database into :sr;
END^
[/code]


..seguinte, o arquivo de saída é criado, mas o valor_conta sai 0.00
e o id_recebimento_fk sai 21951680.. isso pra todos as linhas
no script criado!! Acredito que tem algo haver com os parametros
da udf, mas não sei o q ainda!!


FILIPE BELCHIOR
Tecnólogo de Informática
Mulitbrands Consultoria em Tecnologia

  

  
    
___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 







-- 
<<<<< 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 Termos do Serviço do Yahoo!.

RES: [delphi-br] Re: TField... dúvida

[Filipe Belchior]

bom, Eduardo, eu até pensei nisso mas...

1º. Eu disse q "não é obrigado" a implementação
por causa de um exemplo... na classe
TDataset (herdada por TTable e outros), o método
FieldByName retorna uma TField, e não uma subclasse
de TField, portanto não foi implementado o método
GetAsCurrency ou GetAsFloat.

2º. Mais fundo ainda nessa curiosidade, é q, o método
GetAsFloat não implementa nada mais q um "raise", nem
o seu Result ele preenche, portanto, quando nós usamos
a propriedade AsCurrency, estamos executando um raise!?



--- Em delphi-br@yahoogrupos.com.br, "Eduardo E. J. Menoncello"
<[EMAIL PROTECTED]> escreveu
> Filipe, se ela não for implementada, ela criará um erro.
> É por isso que os caras que fizeram isso colocaram o "raise".
>  
> Então, se o seu TField trabalhar com boolean, por exemplo, e vc colocar
> o AsFloat, ele vai dar erro.
> Então eles simplesmente já trataram esse erro pra você, se não, a cada
> implementação, teria que fazer esse tratamento.
>  
> Espero ter esclarecido... ;)
>  
> []'s
>  
> Eduardo
>  
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> Em nome de Filipe Belchior
> Enviada em: sexta-feira, 22 de abril de 2005 13:29
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Re: TField... dúvida
>  
> 
> poxa pessoal, devo confessar q estou frustrado com as primeiras
> resposta à minha "curiosidade".
> 
> Eduardo, eu sei q o método GetAsCurrency "pode ser" implementado
> por classes herdando TField, mas tbm "pode naum ser", pois, por ser
> um método virtual não obrigado a sua implementação na subclasse.
> E inclusive, o método GetAsCurrency já tem implementação na classe
> TField... e é justamente essa implementação na TField a minha
> curiosidade.
> 
> Rubem, AsFloat e AsCurrency são propriedades e não métodos, e essas
> duas propriedades chamam o método GetAsFloat. E outra, eu NÃO
> tenho problema, estou discutindo um assunto produtivamaente.
> 
> 
> Pessoal, a minha curiosidade está na implementação do método
> GetAsFloat, pois é executado um "raise", sendo q o retorno do método
> é um Double.
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, Filipe Belchior
> <[EMAIL PROTECTED]> escreveu
> > olá pessoal! paz!
> > 
> > Alguém poderia me explicar, em especial o método "protegido" 
> > GetAsCurrency...
> > observei o fonte em DB.pas, e a classe TField... o método
> GetAsCurrency 
> > chama
> > o método GetAsFloat q, apesar de retornar um "Double", dentro do
> método é
> > exucutado um "raise"... num entendi nada!
> > 
> > 
> > Filipe Belchior
> > Itaguaí, RJ
> > MSNM [EMAIL PROTECTED]
> > SKYPE: filipebfs
> 
>  
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> 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] Re: TField... dúvida

[Filipe Belchior]

poxa pessoal, devo confessar q estou frustrado com as primeiras
resposta à minha "curiosidade".

Eduardo, eu sei q o método GetAsCurrency "pode ser" implementado
por classes herdando TField, mas tbm "pode naum ser", pois, por ser
um método virtual não obrigado a sua implementação na subclasse.
E inclusive, o método GetAsCurrency já tem implementação na classe
TField... e é justamente essa implementação na TField a minha
curiosidade.

Rubem, AsFloat e AsCurrency são propriedades e não métodos, e essas
duas propriedades chamam o método GetAsFloat. E outra, eu NÃO
tenho problema, estou discutindo um assunto produtivamaente.


Pessoal, a minha curiosidade está na implementação do método
GetAsFloat, pois é executado um "raise", sendo q o retorno do método
é um Double.



--- Em delphi-br@yahoogrupos.com.br, Filipe Belchior
<[EMAIL PROTECTED]> escreveu
> olá pessoal! paz!
> 
> Alguém poderia me explicar, em especial o método "protegido" 
> GetAsCurrency...
> observei o fonte em DB.pas, e a classe TField... o método GetAsCurrency 
> chama
> o método GetAsFloat q, apesar de retornar um "Double", dentro do
método é
> exucutado um "raise"... num entendi nada!
> 
> 
> Filipe Belchior
> Itaguaí, RJ
> MSNM [EMAIL PROTECTED]
> SKYPE: filipebfs





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] TField... dúvida

[Filipe Belchior]

olá pessoal! paz!

Alguém poderia me explicar, em especial o método "protegido" 
GetAsCurrency...
observei o fonte em DB.pas, e a classe TField... o método GetAsCurrency 
chama
o método GetAsFloat q, apesar de retornar um "Double", dentro do método é
exucutado um "raise"... num entendi nada!


Filipe Belchior
Itaguaí, RJ
MSNM [EMAIL PROTECTED]
SKYPE: filipebfs



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Grid com multiselect

[Filipe Belchior]

olá! paz!

alguém conhece um componente de grid com opção de "multiselect"?
...de preferência, tipo assim, com "checkboxes"


Filipe Belchior
MSNM [EMAIL PROTECTED]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Re: typecast em ponteiros

[Filipe Belchior]

Demian, puts! ...valeu mesmo!

poderia arquivar isso aki no grupo!

bom, engraçado é q o último exemplo q vc mostrou eu sabia,
e já até usei uma vez...

seguinte entao...

concorda q, dependendo da forma q um objeto é enviado no parametro,
posso tratá-lo de mais de um jeito...

1o.

  p := obj;
  showmessage(p.classname);

2o.

  p := @obj;
  showmessage(p^.classname);






-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Re: Melhor componente de acesso

[Filipe Belchior]

o DBX nao tem ligacao com BDE, mas depende de uma dll, MIDAS.dll...

acredito q para esta situacao, o Zeos é uma boa...



--- Em delphi-br@yahoogrupos.com.br, "Thiago" <[EMAIL PROTECTED]>
escreveu
> 
> Qual o melhor componente para conexão com o banco de dados. De 
> preferência que permita vários bancos de dados (Interbase, Oracle, 
> MySQL...)?
> O DBExpress utiliza algum software intermediário como o BDE?
> 
> Obrigado pela ajuda





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] typecast em ponteiros

[Filipe Belchior]

olá! paz!

pessoal, qual diferença dessas linhas?

obj1 :=  TObject( pointer1 );
obj1 := TObject( pointer1^ );

...eu acho q entendo o a 2a linha faz, mas e a 1a???
outra coisa, leva-se em conta se os ponteiros forem Untypeds???



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] ocultar construtor

[Filipe Belchior]

.

Olá! Paz!

Alguém conseguiu a "façanha" de ocultar o construtor como no Java?

tentei aki...

type
  TC = class
  private
constructor Create; override;
  public
class function getInstancia: TC;
  end;


...Mas ainda é possível fazer o seguinte:

oC := unitTC.TC.Create;


...Penso q seja possível através de "diretivas", mas num tenho a mínima 
idéia de qual!


Filipe Belchior
MSNM [EMAIL PROTECTED]
ICQ 283735340

.


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> 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] Re: Evento em tempo de Execução

[Filipe Belchior]

.

pode ser também, mas o q vc tem q ter em mente é a "assinatura"
do método correspondente ao evento desejado...

ex.: a assinatura do evento TNotifyEvent é:

procedure(Sender: TObject) of Object;


por isso, tive q declarar o método para o meu evento dentro de
uma classe, criada por mim apenas exemplo, a declaração "of object"
já diz, o método tem q ser de um objeto...



--- Em delphi-br@yahoogrupos.com.br, "Filipe" <[EMAIL PROTECTED]> escreveu
> vc diz Atribuir um Evento???
> 
> se for, componente.onEvento := Evento...
>   - Original Message - 
>   From: PretoGal - Bol 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Monday, February 14, 2005 10:37 AM
>   Subject: [delphi-br] Evento em tempo de Execução
> 
> 
>   Galera, alguem tem algum exemplo de como criar um evento em tempo de 
>   execução em um componente criado também em tempo de execução.
> 
>   Valeu
> 
> 
>   Claudemir
> 
>   [As partes desta mensagem que não continham texto foram removidas]
> 
> 
> 
>   -- 
>   < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
> 
>   Para ver as mensagens antigas, acesse:
>   http://br.groups.yahoo.com/group/delphi-br/messages
> 
>   Para falar com o moderador, envie um e-mail para:
>   [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> 
> 
> 
> Yahoo! Grupos, um serviço oferecido por: 
>  
> São Paulo Rio de Janeiro Curitiba Porto Alegre
Belo Horizonte Brasília  
>  
>
> 
> 
>
--
>   Links do Yahoo! Grupos
> 
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>   
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>   
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo!. 
> 
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> 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] Re: TObjectList, como obter objetos desejados???

[Filipe Belchior]

.

Gustavo,

ESTOU DECEPCIONADO COMIGO MESMO, exatamente, foi maior "garf".

VALEU à todos!



--- Em delphi-br@yahoogrupos.com.br, "Gustavo Fujita" <[EMAIL PROTECTED]>
escreveu
> Vc está se equivocando... num TypeCast com o operador AS é "objeto AS
> classe".
> 
> Imaginando que sua instancia (objeto) de TObjectList seja
"objectLista" e
> que você tenha adicionado a sua lista (objectLista) um TEdit qualquer, o
> primeiro passo seria extrair esse objeto da lista, assim:
> 
>   obj := objectoLista[0]; // considerando que obj é do tipo TObject
> 
> O segundo passo é fazer o TypeCast para essa instancia, ficando assim:
> 
>   edt := obj as TEdit; // considerando edt sendo do tipo TEdit;
> 
> Espero ter sido mais claro. Caso continue o erro, passe um trecho
maior do
> seu código, incluindo a parte onde vc declara as variáveis.
> 
> Gustavo Fujita
> 
> -Mensagem original-
> De: Filipe Belchior [mailto:[EMAIL PROTECTED] 
> Enviada em: segunda-feira, 14 de fevereiro de 2005 10:34
> Para: delphi-br@yahoogrupos.com.br
> Assunto: RES: [delphi-br] Re: TObjectList, como obter objetos
desejados???
> 
> 
> 
> .
> 
> Gustavo e Clayton,
> 
> Realmente não sei o q é, não está dando certo, o erro de compilação
> q mostrei para o Gustavo ocorre exatamente na linha onde atribuo...
> 
>   olComercio := TObjectList as obj;
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "Gustavo Fujita" <[EMAIL PROTECTED]>
> escreveu
> > Em qual linha deu esse erro?
> > 
> > Gustavo Fujita
> > 
> > -Mensagem original-
> > De: Filipe Belchior [mailto:[EMAIL PROTECTED] 
> > Enviada em: segunda-feira, 14 de fevereiro de 2005 10:19
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: RES: [delphi-br] Re: TObjectList, como obter objetos
> desejados???
> > 
> > 
> > 
> > .
> > 
> > 
> > Gustavo,
> > 
> > 
> > [Error] uEBoleto.pas(156): Operator not applicable to this operand
type
> > 
> > 
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "Gustavo Fujita" <[EMAIL PROTECTED]>
> > escreveu
> > > Filipe,
> > > 
> > > Claro que é possível fazer esse tipo de TypeCast no Delphi. Ficaria,
> > de uma
> > > maneira elegante, assim:
> > > 
> > > var
> > >   o: TObject;
> > >   e: TEdit;
> > > begin
> > >   o := objectLista[0];
> > >   if (o is TEdit) then
> > > e := o as TEdit;
> > > end;
> > > 
> > > 
> > > Gustavo Fujita
> > > 
> > > -Mensagem original-
> > > De: Filipe Belchior [mailto:[EMAIL PROTECTED] 
> > > Enviada em: segunda-feira, 14 de fevereiro de 2005 10:10
> > > Para: delphi-br@yahoogrupos.com.br
> > > Assunto: [delphi-br] Re: TObjectList, como obter objetos
desejados???
> > > 
> > > 
> > > 
> > > Clayton,
> > > 
> > > como eu disse, isso não é possível, pois não pode-se converter
> > > uma classe para uma de hierarquia abaixo, como no seu exemplo.
> > > 
> > > TEdit --> TObject  ...isso é possível!
> > > TObject --> TEdit  ...isso NÃO!
> > > 
> > > 
> > > --- Em delphi-br@yahoogrupos.com.br, "clayton" <[EMAIL PROTECTED]>
escreveu
> > > > Voce tentou algo como :
> > > > 
> > > > var
> > > >   o : TObject;
> > > >   e : TEdit;
> > > > 
> > > > begin
> > > > 
> > > >   o := objectLista[ 0 ];
> > > >   e := o as TEdit;
> > > > 
> > > > end;
> > > > 
> > > > 
> > > > - Original Message - 
> > > > From: "Filipe Belchior" <[EMAIL PROTECTED]>
> > > > To: 
> > > > Sent: Monday, February 14, 2005 10:42 AM
> > > > Subject: [delphi-br] TObjectList, como obter objetos desejados???
> > > > 
> > > > 
> > > > >
> > > > > Olá! paz!
> > > > >
> > > > > Estou usando pela 1a. vez a classe TObjectList, pelo nome da
> > classe é
> > > > > possível
> > > > > imaginar para q serve!
> > > > > Esta classe é semelhante a TStringList... minha difuldade
está em
> > > > > resgatar os
> > > > > objetos da lista, pois como se sabe, ou deveria se saber, não é
> >

[delphi-br] Re: Evento em tempo de Execução

[Filipe Belchior]

.

depende também do evento desejado, mas vide o exemplo...


TMy = class
  procedure myEvent(Sender: TObject);
public
  onMyEvent: TNotifyEvent;
end;

...

my := TMy.Create;
my.onMyEvent := myEvent;



--- Em delphi-br@yahoogrupos.com.br, "PretoGal - Bol" <[EMAIL PROTECTED]>
escreveu
> Galera, alguem tem algum exemplo de como criar um evento em tempo de 
> execução em um componente criado também em tempo de execução.
> 
> Valeu
> 
> 
> Claudemir
> 
> [As partes desta mensagem que não continham texto foram removidas]





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> 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] Re: TObjectList, como obter objetos desejados???

[Filipe Belchior]

.

Demian,

grato pela informação, fui infeliz na conversão de ponteiro mesmo.

Mas não entendo, não está compilando aki... Estou usando D6 SP2,
será isso???



--- Em delphi-br@yahoogrupos.com.br, Demian Lessa <[EMAIL PROTECTED]> escreveu
> Filipe,
> 
> Usando a técnica de Jack, vamos por partes:
> 
> > Realmente eu errei no meu primeiro exemplo, mas no segundo...
> > 
> > 1o. fiz: (TEdit)@obj  ...pq no próprio código da unit de TObjectList,
> > Contnrs, o retorno é feito assim. A TObjectList é herança de TList
> > q é lista de ponteiros, a TObjectList retorna os objetos da seguinte
> > forma: (TObject)pointer
> 
> TList usa ponteiros e obj é um objeto. O endereço do objeto guarda um 
> ponteiro para o objeto. O objeto é um ponteiro para a região de memória 
> onde seus dados são armazenados (dados de instância). @obj é o endereço 
> do objeto. obj é o objeto propriamente dito.
> 
> (TEdit)(TObject)pointer <==> (TEdit)pointer
> 
> > 2o. mesmo assim, não é possível fazer o q vc sugeriu por causa
> > da hierarquia das classes..
> > 
> > TEdit --> TObjec  ...isso é possível!
> > TObject --> TEdit ...isso NÃO!
> 
> Os typecasts que passei são todos possíveis. O typecast bruto, forçado, 
> não tem qualquer relação com os tipos envolvidos. Eles simplesmente vão 
> forçar o que você pediu. E, a propósito, dependem apenas do tamanho dos 
> tipos envolvidos no typecast. Nesse caso, TObject e TEdit são ambos do 
> tamanho de um Pointer. No caso em questão, o código verifica antes se a 
> instância é um TEdit antes de atribuir, garantindo que o typecast bruto 
> não irá gerar erros bizarros em tempo de execução (como violação de
acesso).
> 
> Acho que você está com um pouco de dificuldade no entendimento de como 
> os typecasts funcionam no Object Pascal. Dê uma olhadinha nos
manuais ou 
> no help online.
> 
> Cordialmente,
> 
> Demian Lessa
> Salvador - Brasil





-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

RES: [delphi-br] Re: TObjectList, como obter objetos desejados???

[Filipe Belchior]

.

Gustavo e Clayton,

Realmente não sei o q é, não está dando certo, o erro de compilação
q mostrei para o Gustavo ocorre exatamente na linha onde atribuo...

  olComercio := TObjectList as obj;



--- Em delphi-br@yahoogrupos.com.br, "Gustavo Fujita" <[EMAIL PROTECTED]>
escreveu
> Em qual linha deu esse erro?
> 
> Gustavo Fujita
> 
> -----Mensagem original-
> De: Filipe Belchior [mailto:[EMAIL PROTECTED] 
> Enviada em: segunda-feira, 14 de fevereiro de 2005 10:19
> Para: delphi-br@yahoogrupos.com.br
> Assunto: RES: [delphi-br] Re: TObjectList, como obter objetos
desejados???
> 
> 
> 
> .
> 
> 
> Gustavo,
> 
> 
> [Error] uEBoleto.pas(156): Operator not applicable to this operand type
> 
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "Gustavo Fujita" <[EMAIL PROTECTED]>
> escreveu
> > Filipe,
> > 
> > Claro que é possível fazer esse tipo de TypeCast no Delphi. Ficaria,
> de uma
> > maneira elegante, assim:
> > 
> > var
> >   o: TObject;
> >   e: TEdit;
> > begin
> >   o := objectLista[0];
> >   if (o is TEdit) then
> > e := o as TEdit;
> > end;
> > 
> > 
> > Gustavo Fujita
> > 
> > -Mensagem original-
> > De: Filipe Belchior [mailto:[EMAIL PROTECTED] 
> > Enviada em: segunda-feira, 14 de fevereiro de 2005 10:10
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: [delphi-br] Re: TObjectList, como obter objetos desejados???
> > 
> > 
> > 
> > Clayton,
> > 
> > como eu disse, isso não é possível, pois não pode-se converter
> > uma classe para uma de hierarquia abaixo, como no seu exemplo.
> > 
> > TEdit --> TObject  ...isso é possível!
> > TObject --> TEdit  ...isso NÃO!
> > 
> > 
> > --- Em delphi-br@yahoogrupos.com.br, "clayton" <[EMAIL PROTECTED]> escreveu
> > > Voce tentou algo como :
> > > 
> > > var
> > >   o : TObject;
> > >   e : TEdit;
> > > 
> > > begin
> > > 
> > >   o := objectLista[ 0 ];
> > >   e := o as TEdit;
> > > 
> > > end;
> > > 
> > > 
> > > - Original Message - 
> > > From: "Filipe Belchior" <[EMAIL PROTECTED]>
> > > To: 
> > > Sent: Monday, February 14, 2005 10:42 AM
> > > Subject: [delphi-br] TObjectList, como obter objetos desejados???
> > > 
> > > 
> > > >
> > > > Olá! paz!
> > > >
> > > > Estou usando pela 1a. vez a classe TObjectList, pelo nome da
> classe é
> > > > possível
> > > > imaginar para q serve!
> > > > Esta classe é semelhante a TStringList... minha difuldade está em
> > > > resgatar os
> > > > objetos da lista, pois como se sabe, ou deveria se saber, não é
> > possível
> > > > "converter"
> > > > (perdão, esqueci o termo propício) uma classe por uma de
"hierarquia
> > > > abaixo".
> > > > Como obviamente todos os objetos da lista estão como TObject,
não é 
> > > > possível
> > > > o seguinte:
> > > >
> > > >ex.: (TEdit)objectLista1[0];
> > > >
> > > > ...tentei também o seguinte:
> > > >
> > > >ex.: obj1 := objectLista[0];  edit1 := (TEdit)@obj1;
> > > >
> > > > ...também não. Até compila, mas na linha da atribuição ao "edit1",
> > > > ocorre "access violation"
> > > >
> > > > Agradeço a ajuda...
> > > >
> > > >
> > > > Filipe Belchior
> > > > ICQ 283735340
> > > > MSNM [EMAIL PROTECTED]
> > > >
> > > >
> > > >
> > > > -- 
> > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > > >
> > > > Para ver as mensagens antigas, acesse:
> > > > http://br.groups.yahoo.com/group/delphi-br/messages
> > > >
> > > > Para falar com o moderador, envie um e-mail para:
> > > > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> > > >
> > > > Links do Yahoo! Grupos
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > -- 
> > > > No virus found in this incoming message.
> > > > 

RES: [delphi-br] Re: TObjectList, como obter objetos desejados???

[Filipe Belchior]

.


Gustavo,


[Error] uEBoleto.pas(156): Operator not applicable to this operand type



--- Em delphi-br@yahoogrupos.com.br, "Gustavo Fujita" <[EMAIL PROTECTED]>
escreveu
> Filipe,
> 
> Claro que é possível fazer esse tipo de TypeCast no Delphi. Ficaria,
de uma
> maneira elegante, assim:
> 
> var
>   o: TObject;
>   e: TEdit;
> begin
>   o := objectLista[0];
>   if (o is TEdit) then
> e := o as TEdit;
> end;
> 
> 
> Gustavo Fujita
> 
> -Mensagem original-
> De: Filipe Belchior [mailto:[EMAIL PROTECTED] 
> Enviada em: segunda-feira, 14 de fevereiro de 2005 10:10
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Re: TObjectList, como obter objetos desejados???
> 
> 
> 
> Clayton,
> 
> como eu disse, isso não é possível, pois não pode-se converter
> uma classe para uma de hierarquia abaixo, como no seu exemplo.
> 
> TEdit --> TObject  ...isso é possível!
> TObject --> TEdit  ...isso NÃO!
> 
> 
> --- Em delphi-br@yahoogrupos.com.br, "clayton" <[EMAIL PROTECTED]> escreveu
> > Voce tentou algo como :
> > 
> > var
> >   o : TObject;
> >   e : TEdit;
> > 
> > begin
> > 
> >   o := objectLista[ 0 ];
> >   e := o as TEdit;
> > 
> > end;
> > 
> > 
> > - Original Message - 
> > From: "Filipe Belchior" <[EMAIL PROTECTED]>
> > To: 
> > Sent: Monday, February 14, 2005 10:42 AM
> > Subject: [delphi-br] TObjectList, como obter objetos desejados???
> > 
> > 
> > >
> > > Olá! paz!
> > >
> > > Estou usando pela 1a. vez a classe TObjectList, pelo nome da
classe é
> > > possível
> > > imaginar para q serve!
> > > Esta classe é semelhante a TStringList... minha difuldade está em
> > > resgatar os
> > > objetos da lista, pois como se sabe, ou deveria se saber, não é
> possível
> > > "converter"
> > > (perdão, esqueci o termo propício) uma classe por uma de "hierarquia
> > > abaixo".
> > > Como obviamente todos os objetos da lista estão como TObject, não é 
> > > possível
> > > o seguinte:
> > >
> > >ex.: (TEdit)objectLista1[0];
> > >
> > > ...tentei também o seguinte:
> > >
> > >ex.: obj1 := objectLista[0];  edit1 := (TEdit)@obj1;
> > >
> > > ...também não. Até compila, mas na linha da atribuição ao "edit1",
> > > ocorre "access violation"
> > >
> > > Agradeço a ajuda...
> > >
> > >
> > > Filipe Belchior
> > > ICQ 283735340
> > > MSNM [EMAIL PROTECTED]
> > >
> > >
> > >
> > > -- 
> > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > >
> > > Para ver as mensagens antigas, acesse:
> > > http://br.groups.yahoo.com/group/delphi-br/messages
> > >
> > > Para falar com o moderador, envie um e-mail para:
> > > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> > >
> > > Links do Yahoo! Grupos
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > > -- 
> > > No virus found in this incoming message.
> > > Checked by AVG Anti-Virus.
> > > Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005
> > >
> > > 
> > 
> > 
> > 
> > -- 
> > No virus found in this outgoing message.
> > Checked by AVG Anti-Virus.
> > Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005
> 
> 
> 
> 
> 
> -- 
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> 
> Para ver as mensagens antigas, acesse:
>  http://br.groups.yahoo.com/group/delphi-br/messages
> 
> Para falar com o moderador, envie um e-mail para:
>  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>  
> Links do Yahoo! Grupos
> 
> 
> 
> 
>  
> 
> 
> 
> 
> -- 
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005
>  
> 
> -- 
> No virus found in this outgoing message.
> Checked by AVG Anti-Virus.
> Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Re: TObjectList, como obter objetos desejados???

[Filipe Belchior]

.

Demian,

Realmente eu errei no meu primeiro exemplo, mas no segundo...

1o. fiz: (TEdit)@obj  ...pq no próprio código da unit de TObjectList,
Contnrs, o retorno é feito assim. A TObjectList é herança de TList
q é lista de ponteiros, a TObjectList retorna os objetos da seguinte
forma: (TObject)pointer

2o. mesmo assim, não é possível fazer o q vc sugeriu por causa
da hierarquia das classes..

TEdit --> TObjec  ...isso é possível!
TObject --> TEdit ...isso NÃO!



--- Em delphi-br@yahoogrupos.com.br, Demian Lessa <[EMAIL PROTECTED]> escreveu
> Filipe,
> 
> TObjectList guarda uma lista de objetos quaisquer mas permite o acesso 
> apenas como TObject. Assim, para recuperar o objeto com a referência 
> correta da classe à qual ele pertence (que você sabe qual é) será
sempre 
> preciso fazer um typecast. Somente quando você manipular os elementos 
> como TObject é que você não precisará fazer isso.
> 
> for i := 0 to MyObjectList.Count - 1 do
>if MyObjectList.Objects[i] is TEdit then
>begin
>  edit1 := TEdit(MyObjectList.Objects[i]);
>  Break;
>end;
> 
> Pelo seu primeiro exemplo abaixo, acho que seu problema foi apenas 
> sintaxe. Acredito que o cast resolve para a referência da lista de 
> objetos e não ao item 0 da lista. Assim, bastaria fazer:
> 
> TEdit(objectLista1[0]);
> 
> No seu segundo exemplo, você atribui o cast ao endereço do objeto e não 
> ao objeto propriamente dito. Em Object Pascal, as referências entre 
> ponteiro e objeto são automaticamente resolvidas para você. Dessa
forma, 
> bastaria fazer:
> 
> obj1 := objectLista[0];  edit1 := (TEdit)obj1;
> 
> Atenciosamente,
> 
> Demian Lessa
> Salvador - Brasil
> 
> Filipe Belchior wrote:
> > Olá! paz!
> > 
> > Estou usando pela 1a. vez a classe TObjectList, pelo nome da classe é 
> > possível
> > imaginar para q serve!
> > Esta classe é semelhante a TStringList... minha difuldade está em 
> > resgatar os
> > objetos da lista, pois como se sabe, ou deveria se saber, não é
possível 
> > "converter"
> > (perdão, esqueci o termo propício) uma classe por uma de "hierarquia 
> > abaixo".
> > Como obviamente todos os objetos da lista estão como TObject, não
é possível
> > o seguinte:
> > 
> > ex.: (TEdit)objectLista1[0];
> > 
> > ...tentei também o seguinte:
> > 
> > ex.: obj1 := objectLista[0];  edit1 := (TEdit)@obj1;
> > 
> > ...também não. Até compila, mas na linha da atribuição ao "edit1", 
> > ocorre "access violation"
> > 
> > Agradeço a ajuda...
> > 
> > 
> > Filipe Belchior
> > ICQ 283735340
> > MSNM [EMAIL PROTECTED]





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Re: TObjectList, como obter objetos desejados???

[Filipe Belchior]

Clayton,

como eu disse, isso não é possível, pois não pode-se converter
uma classe para uma de hierarquia abaixo, como no seu exemplo.

TEdit --> TObject  ...isso é possível!
TObject --> TEdit  ...isso NÃO!


--- Em delphi-br@yahoogrupos.com.br, "clayton" <[EMAIL PROTECTED]> escreveu
> Voce tentou algo como :
> 
> var
>   o : TObject;
>   e : TEdit;
> 
> begin
> 
>   o := objectLista[ 0 ];
>   e := o as TEdit;
> 
> end;
> 
> 
> - Original Message - 
> From: "Filipe Belchior" <[EMAIL PROTECTED]>
> To: 
> Sent: Monday, February 14, 2005 10:42 AM
> Subject: [delphi-br] TObjectList, como obter objetos desejados???
> 
> 
> >
> > Olá! paz!
> >
> > Estou usando pela 1a. vez a classe TObjectList, pelo nome da classe é
> > possível
> > imaginar para q serve!
> > Esta classe é semelhante a TStringList... minha difuldade está em
> > resgatar os
> > objetos da lista, pois como se sabe, ou deveria se saber, não é
possível
> > "converter"
> > (perdão, esqueci o termo propício) uma classe por uma de "hierarquia
> > abaixo".
> > Como obviamente todos os objetos da lista estão como TObject, não é 
> > possível
> > o seguinte:
> >
> >ex.: (TEdit)objectLista1[0];
> >
> > ...tentei também o seguinte:
> >
> >ex.: obj1 := objectLista[0];  edit1 := (TEdit)@obj1;
> >
> > ...também não. Até compila, mas na linha da atribuição ao "edit1",
> > ocorre "access violation"
> >
> > Agradeço a ajuda...
> >
> >
> > Filipe Belchior
> > ICQ 283735340
> > MSNM [EMAIL PROTECTED]
> >
> >
> >
> > -- 
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Para ver as mensagens antigas, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > -- 
> > No virus found in this incoming message.
> > Checked by AVG Anti-Virus.
> > Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005
> >
> > 
> 
> 
> 
> -- 
> No virus found in this outgoing message.
> Checked by AVG Anti-Virus.
> Version: 7.0.300 / Virus Database: 265.8.7 - Release Date: 10/2/2005





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] Re: TObjectList, como obter objetos desejados???

[Filipe Belchior]

.


Só uma correção, a excessão q mencionei não ocorre na atribuição,
mas depois, quando tento usar o Edit atribuito ao objeto da lista.



--- Em delphi-br@yahoogrupos.com.br, Filipe Belchior
<[EMAIL PROTECTED]> escreveu
> Olá! paz!
> 
> Estou usando pela 1a. vez a classe TObjectList, pelo nome da classe é 
> possível
> imaginar para q serve!
> Esta classe é semelhante a TStringList... minha difuldade está em 
> resgatar os
> objetos da lista, pois como se sabe, ou deveria se saber, não é
possível 
> "converter"
> (perdão, esqueci o termo propício) uma classe por uma de "hierarquia 
> abaixo".
> Como obviamente todos os objetos da lista estão como TObject, não é
possível
> o seguinte:
> 
> ex.: (TEdit)objectLista1[0];
> 
> ...tentei também o seguinte:
> 
> ex.: obj1 := objectLista[0];  edit1 := (TEdit)@obj1;
> 
> ...também não. Até compila, mas na linha da atribuição ao "edit1", 
> ocorre "access violation"
> 
> Agradeço a ajuda...
> 
> 
> Filipe Belchior
> ICQ 283735340
> MSNM [EMAIL PROTECTED]





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] TObjectList, como obter objetos desejados???

[Filipe Belchior]

Olá! paz!

Estou usando pela 1a. vez a classe TObjectList, pelo nome da classe é 
possível
imaginar para q serve!
Esta classe é semelhante a TStringList... minha difuldade está em 
resgatar os
objetos da lista, pois como se sabe, ou deveria se saber, não é possível 
"converter"
(perdão, esqueci o termo propício) uma classe por uma de "hierarquia 
abaixo".
Como obviamente todos os objetos da lista estão como TObject, não é possível
o seguinte:

ex.: (TEdit)objectLista1[0];

...tentei também o seguinte:

ex.: obj1 := objectLista[0];  edit1 := (TEdit)@obj1;

...também não. Até compila, mas na linha da atribuição ao "edit1", 
ocorre "access violation"

Agradeço a ajuda...


Filipe Belchior
ICQ 283735340
MSNM [EMAIL PROTECTED]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] PChar em dlls

[Filipe Belchior]

preciso de experiÃncias ou dicas de quem jà desenvolveu dlls em delphi...

fiz uma dll com algumas funÃÃes... estou tendo dor de cabeÃa com as
funÃÃes q: retornam ou passam "por referÃncia" PChars (isso mesmo!
por referÃncia, eu tbm estranhei, mas vi uma funcÃo na unit Windows
q passava assim tbm).

essas funÃÃes, variavelmente retornam a PChar com o valor "corrompido",
digamos assim... tipo: se o retorno deveria ser 'teste', retorna 'testâ'
...e entre outos caracteres estranhos...

HELP ME

à propÃsito, se ajuda alguma coisa quando estou depurando, e posiciono
o mouse em cima de uma das variÃveis q recebeu a PChar retornada, o
Delphi mostra algo parecido com: 'teste'$#14



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que vocà faz do Yahoo! Grupos està sujeito aos:
http://br.yahoo.com/info/utos.html

 

[delphi-br] IBO - RowsAffected não retorna!

[Filipe Belchior]

.

Olá... paz!

estou usando o IBO4.2Ib, a propriedade RowsAffected de TIB_Statement
não está me retornando o esperado...

uso TDSQL q é herança de TIB_Statement, a SQL está com parâmetros e
"preparada", chamo o método ExecSQL mas o RowsAffected só me retorna 0.

Teste o SQL no IB_SQL.exe (ferramenta da suite IBO), na aba DSQL...
o RowsAffected mostrado na barra de status funciona...

agradeço a atenção e ajuda!!!


Filipe Belchior
ICQ 283735340
MSNM [EMAIL PROTECTED]

.


-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/1/2005




-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html