[delphi-br] Re: SUGESTÃO

2005-10-18 Por tôpico Celio Ricardo
Nao é minha intencao gerar polemica, mesmo porque todos aqui temos um
interesse em comum = ampliar conhecimentos e discutir sobre essa
fabulosa ferramenta : 'O Delphi'.

Eu nao tenho vizinhos, amigos, colegas para perguntar, trocar ideias,
falar.. em Delphi. Meus amigos de Delphi sao voces e outros de outras
listas.

O que distinguiria uma mensagem AVANCADA de uma mensagem BASICA?
Para quem é programador (um dia eu chego la) sabe que nao se consegue
dominar nem, veja só, a paleta de componentes padrao do Delphi.

Ja fucou 3DMax? Delphi é a mesma coisa.. Fuca aqui, fuca ali e sempre
tem um negocinho novo.

Ha algum tempo eu lancei uma pergunta no forum da borland (la mesmo
onde tem o poderoso TEAM B, o mestre Peter Below... etc), para mim
naquele momento nao conseguia achar a solucao. Sabe o que eles
fizeram? Nao responderam. É isso ai.. me ignoraram.. Fui achar alguns
dias depois lendo nao sei oque...

Acho que se alguem nao gosta de um topico/pessoa/modo de escrever,
apenas nao responda.
Nao adianta ficar falando "Ai, isso aqui era uma maravilha de
profissionais, agora ta um lixo". 
Sempre foi assim, o individuo que se profissionalizou mais e agora nao
ve algo que o surpreenda constantemente.

Acho que todos que sao programadores, uma vez ja foram barrados de
determinada reuniao, conversa, etc por um grupo de Analistas de
Sistema (pelo amor de Deus, eu amo Analistas de Sistema). Foi bom?
Entao... 

Forum é essa maravilha de miscegenizacao de conhecimentos, ainda mais
a DELPHI-BR, que é bem pioneira.. 

[]s 
Celio


--- Em delphi-br@yahoogrupos.com.br, "Rodrigo Mota" <[EMAIL PROTECTED]>
escreveu
> Texto de Identificação da msg:
>  
> Só estou sugerindo...
>  
> Msg: Básica
> #MBA Mensagem básica
> #MIN  Mensagem intermediÁria
> #MAV -- Mensagem avançada
> #MDB -- Mensagem relacionada a base de dados 
> #MCL -- Mensagem relacionada a criação de classes...objetos e tal
>  
> daí podemos nos assistentes de regras redirecionar as msgs...para as
> pastas especificas no cliente de e-mail...
> só para organizar...
>  
>  
> Abs,
>  
> Rodrigo Mota
> 
> 
> [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

 






Re: [delphi-br] Mensagems demora pra chegar

2005-10-18 Por tôpico Valdir Marcos
É normal!
Nos horários de pico do Yahoo pode demorar até mais de 6 horas...

Um abraço,

Valdir Marcos

  - Original Message - 
  From: Elazar 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 18, 2005 6:43 PM
  Subject: [delphi-br] Mensagems demora pra chegar


  Ola pessoal, nao sei se tem algo errado,,,mas eu mando alguma mensagem e
  ela demora quase 2 horas para aparecer
  e normalou meu outlook ta com problemas...


  [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: 
  


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

 





Re: [delphi-br] Somando Colunas Dbgrid

2005-10-18 Por tôpico Valdir Marcos
Porque vc não isso direto no banco de dados, usando campo calculado?
Qual BD vc está usando?

Um abraço,

Valdir Marcos

  - Original Message - 
  From: Elazar 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 18, 2005 6:28 PM
  Subject: RES: [delphi-br] Somando Colunas Dbgrid


  Voce usa que componente para acesso aos dados?

  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  Em nome de Rodrigo Mota
  Enviada em: terça-feira, 18 de outubro de 2005 17:05
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Somando Colunas Dbgrid


  Boa tarde lista,

  No meu DBGrid lista umas 10 linhas e tem 3 colunas

  Na 1.Coluna tem o campo Salario
  Na 2.Coluna tem o campo dias_trabalhados
  Na 3.Coluna tem o campo salario_dias

  Preciso que o campo salário_dias seja calculado de acordo com o campo
  salário e qtde de dias trabalhados...

  Tipo assim a coluna salario_dias := Salário/30*salario_dias 

  Como faço estou tentando mais ainda não consegui,

  Agradeço desde já,

  Rodrigo Mota



  [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:  

  


_  

  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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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





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

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

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

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

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

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

 






Re: [delphi-br] fortes

2005-10-18 Por tôpico Daniel Doná
Cara posso te mandar um projeto de exmplo do proprio fortes
me manda o seu email em pvt

[EMAIL PROTECTED]

- Original Message -
From: "Oseas 'mentux' Tormen" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, October 18, 2005 6:05 PM
Subject: [delphi-br] fortes


opa, alguem trabalha com fortes report ae?

toh com problema na geração mestre/detalhe

alguem manja como fazer

obrigado

--

att.: Oseas 'mentux' Tormen


Celular: +55 (49) 8403-0836
Reside.: +55 (49) 3324-1380
Rua: Osvaldo Cruz, 688e
Bairro.: São Cristóvão
Cidade.: Chapecó - SC - BR
+

NM Informática
Desenvolvimento de Softwares Hospitalares
Fone Com.: +55 (49) 3322-4772
Fone Cel.: +55 (49) 8403-1993
Rua..: Nereu Ramos, Ed. CPC
Bairro...: Centro
Cidade...: Chapecó - SC - BR
+

msn...: [EMAIL PROTECTED]
ICQ...: 169395237
Ymessenger: [EMAIL PROTECTED]
skype.: mentux_
+




--

att.: Oseas 'mentux' Tormen


Celular: +55 (49) 8403-0836
Reside.: +55 (49) 3324-1380
Rua: Osvaldo Cruz, 688e
Bairro.: São Cristóvão
Cidade.: Chapecó - SC - BR
+

NM Informática
Desenvolvimento de Softwares Hospitalares
Fone Com.: +55 (49) 3322-4772
Fone Cel.: +55 (49) 8403-1993
Rua..: Nereu Ramos, Ed. CPC
Bairro...: Centro
Cidade...: Chapecó - SC - BR
+

msn...: [EMAIL PROTECTED]
ICQ...: 169395237
Ymessenger: [EMAIL PROTECTED]
skype.: mentux_
+




[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











--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.1/135 - Release Date: 15/10/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] Timage e Imagem no Mysql

2005-10-18 Por tôpico HNS Informática
Pessoal, como faço para jogar uma imagem que está em um campo blob do mysql 
para um componente timage? A figura pode ser tanto JPG como BMP.

Para armazenar fiz assim:
fiz da seguinte forma, usando query:o nome da tabela é Produtos

query.close;
query.sql.Clear;
query.Sql.Add ('insert into Produtos (Imagem)');
query.Sql.Add ('Values(:Imagem)');
query.ParamByName('Imagem').LoadFromFile(open.filename, ftGraphic);
query.ExecSql;

onde open.filename é um componente opendialog

Para jogar devolta fiz assim:
var
fldCampo : TField;
stStream : TStream;
cod  : string;
begin
//Joga imagem devolta---
  cod := frmmenu.queryprodutos.fieldbyname('Codigo').asstring;
  with frmmenu.queryprodutos do begin
  Close;
  frmmenu.queryprodutos.SQL.Clear;
  frmmenu.queryprodutos.SQL.Add('SELECT * from Produtos where Codigo = 
"'+cod+'"');
  frmmenu.queryprodutos.Open;
 if(not eof) then begin
  fldCampo := FieldByName('Imagem');
  stStream := CreateBlobStream(fldCampo, bmRead);
  editimagem.Picture.Bitmap.LoadFromStream(stStream);
  end;
  end;
//--
PORÉM QUANDO A FIGURA QUE EU TENHO ARMAZENADA NO MYSQL É JPG DA O SEGUINTE ERRO:
Project sistema.exe raised excpeption class EinvalidGraphic whith message 
'bitmat não é válido'. Process stopped. Use step or tun to continue

Alguém sabe outra rotina para jogar a imagem para meu timage?

att Charles Chiodi

[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

 






Re: [delphi-br] Image e Mysql

2005-10-18 Por tôpico Marcello Santos
ver se isto te ajuda


  Caminho : string;
  aFS : TFileStream;
  ImagJPG : TJPEGImage;
begin
   OpenPictureDialog1.Execute;
   Caminho:= OpenPictureDialog1.FileName;
   JvImage1.Picture.LoadFromFile(Caminho);
   JvImage1.Refresh;
   if empty(Caminho) then
  exit;
   aFS := TFileStream.Create(Caminho, fmOpenRead); // 
 Le imagem
   DataCus.CDSProdutoImag.Append;
   
DataCus.CDSProdutoImag.FieldByName('CD_CODPRO').AsString
  
:=DataCus.CDSLista.FieldByName('CD_CODPRO').AsString;
   DataCus.CDSProdutoImagFOTO1.LoadFromStream(aFS);
   DataCus.CDSProdutoImag.Post;
   DataCus.CDSProdutoImag.ApplyUpdates(0);
   aFS.Free; // Fecha o arquivo e libera a memoria.




--- HNS Informática <[EMAIL PROTECTED]> wrote:

> estou usando um image, assim ó:
> 
>  editimagem.Picture.LoadFromFile(open.filename);
> 
> como posso fazer a gora para a imagem que está no
> meu image ser armazenado no banco mysql?
> 
> por exemplo:  query['Imagem'] := image o que?
> 
> att. Charles Chiodi
> 
> [As partes desta mensagem que não continham texto
> foram removidas]
> 
> 
> 
> 




__ 
Yahoo! Music Unlimited 
Access over 1 million songs. Try it free.
http://music.yahoo.com/unlimited/




-- 
< 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] Componente Info Power

2005-10-18 Por tôpico Ricardo MDE
Boa noite, utilizo hoje o componente da Info Power, e gostaria de saber como 
posso fazer uma célula ficar vermelha ou azul dependendo do valor positivo ou 
negativo, hoje utilizo no calccellcolors mas o código que utilizo está pintando 
a linha toda, e gostaria de pintar apenas a célula.

Agradeço desde já, e qualquer ajuda será bem vinda

Ricardo Lino Gonzalez

[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

 






Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Valdir Marcos
Se vc usar Firebird dá para conectar esse arquivo texto como sendo uma tabela 
externa do BD, podendo, inclusive usar o Order By...

Um abraço,

Valdir Marcos

  - Original Message - 
  From: Rogério 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 18, 2005 12:18 PM
  Subject: [delphi-br] O que tem a MELHOR PERFORMANCE ?


  - Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou mais)

  - Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
  Sexo, Endereco

  - Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para saber as
  respectivas quantidades...

  - Detalhe: Preciso da melhor performance possível e disponível...
  Por isso descartei a Inserção em um BD e usar GroupBy
  Posteriormente.
 Acho que o melhor seria fazer tudo em memória pois, gravando
  em disco é inviável devido o tempo gasto...

  Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet em
  memória / Arrays

  Alguém já passou por isto ou tem algum palpite ??
  Estou em uma Arapuca Danada...
  Se souberem de algum algorítimo tb. agradeceria...
  Boa tarde pessoal...
  [ ]'s





  
  ___ 
  Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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





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

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

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

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

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

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

 






Re: [delphi-br] Recuperar Banco Firebird

2005-10-18 Por tôpico Valdir Marcos
Faltou o cabeçalho do gatilho: é inclusão, exclusão ou atualização?

Um abraço,

Valdir Marcos

  - Original Message - 
  From: Levi Ribeiro de Freitas 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 18, 2005 11:06 AM
  Subject: [delphi-br] Recuperar Banco Firebird


  Pessoal,

  Alguém tem alguma ferramenta para recuperar um banco firebird, acredito que
  o meu está com problema, visto que uma trigger está falhando.
  As vezes executa, as vezes não.

  Vejam o código:
  AS
  DECLARE VARIABLE FILLER VARCHAR (2) CHARACTER SET WIN1252;
  DECLARE VARIABLE FILLER1 VARCHAR (30) CHARACTER SET WIN1252;

  BEGIN

  FILLER = ' ';

  //Esta parte aqui não executa de jeito nenhum, verifica estas condicoes de
  jeito nenhum
  if ((new.situacao = 2 and old.situacao = 2) and (New.DT_NF <> Old.DT_NF) or
  (New.Peso_NF <> Old.Peso_NF) or (New.Valor_NF <> Old.Valor_NF) or
  (New.num_nf <> Old.num_nf)) then
 begin
 FILLER1 = 'MATERIAL DEVOLVIDO';
 INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR,
 TEXTO, DESCRICAO, USR_CAD,
 DT_CAD, DESCRICAO1, DESCRICAO2, STATUS)
 VALUES(11, 'RAT - ' || :FILLER1 || ' - ' || cast(New.peso_nf as
  varchar(8)) || 'KG' , SUBSTRING( NEW.codigo FROM 1 FOR 4) || '/' ||
  SUBSTRING( NEW.codigo FROM 5 FOR 2),
 NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente,
 NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao, 0);
 end
  //Até aqui.

  //Daqui pra frente executa normalmente.

  if (new.situacao = 1 and old.situacao = 1 and ((New.cod_cli <> Old.cod_cli)
  or (New.desc_reclama <> Old.desc_reclama))) then
 begin
 INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR,
 TEXTO, DESCRICAO, USR_CAD,
 DT_CAD, STATUS)
 VALUES(1, 'ALTERAÇÃO DE SAT', SUBSTRING( NEW.codigo FROM 1 FOR 4) || '/'
  || SUBSTRING( NEW.codigo FROM 5 FOR 2),
 NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente,
 NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, 0);
 end

  if (new.situacao = 2 and old.situacao = 1) then
 begin
 if (new.procedente = 1) then
begin
FILLER1 = 'PROCEDENTE';
INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR,
TEXTO, DESCRICAO, USR_CAD,
DT_CAD, DESCRICAO1, DESCRICAO2, STATUS)
VALUES(2, 'INCLUSÃO DE RAT - ' || :FILLER1 , SUBSTRING( NEW.codigo
  FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2),
NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente,
NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao,
  0);
end
 if (new.procedente = 2) then
begin
FILLER1 = 'IMPROCEDENTE';
INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR,
TEXTO, DESCRICAO, USR_CAD,
DT_CAD, DESCRICAO1, DESCRICAO2, STATUS)
VALUES(3, 'INCLUSÃO DE RAT - ' || :FILLER1 , SUBSTRING( NEW.codigo
  FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2),
NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente,
NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao,
  0);
end
 end

  if ((new.situacao = 2 and old.situacao = 2) and (New.laudo <> Old.laudo) or
  (New.disposicao <> Old.disposicao) or (New.procedente <> Old.procedente) or
  (New.devolucao <> Old.devolucao)) then
 begin
 if (new.procedente = 1) then
begin
FILLER1 = 'PROCEDENTE';
INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR,
TEXTO, DESCRICAO, USR_CAD,
DT_CAD, DESCRICAO1, DESCRICAO2, STATUS)
VALUES(2, 'ALTERAÇÃO DE RAT - ' || :FILLER1 , SUBSTRING( NEW.codigo
  FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2),
NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente,
NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao,
  0);
end
 if (new.procedente = 2) then
begin
FILLER1 = 'IMPROCEDENTE';
INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR,
TEXTO, DESCRICAO, USR_CAD,
DT_CAD, DESCRICAO1, DESCRICAO2, STATUS)
VALUES(3, 'ALTERAÇÃO DE RAT - ' || :FILLER1 , SUBSTRING( NEW.codigo
  FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2),
NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente,
NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao,
  0);
end
 end

  END

  Atenciosamente,

  Levi Ribeiro de Freitas
  Programador de Computadores
  Tel.: 55 12 3644-2119 / 9724-8804
  Email:   [EMAIL PROTECTED]


  [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 

[delphi-br] fortes

2005-10-18 Por tôpico Oseas 'mentux' Tormen
opa, alguem trabalha com fortes report ae?

toh com problema na geração mestre/detalhe

alguem manja como fazer

obrigado

-- 

att.: Oseas 'mentux' Tormen


Celular: +55 (49) 8403-0836
Reside.: +55 (49) 3324-1380
Rua: Osvaldo Cruz, 688e
Bairro.: São Cristóvão
Cidade.: Chapecó - SC - BR
+

NM Informática
Desenvolvimento de Softwares Hospitalares
Fone Com.: +55 (49) 3322-4772
Fone Cel.: +55 (49) 8403-1993 
Rua..: Nereu Ramos, Ed. CPC
Bairro...: Centro
Cidade...: Chapecó - SC - BR
+

msn...: [EMAIL PROTECTED]
ICQ...: 169395237
Ymessenger: [EMAIL PROTECTED]
skype.: mentux_
+




-- 

att.: Oseas 'mentux' Tormen


Celular: +55 (49) 8403-0836
Reside.: +55 (49) 3324-1380
Rua: Osvaldo Cruz, 688e
Bairro.: São Cristóvão
Cidade.: Chapecó - SC - BR
+

NM Informática
Desenvolvimento de Softwares Hospitalares
Fone Com.: +55 (49) 3322-4772
Fone Cel.: +55 (49) 8403-1993 
Rua..: Nereu Ramos, Ed. CPC
Bairro...: Centro
Cidade...: Chapecó - SC - BR
+

msn...: [EMAIL PROTECTED]
ICQ...: 169395237
Ymessenger: [EMAIL PROTECTED]
skype.: mentux_
+




[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] E-Mail via delphi

2005-10-18 Por tôpico HNS Informática
Pessoal, preciso configurar um formulário para enviar um e-mail sem abrir o  
outlook, tentei usando o componente NMSMTP da palheta Fastnet do delphi5, o 
problema é que minha conta de e-mail requer autenticação e esse componente não 
tem propriedade de senha, alguém conhece outro componente?

att Charles Chiodi

[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] OFF Topic - BorCon 2005

2005-10-18 Por tôpico Felipe
Paulo,

Liga para o pessoal da Borland que eles indicam algum hotel perto e barato.
Pelo que eu vi no convite, o almoço está incluído no evento. Também achei
estranho porque está mais barato do que ano passado dizem que o almoço e os
cafés estão incluídos. Com relação a material para anotação não se preocupe
porque normalmente eles dão uma mochila com vários materiais, inclusive
bloco de anotação e canetas.
A roupa é esporte. Pode ir até de tênis que não pega nada.


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Paulo Eduardo
Enviada em: terça-feira, 18 de outubro de 2005 09:14
Para: delphi_box; delphi-advanced; delphi-br; delphi-mysql; delphi-total
Assunto: [delphi-br] OFF Topic - BorCon 2005
Prioridade: Alta

Bom dia Delphinianos deste Brasilis!!!

Sou virgem em BorCon, por isso tenho umas dúvidas!!
Hospedagem barata perto do local
Eles fornecem material para anotação???
Tem certificado das palestras e mini-cursos
Alimentação perto???
Terno e gravata, ou só um social fino?? 

Esclarecendo sou só um pobre programador do interior, desempregado!!!

Obrigaduuu!!
Paulo Eduardo

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



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

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

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




 








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

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

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

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

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

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

 





[delphi-br] Imagem no MYSQL não é possivel

2005-10-18 Por tôpico HNS Informática
pessoal, não tem como gravar uma imagem no bando mysql? preciso gravar a imagem 
e não o caminho

att Charles Chiodi

[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] Desconto Super Especial e Facilidades Incríveis para a B orCon Oferecida para o DelphiRio

2005-10-18 Por tôpico Bruno Lichot - Micrologos
Salve Galera!!!

Conseguimos DESCONTOS e FACILIDADES ainda não antes praticadas para os 
participantes dos Grupos de Usuários DelphiRio e SQLRio!
Se vc deseja ir a BorCon, não deixe de ir a reunião que se realizará nesta 
quarta-feira dia 19/10 no auditório da ASSESPRO-RJ, na 
Rua Buenos Aires 98 14º Andar, no centro do Rio de Janeiro, esquina com a Av. 
Rio Branco, perto do metrô da Carioca, Uruguaiana e 
Presidente Vargas. Nosso horário será das 14:00 as 17:00.
Se esta em dúvida, se esta pensando em levar uma equipe, venha participar desta 
reunião onde estaremos dando as orientações necessárias
e mostrando as vantagens que teremos para a nossa caravana do Rio de Janeiro. 
NÃO PERCA ESTA OPORTUNIDADE!
O BorCon IV deste ano, sem dúvida, é o maior e melhor evento já reallizado no 
Brasil, imperdível para desenvolvedores, gerentes e executivos de TI.
Confira a grade e mais informações em http://info.borland.com.br/borcon/.
Confirmem comigo a presença na reunião enviando nome e e-mail para [EMAIL 
PROTECTED] As vagas são limitadas!
Estarei inteiramente a disposição para o que for necessário, é só entrar em 
contato.

E atendendo a pedidos, vamos fazer uma tarde de bate papo sobre Bancos de Dados 
e Delphi.
O pessoal tem levado algumas duvidas e sugestões, mas as vezes pelo assunto da 
palestra, não é possível sanar todas.
Diante disso, preparem suas dúvidas sobre SGBDs, Desenvolvimento Client/Server, 
Multicamadas, WEB, Relatórios, ClientDataSet, etc.
Vou mostrar também algumas técnicas de indexação e de configuração de comando 
SQL no ClientDataSet.
Vamos ter bastante tempo para conversar e poderemos desfrutar do nosso 
tradicional coofee-break.

Galera, vale a pena!!!
Conto com vocês! Estou as ordens para qualquer coisa em que possa ser útil.

Aguardo o e-mail e o nome para inscrição de nosso encontro nesta quarta. 
Lembrando que é a entrada é GRATUITA
Apenas preciso do nome e e-mail de cada um que vai participar pois as vagas são 
limitadas.

Atenciosamente,

[]´s
Bruno Lichot
Micrologos Dream Team
Equipe ClubeDelphi DevMedia
 
[EMAIL PROTECTED]
[EMAIL PROTECTED]
 
www.micrologos.com.br - www.clubedelphi.net - www.delphirio.assespro-rj.org.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] 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

 






Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Topolniak
Olá, segue anexo um exemplo de uma forma de fazer...

Como eu disse anteriormente, é uma ajuda pra um start...

[]'s
Topolniak.

[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] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Elazar
 
""He he he Se alguém lembrar ou souber o que é isto,
é provavelmente é o Famoso Elefante Branco tirado da cartola e a
comunidade
toda agradece !!
O Sonho de muitos programadores...
Valeu...""
 
isso apos o type ajuda a lembrar
 
 
so eu nao sei usar...

 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs;
 

type
 
  TRegistro = ^rRegistro;
  rRegistro = record
Nome  : String;
Data  : TDateTime;
Idade : Integer;
Sexo  : String;
Endereco  : String;
  end;
 
  TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  vRegistro : TRegistro;
begin
  vRegistro.Nome := 'coloca um nome aqui';
  vRegistro.Data := Date;
  vRegistro.Idade:= 21;
  vRegistro.Sexo := 'M';
  vRegistro.Endereco := 'rua ';
end;
 
end.
 

 



[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

 






Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Rogério
Mas alguém sabe como utilizar FileHandle ??
Nunca ví nada parecido !
[]'s

- Original Message - 
From: "Wilton Moreira" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, October 18, 2005 5:19 PM
Subject: Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?


> Rogério,
>
>Alguns podem não concordar, mas se o arquivo não tem delimitador,
> mas a largura das colunas é fixa, eu usaria FileHandle para ler
> linha-a-linha.
>
> Wilton
>
> Rogério wrote:
>
> >O problema é que este txt não possui delimitação por ponto e virgula, é
> >apenas por espaços delimitando as posições.
> >
> >Ex.:
> >NomeData  Idade   Sexo   Endereco
> >Jose da Silva  01/01/1925  80MRua Hum, 25
> >Maria dos Santos   05/05/1962  43F Rua Dois, 13
> >Joaquim de Oliveira01/04/1928  77MRua Tres, 26
> >Joana Ferreira01/03/1972  33F  Rua Quatro, 12
> >
> >Valeu !
> >
> >- Original Message - 
> >From: "Andre - Yahoo" <[EMAIL PROTECTED]>
> >To: 
> >Sent: Tuesday, October 18, 2005 2:15 PM
> >Subject: Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?
> >
> >
> >vc pode usar o ADO para conectar neste arquivo txt, se ele tiver separado
> >por ponto e virgula tá morto o problema.
> >  - Original Message - 
> >  From: Rogério
> >  To: delphi-br@yahoogrupos.com.br
> >  Sent: Tuesday, October 18, 2005 1:18 PM
> >  Subject: [delphi-br] O que tem a MELHOR PERFORMANCE ?
> >
> >
> >  - Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou
> >mais)
> >
> >  - Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento,
Idade,
> >  Sexo, Endereco
> >
> >  - Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para
saber
> >as
> >  respectivas quantidades...
> >
> >  - Detalhe: Preciso da melhor performance possível e disponível...
> >  Por isso descartei a Inserção em um BD e usar GroupBy
> >  Posteriormente.
> > Acho que o melhor seria fazer tudo em memória pois,
> >gravando
> >  em disco é inviável devido o tempo gasto...
> >
> >  Não sei como ou, qual Tecnologia utilizar !! TStringList /
ClientDataSet
> >em
> >  memória / Arrays
> >
> >  Alguém já passou por isto ou tem algum palpite ??
> >  Estou em uma Arapuca Danada...
> >  Se souberem de algum algorítimo tb. agradeceria...
> >  Boa tarde pessoal...
> >  [ ]'s
> >
> >
> >
> >
> >
> >
> >  ___
> >  Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons
e
> >concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]
> >
> >
> >
> >Yahoo! Grupos, um serviço oferecido por:
> >
> >
> >
>
>---
-
> >--
> >  Links do Yahoo! Grupos
> >
> >a.. Para visitar o site do seu grupo na web, acesse:
> >http://br.groups.yahoo.com/group/delphi-br/
> >
> >b.. Para sair deste grupo, envie um e-mail para:
> >[EMAIL PROTECTED]
> >
> >c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> >Serviço do Yahoo!.
> >
> >
> >
> >[As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> >
> >
>
>
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> Para ver as mensagens antigas, acesse:
>  http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
>  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>






___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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] selecionar colunas no grid

2005-10-18 Por tôpico Elazar
Ai meu. eu fiz com um popop...pode ser
 
basta "ajustar" o nome do form, ter um dbgrid e um popupmenu na tela
ai da uma olhada no codigo abaixo
 
 
procedure Tform1.FormCreate(Sender: TObject);
begin
 
   { Chame a funcao passando apenas o nome do grid e do popup menu }
   AjustarColunasDoGrid( grdiProduto, PopupMenu);
end;

procedure Tform1.AjustarColunasDoGrid( Grid : TDBGrid; PopMenu :
TPopupMenu);
var
  vItemMenu : TMenuItem;
  vCont : Integer;
begin
  { Faz um loop nas colunas do menu }
  for vCont := 0 to Grid.Columns.Count -1 do begin
 
 { Cria um item de menu e define algumas propriedades }
 vItemMenu := TMenuItem.Create(Self);
 vItemMenu.Caption := Grid.Columns[ vCont].DisplayName; {
Caption }
 vItemMenu.Checked := True; {
Marcado }
 vItemMenu.Name:= 'PM' + Grid.Name + '_' + IntToStr(vCont); {
Nomenao muito aconselhavel por o nome, mas fica mais facil achar ele
depois }
 vItemMenu.OnClick := MenuClick;{
Associa o evento do clique }
 PopMenu.Items.Add( vItemMenu); {
Adiciona o mesmo ao menu }
  end;
 
  { Associa o grid ao menu }
  Grid.PopupMenu := PopMenu;
end;
 
procedure Tform1.MenuClick(Sender : TObject);
var
  vNomeMenu : String;
  vNomeGrid : String;
  vNroColum : Integer;
  vGrid : TDBGrid;
begin
  { Aqui pega o nome do item de menu }
  vNomeMenu := (Sender as TMenuItem).Name;
 
  { Pega o nome do grid }
  vNomeGrid := Copy(vNomeMenu, 3, Pos('_', vNomeMenu) - 3);
 
  { Pega o numero da coluna, aumente o 3 no final se tiver mais que 999
colunas... }
  vNroColum := StrToInt( Copy( vNomeMenu, Pos('_', vNomeMenu) + 1 , 3));
 
  { Pega uma referencia o componente grid associado }
  vGrid := (Self.FindComponent(vNomeGrid) as TDBGrid);
 
  { Ajusta o check do item de menu...
marca se estiver desmarcado ou vice versa }
  (Sender as TMenuItem).Checked := not (Sender as TMenuItem).Checked;
 
  { enfim, mostra ou oculta a coluna de acordo com o menu }
  vGrid.Columns[ vNroColum].Visible := (Sender as TMenuItem).Checked;
end; 
 
 
Atenciosamente
 
Elazar
 
 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Renato
Enviada em: terça-feira, 18 de outubro de 2005 15:33
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] selecionar colunas no grid


Salve, Salve Companheiros

É o seguinte, oque estou querendo fazer parece ser simples, porém não 
tenho a mínima idéia como que faço.
Tenho um grid com várias colunas, gostaria de saber como faço para que 
num listview(ou outro compoentente não sei) onde eu tenha um checkbox 
para cada coluna do grid.
Assim o usuário poderá escolher quais campos ele quer visualizar no 
grid aquele momento. Dessa forma conforme o check do campo eu digo se o 
columns do grid será é visible ou não.
Como posso implementar isso??
sem mais

Grato pela atenção...





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

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

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




Yahoo! Grupos, um serviço oferecido por:
 



  _  

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] 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] Mensagems demora pra chegar

2005-10-18 Por tôpico Elazar
Ola pessoal, nao sei se tem algo errado,,,mas eu mando alguma mensagem e
ela demora quase 2 horas para aparecer
e normalou meu outlook ta com problemas...


[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] Somando Colunas Dbgrid

2005-10-18 Por tôpico Elazar
Voce usa que componente para acesso aos dados?

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Rodrigo Mota
Enviada em: terça-feira, 18 de outubro de 2005 17:05
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Somando Colunas Dbgrid


Boa tarde lista,

No meu DBGrid lista umas 10 linhas e tem 3 colunas

Na 1.Coluna tem o campo Salario
Na 2.Coluna tem o campo dias_trabalhados
Na 3.Coluna tem o campo salario_dias

Preciso que o campo salário_dias seja calculado de acordo com o campo
salário e qtde de dias trabalhados...

Tipo assim a coluna salario_dias := Salário/30*salario_dias 

Como faço estou tentando mais ainda não consegui,

Agradeço desde já,

Rodrigo Mota



[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:
 



  _  

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] 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] Desconto Super Especial e Facilidades Incríveis para a B orCon Oferecida para o DelphiRio

2005-10-18 Por tôpico Bruno Lichot - Micrologos
Salve Galera!!!

Conseguimos DESCONTOS e FACILIDADES ainda não antes praticadas para os 
participantes dos Grupos de Usuários DelphiRio e SQLRio!
Se vc deseja ir a BorCon, não deixe de ir a reunião que se realizará nesta 
quarta-feira dia 19/10 no auditório da ASSESPRO-RJ, na 
Rua Buenos Aires 98 14º Andar, no centro do Rio de Janeiro, esquina com a Av. 
Rio Branco, perto do metrô da Carioca, Uruguaiana e 
Presidente Vargas. Nosso horário será das 14:00 as 17:00.
Se esta em dúvida, se esta pensando em levar uma equipe, venha participar desta 
reunião onde estaremos dando as orientações necessárias
e mostrando as vantagens que teremos para a nossa caravana do Rio de Janeiro. 
NÃO PERCA ESTA OPORTUNIDADE!
O BorCon IV deste ano, sem dúvida, é o maior e melhor evento já reallizado no 
Brasil, imperdível para desenvolvedores, gerentes e executivos de TI.
Confira a grade e mais informações em http://info.borland.com.br/borcon/.
Confirmem comigo a presença na reunião enviando nome e e-mail para [EMAIL 
PROTECTED] As vagas são limitadas!
Estarei inteiramente a disposição para o que for necessário, é só entrar em 
contato.

E atendendo a pedidos, vamos fazer uma tarde de bate papo sobre Bancos de Dados 
e Delphi.
O pessoal tem levado algumas duvidas e sugestões, mas as vezes pelo assunto da 
palestra, não é possível sanar todas.
Diante disso, preparem suas dúvidas sobre SGBDs, Desenvolvimento Client/Server, 
Multicamadas, WEB, Relatórios, ClientDataSet, etc.
Vou mostrar também algumas técnicas de indexação e de configuração de comando 
SQL no ClientDataSet.
Vamos ter bastante tempo para conversar e poderemos desfrutar do nosso 
tradicional coofee-break.

Galera, vale a pena!!!
Conto com vocês! Estou as ordens para qualquer coisa em que possa ser útil.

Aguardo o e-mail e o nome para inscrição de nosso encontro nesta quarta. 
Lembrando que é a entrada é GRATUITA
Apenas preciso do nome e e-mail de cada um que vai participar pois as vagas são 
limitadas.

Atenciosamente,

[]´s
Bruno Lichot
Micrologos Dream Team
Equipe ClubeDelphi DevMedia
 
[EMAIL PROTECTED]
[EMAIL PROTECTED]
 
www.micrologos.com.br - www.clubedelphi.net - www.delphirio.assespro-rj.org.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] 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

 





Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Rogério
He he he Se alguém lembrar ou souber o que é isto,
é provavelmente é o Famoso Elefante Branco tirado da cartola e a comunidade
toda agradece !!
O Sonho de muitos programadores...
Valeu...

- Original Message - 
From: "Elazar" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, October 18, 2005 4:00 PM
Subject: RES: [delphi-br] O que tem a MELHOR PERFORMANCE ?


Eu vi algo na net que funcionava com Record´s...mas nao lembro direito
...muito menos ondeeo cara que tinha feito descrevia por ser  muito
rapido...

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Rogério
Enviada em: terça-feira, 18 de outubro de 2005 12:18
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] O que tem a MELHOR PERFORMANCE ?


- Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou
mais)

- Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
Sexo, Endereco

- Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para
saber as
respectivas quantidades...

- Detalhe: Preciso da melhor performance possível e disponível...
Por isso descartei a Inserção em um BD e usar GroupBy
Posteriormente.
   Acho que o melhor seria fazer tudo em memória pois,
gravando
em disco é inviável devido o tempo gasto...

Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet
em
memória / Arrays

Alguém já passou por isto ou tem algum palpite ??
Estou em uma Arapuca Danada...
Se souberem de algum algorítimo tb. agradeceria...
Boa tarde pessoal...
[ ]'s






___
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons
e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:




  _

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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos














___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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] selecionar colunas no grid

2005-10-18 Por tôpico Elazar
Bem interesante...dexa eu tentar fazer um exemplo

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Renato
Enviada em: terça-feira, 18 de outubro de 2005 15:33
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] selecionar colunas no grid


Salve, Salve Companheiros

É o seguinte, oque estou querendo fazer parece ser simples, porém não 
tenho a mínima idéia como que faço.
Tenho um grid com várias colunas, gostaria de saber como faço para que 
num listview(ou outro compoentente não sei) onde eu tenha um checkbox 
para cada coluna do grid.
Assim o usuário poderá escolher quais campos ele quer visualizar no 
grid aquele momento. Dessa forma conforme o check do campo eu digo se o 
columns do grid será é visible ou não.
Como posso implementar isso??
sem mais

Grato pela atenção...





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

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

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




Yahoo! Grupos, um serviço oferecido por:
 



  _  

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] 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] Image e Mysql

2005-10-18 Por tôpico HNS Informática
estou usando um image, assim ó:

 editimagem.Picture.LoadFromFile(open.filename);

como posso fazer a gora para a imagem que está no meu image ser armazenado no 
banco mysql?

por exemplo:  query['Imagem'] := image o que?

att. Charles Chiodi

[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] SUGESTÃO

2005-10-18 Por tôpico Rodrigo Mota
Texto de Identificação da msg:
 
Só estou sugerindo...
 
Msg: Básica
#MBA Mensagem básica
#MIN  Mensagem intermediÁria
#MAV -- Mensagem avançada
#MDB -- Mensagem relacionada a base de dados 
#MCL -- Mensagem relacionada a criação de classes...objetos e tal
 
daí podemos nos assistentes de regras redirecionar as msgs...para as
pastas especificas no cliente de e-mail...
só para organizar...
 
 
Abs,
 
Rodrigo Mota


[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

 





Re: [delphi-br] Crias duas grids, sendo uma master detail

2005-10-18 Por tôpico Valdir Marcos
O relacionamento Mestre-Detalhe nãos está nos grids, mas sim nas tabelas.
Qual componente de acesso vc está utilizando: IBX, DBExpress, etc?

Um abraço,

Valdir Marcos 

  - Original Message - 
  From: Moloukos 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, October 17, 2005 9:25 AM
  Subject: [delphi-br] Crias duas grids, sendo uma master detail


  Como faço duas grids, sendo uma a Master Detail??
  Delphi 7 com banco de dados Firebird 1.5


  [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: 
  


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

 





Re: [delphi-br] Importar dados de arquivo DAT COBOL

2005-10-18 Por tôpico Ailton Branco
É este mesmo o tal ACU-COBOL descobri agora... inclusive estou tentanto abrir 
com algumas dicas do pessoal da lista de vc puder me ajudar eu agradeco 

passa teu email que te mando um arquivo em PVT...

abraços

  - Original Message - 
  From: Nivaldo Stainle 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, October 17, 2005 1:06 PM
  Subject: Re: [delphi-br] Importar dados de arquivo DAT COBOL


  Qual é o Compilador, se for ACU-COBOL, talvez eu possa te ajudar.

  Stainle

  plucaslazaro <[EMAIL PROTECTED]> escreveu:
  Ailton, vc sabe me dizer qual a versao do cobol, vc teria algum arquivo 
  pequeno para me mandar pra dar uma olhada.

  Paulo
  - Original Message - 
  From: "Ailton Branco" <[EMAIL PROTECTED]>
  To: 
  Sent: Friday, October 14, 2005 5:05 PM
  Subject: [delphi-br] Importar dados de arquivo DAT COBOL


  Tenho um arquivo de um programa cobol e tenho que bucar os dados dentro dele 
  para importacao... o programador é de outra empresa e nao quer exportar para 
  texto ou qualquer outra tipo... gostaria de saber se tem alguma ferramenta 
  que posso exportar estes dados para texto, excel ou access.



  agradeço a atenção

  [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














  
  ___ 
  Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]



  Yahoo! Grupos, um serviço oferecido por: 

  -
  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!. 


  
  -
  Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

  [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: 
  


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

 






Re: [delphi-br] Imagem no MySQL

2005-10-18 Por tôpico Marcello Santos
eu uso tipo:blob

--- HNS Informática <[EMAIL PROTECTED]> wrote:

> Pessoal, preciso armazenar imagens (bmp ou jpg) no
> meu banco de dados MySQL, qual o tipo de campo que
> eu uso e qual o codigo para procurar uma figura no
> pc e armazenar no banco:?
> 
> att. Charles Chiodi
> 
> [As partes desta mensagem que não continham texto
> foram removidas]
> 
> 
> 
> 





__ 
Yahoo! Mail - PC Magazine Editors' Choice 2005 
http://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] 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] Armazenar Imagem Mysql

2005-10-18 Por tôpico HNS Informática
Pessoal, que codigo tenho que por no botão para abrir a janela do windows de 
procurar arquivo e armazenar no banco mysql?

att Chales Chiodi

[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

 





Re: [delphi-br] Importar dados de arquivo DAT COBOL

2005-10-18 Por tôpico Ailton Branco
Paulo obrigado pela ajuda... passa seu email que te mando em PVT o arquivo vou 
tentar ver junto a prefeitura se eles sabem qual a versao do cobol usado
  - Original Message - 
  From: plucaslazaro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, October 17, 2005 8:16 AM
  Subject: Re: [delphi-br] Importar dados de arquivo DAT COBOL


  Ailton, vc sabe me dizer qual a versao do cobol, vc teria algum arquivo 
  pequeno para me mandar pra dar uma olhada.

  Paulo
  - Original Message - 
  From: "Ailton Branco" <[EMAIL PROTECTED]>
  To: 
  Sent: Friday, October 14, 2005 5:05 PM
  Subject: [delphi-br] Importar dados de arquivo DAT COBOL


  Tenho um arquivo de um programa cobol e tenho que bucar os dados dentro dele 
  para importacao... o programador é de outra empresa e nao quer exportar para 
  texto ou qualquer outra tipo... gostaria de saber se tem alguma ferramenta 
  que posso exportar estes dados para texto, excel ou access.



  agradeço a atenção

  [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














  
  ___ 
  Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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





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

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

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

<*> 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 - Kurumin Linux

2005-10-18 Por tôpico Valdir Marcos
Bom dia a todos.

Este final de semana fiz alguns testes com o Kurumin Linux 4.2, mas quero 
baixar o 5. Quero fazer testes por uma semana para sugerir a troca do win 
server 2003 SE. Se der certo, vou sugerir que a empresa contrate um 
profissional para configurar um servidor Linux de verdade.

Vcs poderiam me ajudar a configurar o Kurumin para servir o FireBird e uma 
pasta compartilhada (Samba) com os demais arquivos do sistema:

1. Depois de instalado no HD, dual boot com Win 98, mudar o IP do Kurumin para 
192.168.0.100.

2. Configurar o Samba para compartilhar uma pasta para leitura e gravação dos 
clientes Win [98 SE, 2K, XP]. Esses clientes não serão autenticados pelo 
Kurumin, apenas usarão um compartilhamento simples de pasta (estilo Win 98 da 
vida). Não haverá clientes Linux.

3. Instalar o FireBird 1.5.2.4731. 

4. Instalar o FlameRobin 0.4.0.

5. Dar start/stop no FireBird via linha de comando. No Windows, eu faço isso em 
modo gráfico.

6. Usar gfix e gbak via linha de comando. Eu sei fazer isso no windows, preciso 
apenas saber os caminhos no Kurumin.

Desculpe pelo abuso do tuturial com um monte de pergutas, e agradeço desde já 
por qualquer ajuda que possam me dar.

Um abraço,

Valdir Marcos



[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] Somando Colunas Dbgrid

2005-10-18 Por tôpico Rodrigo Mota
Boa tarde lista,
 
No meu DBGrid lista umas 10 linhas e tem 3 colunas
 
Na 1.Coluna tem o campo Salario
Na 2.Coluna tem o campo dias_trabalhados
Na 3.Coluna tem o campo salario_dias
 
Preciso que o campo salário_dias seja calculado de acordo com o campo
salário e qtde de dias trabalhados...
 
Tipo assim a coluna salario_dias := Salário/30*salario_dias 
 
Como faço estou tentando mais ainda não consegui,
 
Agradeço desde já,
 
Rodrigo Mota
 


[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

 






Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Topolniak
Amigão, poderia me mandar um file desse com pelo menos uns 3000 
registros...?
Posso te dar um força legal, pelo menos pra vc dar um start aí..

[]'s
Topolniak.
- Original Message - 
From: "Wilton Moreira" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, October 18, 2005 4:19 PM
Subject: Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?


Rogério,

   Alguns podem não concordar, mas se o arquivo não tem delimitador,
mas a largura das colunas é fixa, eu usaria FileHandle para ler
linha-a-linha.

Wilton

Rogério wrote:

>O problema é que este txt não possui delimitação por ponto e virgula, é
>apenas por espaços delimitando as posições.
>
>Ex.:
>NomeData  Idade   Sexo   Endereco
>Jose da Silva  01/01/1925  80MRua Hum, 25
>Maria dos Santos   05/05/1962  43F Rua Dois, 13
>Joaquim de Oliveira01/04/1928  77MRua Tres, 26
>Joana Ferreira01/03/1972  33F  Rua Quatro, 12
>
>Valeu !
>
>- Original Message - 
>From: "Andre - Yahoo" <[EMAIL PROTECTED]>
>To: 
>Sent: Tuesday, October 18, 2005 2:15 PM
>Subject: Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?
>
>
>vc pode usar o ADO para conectar neste arquivo txt, se ele tiver separado
>por ponto e virgula tá morto o problema.
>  - Original Message - 
>  From: Rogério
>  To: delphi-br@yahoogrupos.com.br
>  Sent: Tuesday, October 18, 2005 1:18 PM
>  Subject: [delphi-br] O que tem a MELHOR PERFORMANCE ?
>
>
>  - Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou
>mais)
>
>  - Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
>  Sexo, Endereco
>
>  - Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para saber
>as
>  respectivas quantidades...
>
>  - Detalhe: Preciso da melhor performance possível e disponível...
>  Por isso descartei a Inserção em um BD e usar GroupBy
>  Posteriormente.
> Acho que o melhor seria fazer tudo em memória pois,
>gravando
>  em disco é inviável devido o tempo gasto...
>
>  Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet
>em
>  memória / Arrays
>
>  Alguém já passou por isto ou tem algum palpite ??
>  Estou em uma Arapuca Danada...
>  Se souberem de algum algorítimo tb. agradeceria...
>  Boa tarde pessoal...
>  [ ]'s
>
>
>
>
>
>
>  ___
>  Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
>concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]
>
>
>
>Yahoo! Grupos, um serviço oferecido por:
>
>
>
>
>--
>  Links do Yahoo! Grupos
>
>a.. Para visitar o site do seu grupo na web, acesse:
>http://br.groups.yahoo.com/group/delphi-br/
>
>b.. Para sair deste grupo, envie um e-mail para:
>[EMAIL PROTECTED]
>
>c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
>Serviço do Yahoo!.
>
>
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>


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

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

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

Links do Yahoo! Grupos











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

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

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

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

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

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

 






[delphi-br] Ajuda com relatório em Rave

2005-10-18 Por tôpico galvao_em
Olá, gostaria de saber com é que faço para deixar as linhas do relatório 
zebradas, isto é uma branca e outra cinza.

desde já agradeço a ajuda

Att.

Rodrigo Galvan





___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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

 





Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Karkaju
cara, o modo mais leve é leitura em baixo nivel: fOpen, fClose, fread,
etc...
QQ coisa diferente disso, vai demandar muito custo de memoria e
processamento.
Vc le desta forma e depois q manda pro banco... Nada de mandar o arquivo pra
objetos do delphi. Se o teu banco for Oracle, tem como vc criar uma TABELA
TEMPORÁRIA, que so vai existir durante a tua conexão. Vc joga tudo nessa
tabela temporaria e depois trabalha em cima dela.

Em 18/10/05, Rogério <[EMAIL PROTECTED]> escreveu:
>
> - Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou
> mais)
>
> - Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
> Sexo, Endereco
>
> - Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para saber
> as
> respectivas quantidades...
>
> - Detalhe: Preciso da melhor performance possível e disponível...
> Por isso descartei a Inserção em um BD e usar GroupBy
> Posteriormente.
> Acho que o melhor seria fazer tudo em memória pois, gravando
> em disco é inviável devido o tempo gasto...
>
> Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet
> em
> memória / Arrays
>
> Alguém já passou por isto ou tem algum palpite ??
> Estou em uma Arapuca Danada...
> Se souberem de algum algorítimo tb. agradeceria...
> Boa tarde pessoal...
> [ ]'s
>
>
>
>
>
-
email: [EMAIL PROTECTED] (+googletalk)
skype: karkajukarkamano
messenger: [EMAIL PROTECTED]


[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

 






Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Wilton Moreira
Rogério,

   Alguns podem não concordar, mas se o arquivo não tem delimitador, 
mas a largura das colunas é fixa, eu usaria FileHandle para ler 
linha-a-linha.

Wilton

Rogério wrote:

>O problema é que este txt não possui delimitação por ponto e virgula, é
>apenas por espaços delimitando as posições.
>
>Ex.:
>NomeData  Idade   Sexo   Endereco
>Jose da Silva  01/01/1925  80MRua Hum, 25
>Maria dos Santos   05/05/1962  43F Rua Dois, 13
>Joaquim de Oliveira01/04/1928  77MRua Tres, 26
>Joana Ferreira01/03/1972  33F  Rua Quatro, 12
>
>Valeu !
>
>- Original Message - 
>From: "Andre - Yahoo" <[EMAIL PROTECTED]>
>To: 
>Sent: Tuesday, October 18, 2005 2:15 PM
>Subject: Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?
>
>
>vc pode usar o ADO para conectar neste arquivo txt, se ele tiver separado
>por ponto e virgula tá morto o problema.
>  - Original Message - 
>  From: Rogério
>  To: delphi-br@yahoogrupos.com.br
>  Sent: Tuesday, October 18, 2005 1:18 PM
>  Subject: [delphi-br] O que tem a MELHOR PERFORMANCE ?
>
>
>  - Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou
>mais)
>
>  - Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
>  Sexo, Endereco
>
>  - Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para saber
>as
>  respectivas quantidades...
>
>  - Detalhe: Preciso da melhor performance possível e disponível...
>  Por isso descartei a Inserção em um BD e usar GroupBy
>  Posteriormente.
> Acho que o melhor seria fazer tudo em memória pois,
>gravando
>  em disco é inviável devido o tempo gasto...
>
>  Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet
>em
>  memória / Arrays
>
>  Alguém já passou por isto ou tem algum palpite ??
>  Estou em uma Arapuca Danada...
>  Se souberem de algum algorítimo tb. agradeceria...
>  Boa tarde pessoal...
>  [ ]'s
>
>
>
>
>
>
>  ___
>  Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
>concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]
>
>
>
>Yahoo! Grupos, um serviço oferecido por:
>
>
>
>
>--
>  Links do Yahoo! Grupos
>
>a.. Para visitar o site do seu grupo na web, acesse:
>http://br.groups.yahoo.com/group/delphi-br/
>
>b.. Para sair deste grupo, envie um e-mail para:
>[EMAIL PROTECTED]
>
>c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
>Serviço do Yahoo!.
>
>
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>
>
>  
>


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

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

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

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

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

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

 






Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Rogério
O problema é que este txt não possui delimitação por ponto e virgula, é
apenas por espaços delimitando as posições.

Ex.:
NomeData  Idade   Sexo   Endereco
Jose da Silva  01/01/1925  80MRua Hum, 25
Maria dos Santos   05/05/1962  43F Rua Dois, 13
Joaquim de Oliveira01/04/1928  77MRua Tres, 26
Joana Ferreira01/03/1972  33F  Rua Quatro, 12

Valeu !

- Original Message - 
From: "Andre - Yahoo" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, October 18, 2005 2:15 PM
Subject: Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?


vc pode usar o ADO para conectar neste arquivo txt, se ele tiver separado
por ponto e virgula tá morto o problema.
  - Original Message - 
  From: Rogério
  To: delphi-br@yahoogrupos.com.br
  Sent: Tuesday, October 18, 2005 1:18 PM
  Subject: [delphi-br] O que tem a MELHOR PERFORMANCE ?


  - Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou
mais)

  - Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
  Sexo, Endereco

  - Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para saber
as
  respectivas quantidades...

  - Detalhe: Preciso da melhor performance possível e disponível...
  Por isso descartei a Inserção em um BD e usar GroupBy
  Posteriormente.
 Acho que o melhor seria fazer tudo em memória pois,
gravando
  em disco é inviável devido o tempo gasto...

  Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet
em
  memória / Arrays

  Alguém já passou por isto ou tem algum palpite ??
  Estou em uma Arapuca Danada...
  Se souberem de algum algorítimo tb. agradeceria...
  Boa tarde pessoal...
  [ ]'s






  ___
  Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:




--
  Links do Yahoo! Grupos

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

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



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



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

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

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

Links do Yahoo! Grupos











___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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] Ajuda com DataSet

2005-10-18 Por tôpico José Henrique
Boa tarde,
 tenho um metodo num webservice, que retorna um dataset.
Até ai, tudo bem. Agora preciso criar um metodo neste webservice,
receba um dataset a faças as atualizações (insert, update, delete) no banco
de dados.
 Tem alguma mágica do FrameWork ou da Borland que faça isso, ou tenho que
fazer na mão?
 Obrigado

--
José Henrique (Zote)


[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

 






Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Rogério
Acho que não entendí tb, via ADO, como estaria morto o problema ??

- Original Message - 
From: "Andre - Yahoo" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, October 18, 2005 2:15 PM
Subject: Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?


vc pode usar o ADO para conectar neste arquivo txt, se ele tiver separado
por ponto e virgula tá morto o problema.
  - Original Message - 
  From: Rogério
  To: delphi-br@yahoogrupos.com.br
  Sent: Tuesday, October 18, 2005 1:18 PM
  Subject: [delphi-br] O que tem a MELHOR PERFORMANCE ?


  - Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou
mais)

  - Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
  Sexo, Endereco

  - Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para saber
as
  respectivas quantidades...

  - Detalhe: Preciso da melhor performance possível e disponível...
  Por isso descartei a Inserção em um BD e usar GroupBy
  Posteriormente.
 Acho que o melhor seria fazer tudo em memória pois,
gravando
  em disco é inviável devido o tempo gasto...

  Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet
em
  memória / Arrays

  Alguém já passou por isto ou tem algum palpite ??
  Estou em uma Arapuca Danada...
  Se souberem de algum algorítimo tb. agradeceria...
  Boa tarde pessoal...
  [ ]'s






  ___
  Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:




--
  Links do Yahoo! Grupos

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

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



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



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

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

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

Links do Yahoo! Grupos













___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Elazar
Eu vi algo na net que funcionava com Record´s...mas nao lembro direito
...muito menos ondeeo cara que tinha feito descrevia por ser  muito
rapido...

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Rogério
Enviada em: terça-feira, 18 de outubro de 2005 12:18
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] O que tem a MELHOR PERFORMANCE ?


- Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou
mais)

- Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
Sexo, Endereco

- Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para
saber as
respectivas quantidades...

- Detalhe: Preciso da melhor performance possível e disponível...
Por isso descartei a Inserção em um BD e usar GroupBy
Posteriormente.
   Acho que o melhor seria fazer tudo em memória pois,
gravando
em disco é inviável devido o tempo gasto...

Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet
em
memória / Arrays

Alguém já passou por isto ou tem algum palpite ??
Estou em uma Arapuca Danada...
Se souberem de algum algorítimo tb. agradeceria...
Boa tarde pessoal...
[ ]'s


  

  

___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons
e concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:
 



  _  

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

 






Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Rogério
Felipe, nuca ví nada parecido sobre FileHandle...
Se puder mandar o Exemplo, te agradeço muito..
Obrigado.

- Original Message - 
From: "Filipe Xavier Ramalho" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, October 18, 2005 2:43 PM
Subject: RES: [delphi-br] O que tem a MELHOR PERFORMANCE ?


Não use o TStringList de jeito nenhum, neste caso, você precisaria de uns 3
dias para abrir o arquivo.

Sugiro que você use um FileHandle, para abrir o arquivo e ler linha a linha.
Daí vai fazendo as tuas operações, sem precisar carregar ele todo na
memória. Se não souber como abrir o arquivo com um Handle, manda outro
e-mail que eu faço um exemplo e te mando...


Abraço,

Filipe
  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Rogério
  Enviada em: terça-feira, 18 de outubro de 2005 13:18
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] O que tem a MELHOR PERFORMANCE ?


  - Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou
mais)

  - Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
  Sexo, Endereco

  - Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para saber
as
  respectivas quantidades...

  - Detalhe: Preciso da melhor performance possível e disponível...
  Por isso descartei a Inserção em um BD e usar GroupBy
  Posteriormente.
 Acho que o melhor seria fazer tudo em memória pois,
gravando
  em disco é inviável devido o tempo gasto...

  Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet
em
  memória / Arrays

  Alguém já passou por isto ou tem algum palpite ??
  Estou em uma Arapuca Danada...
  Se souberem de algum algorítimo tb. agradeceria...
  Boa tarde pessoal...
  [ ]'s






  ___
  Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:




--
  Links do Yahoo! Grupos

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

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



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



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

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

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

Links do Yahoo! Grupos














___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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] selecionar colunas no grid

2005-10-18 Por tôpico Renato
Salve, Salve Companheiros

É o seguinte, oque estou querendo fazer parece ser simples, porém não 
tenho a mínima idéia como que faço.
Tenho um grid com várias colunas, gostaria de saber como faço para que 
num listview(ou outro compoentente não sei) onde eu tenha um checkbox 
para cada coluna do grid.
Assim o usuário poderá escolher quais campos ele quer visualizar no 
grid aquele momento. Dessa forma conforme o check do campo eu digo se o 
columns do grid será é visible ou não.
Como posso implementar isso??
sem mais

Grato pela atenção...





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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] 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] DbGrid Soma

2005-10-18 Por tôpico Rodrigo Mota
Oi galera,
 
Como faço para fazer calculo usando dbgrid??
 
 
Tipo assim:
 
Coluna 1 tenho o campo
- num_dias
Coluna 2 tenho o campo
- Salário_dias
 
 
a conta é essa salario_dias/30*num_dias como faço isso no dbgrid
 
abs,


[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

 





Re: [delphi-br] Select de campo blob no firebird

2005-10-18 Por tôpico Topolniak
Mano, espero que este material aí te ajude, também levei umas pancadas com 
like no BLOB...
Olhe a palabra CONTAINING no texto abaixo.
[]'s
Topolniak..

[firebase-br] Like em campo Blob
Jean R. Streleski jrs.net em uol.com.br
Segunda Março 28 17:33:17 BRT 2005

  a.. Mensagem anterior: [firebase-br] Like em campo Blob
  b.. Próxima mensagem: RES: [firebase-br] Like em campo Blob
  c.. Mensagens classificadas por: [ date ] [ thread ] [ subject ] [ 
author ]



Eduardo..

Show de bola!!!Funcionou com Containing. Tinha usado pouquissimas vezes 
esse comando q já tinha esquecido q ele existia. E sobre as aspas, foi 
pressa na digitação : )

Valew

Jean R. Streleski
Bauru / SP

  - Original Message - 
  From: eduardo
  To: lista em firebase.com.br
  Sent: Monday, March 28, 2005 5:25 PM
  Subject: Re: [firebase-br] Like em campo Blob


  > SELECT * FROM Venda Vda LEFT OUTER JOIN...
  > WHERE UPPER(Vda.Observacao) like UPPER("jean%") AND ...

  - O uso de " está incorreto. Utilize 'jean%' (isso no dialeto 3)
  - De qualquer forma, não dá para usar UPPER em BLOBs (pelo menos nos
  testes que fiz)
  - Uma boa maneira de se pesquisar em BLOBs é utilizar o CONTAINING que
  faz uma pesquisa muito rápida CASE INSENSITIVE, porém seria o mesmo que
  like '%jean%'
  - Me parece, pelos testes que fiz, que o STARTING WITH, quando em BLOBs,
  tanbém é CASE INSENSITIVE. Desta forma você deve alcançar seu objetivo 
com:

SELECT * FROM Venda Vda LEFT OUTER JOIN...
WHERE Vda.Observacao STARTING WITH 'jean'...
  OU
SELECT * FROM Venda Vda LEFT OUTER JOIN...
WHERE Vda.Observacao CONTAINING 'jean'...

  Obs.: Testei com FB 1.52 e DbExpress/D7 driver Interbase

  Espero ter ajudado

  []s Eduardo


  __
  FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
  Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
  Para consultar mensagens antigas: 
http://search.gmane.org/search.php?group=firebase




  a.. Mensagem anterior: [firebase-br] Like em campo Blob
  b.. Próxima mensagem: RES: [firebase-br] Like em campo Blob
  c.. Mensagens classificadas por: [ date ] [ thread ] [ subject ] [ 
author ]


Mais detalhes sobre a lista de discussão lista



-- 
< 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] Select de campo blob no firebird

2005-10-18 Por tôpico elsimarweb
Olá Lista

Bom sou novato em Delphi e to levando a maior surra para fazer um 
select com like do campo blob, me parece q tem q converter algo, mas 
não achei nada muito claro.
estou usando delphi 2005, firebird 1.5 com dbexpress e o campo é blob 
sub_type text.

Alguma dica ?

Valeu lista
Abraços
Elsimar




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

 





Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Andre - Yahoo
vc pode usar o ADO para conectar neste arquivo txt, se ele tiver separado por 
ponto e virgula tá morto o problema.
  - Original Message - 
  From: Rogério 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 18, 2005 1:18 PM
  Subject: [delphi-br] O que tem a MELHOR PERFORMANCE ?


  - Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou mais)

  - Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
  Sexo, Endereco

  - Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para saber as
  respectivas quantidades...

  - Detalhe: Preciso da melhor performance possível e disponível...
  Por isso descartei a Inserção em um BD e usar GroupBy
  Posteriormente.
 Acho que o melhor seria fazer tudo em memória pois, gravando
  em disco é inviável devido o tempo gasto...

  Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet em
  memória / Arrays

  Alguém já passou por isto ou tem algum palpite ??
  Estou em uma Arapuca Danada...
  Se souberem de algum algorítimo tb. agradeceria...
  Boa tarde pessoal...
  [ ]'s





  
  ___ 
  Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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



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

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

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

<*> 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] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Filipe Xavier Ramalho
Não use o TStringList de jeito nenhum, neste caso, você precisaria de uns 3
dias para abrir o arquivo.

Sugiro que você use um FileHandle, para abrir o arquivo e ler linha a linha.
Daí vai fazendo as tuas operações, sem precisar carregar ele todo na
memória. Se não souber como abrir o arquivo com um Handle, manda outro
e-mail que eu faço um exemplo e te mando...


Abraço,

Filipe
  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Rogério
  Enviada em: terça-feira, 18 de outubro de 2005 13:18
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] O que tem a MELHOR PERFORMANCE ?


  - Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou
mais)

  - Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
  Sexo, Endereco

  - Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para saber
as
  respectivas quantidades...

  - Detalhe: Preciso da melhor performance possível e disponível...
  Por isso descartei a Inserção em um BD e usar GroupBy
  Posteriormente.
 Acho que o melhor seria fazer tudo em memória pois,
gravando
  em disco é inviável devido o tempo gasto...

  Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet
em
  memória / Arrays

  Alguém já passou por isto ou tem algum palpite ??
  Estou em uma Arapuca Danada...
  Se souberem de algum algorítimo tb. agradeceria...
  Boa tarde pessoal...
  [ ]'s






  ___
  Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:




--
  Links do Yahoo! Grupos

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

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



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



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

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

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

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

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

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

 






Re: [delphi-br] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico SERGIO RICARDO ANDRADE DE CARVALHO
Colega,

Voce vai precisar de bastante memória heim!!!
Eu utilizaria o ClientDataSet em memória.

Atenciosamente,

Sérgio Ricardo Andrade de Carvalho
Divisão de Sistemas Administrativos e de Apoio
(11) 3012-1024  

[EMAIL PROTECTED]
http://www.trf3.gov.br

>>> [EMAIL PROTECTED] 10/18/05 12:18 pm >>>
- Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou mais)

- Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
Sexo, Endereco

- Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para saber as
respectivas quantidades...

- Detalhe: Preciso da melhor performance possível e disponível...
Por isso descartei a Inserção em um BD e usar GroupBy
Posteriormente.
   Acho que o melhor seria fazer tudo em memória pois, gravando
em disco é inviável devido o tempo gasto...

Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet em
memória / Arrays

Alguém já passou por isto ou tem algum palpite ??
Estou em uma Arapuca Danada...
Se souberem de algum algorítimo tb. agradeceria...
Boa tarde pessoal...
[ ]'s


  

  

___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED] 



Yahoo! Grupos, um serviço oferecido por: 
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!. 




-- 
< 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] Exportação para Excel escolhendo os campos

2005-10-18 Por tôpico Eduardo Silva ®
Galera, tenho uma rotina de exportação para  Excel que funciona belezinha.

Eu gostaria de saber como fazer para, colocar uma tela com dois list box e,
no primeiro ser preenchido com o nome dos campos da tabela e no segundo
ficar os campos que eu selecionar no primeiro, e só a partir dai gerar uma
planilha do excel com os campos da tabela que eu escolher, alguem sabe como
fazer isso e poderia me dar uma mão?

Obrigado.

~\\|//~
-(o o)-
o--oOOOo--(_)--oOOOo-o
||
|   Eduardo de Almeida Silva |
|   Câmara Municipal de Lençóis Paulista |
|  [EMAIL PROTECTED]  -   (14)3263-0326   |
||
|.oooO   Oooo.   |
o(   )---(   )---o
  \ ( ) /
   \_)   (_/



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

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] 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] O que tem a MELHOR PERFORMANCE ?

2005-10-18 Por tôpico Rogério
- Preciso Ler um .Txt com 2.000.000 ou + (dois milhoes de registros ou mais)

- Este .Txt está dividido em 5 colunas: Nome, Data de Nascimento, Idade,
Sexo, Endereco

- Consolidar este .Txt por Data de Nascimento, Idade e Sexo... para saber as
respectivas quantidades...

- Detalhe: Preciso da melhor performance possível e disponível...
Por isso descartei a Inserção em um BD e usar GroupBy
Posteriormente.
   Acho que o melhor seria fazer tudo em memória pois, gravando
em disco é inviável devido o tempo gasto...

Não sei como ou, qual Tecnologia utilizar !! TStringList / ClientDataSet em
memória / Arrays

Alguém já passou por isto ou tem algum palpite ??
Estou em uma Arapuca Danada...
Se souberem de algum algorítimo tb. agradeceria...
Boa tarde pessoal...
[ ]'s






___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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] Impressoras e Portas

2005-10-18 Por tôpico Leandro Carbonera

Alguem seberia me dizer como posso fazer para pegar a lista de impressoras e
respectivas portas instaladas no micro


Att.

Leandro Carbonera
Suporte Técnico - RBR Informática

Fone: 54 343 1788
[EMAIL PROTECTED]
www.rbrinformatica.com.br






___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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] Recuperar Banco Firebird

2005-10-18 Por tôpico Levi Ribeiro de Freitas
Pessoal,
 
Alguém tem alguma ferramenta para recuperar um banco firebird, acredito que
o meu está com problema, visto que uma trigger está falhando.
As vezes executa, as vezes não.
 
Vejam o código:
AS
DECLARE VARIABLE FILLER VARCHAR (2) CHARACTER SET WIN1252;
DECLARE VARIABLE FILLER1 VARCHAR (30) CHARACTER SET WIN1252;
 
BEGIN
 
FILLER = ' ';
 
//Esta parte aqui não executa de jeito nenhum, verifica estas condicoes de
jeito nenhum
if ((new.situacao = 2 and old.situacao = 2) and (New.DT_NF <> Old.DT_NF) or
(New.Peso_NF <> Old.Peso_NF) or (New.Valor_NF <> Old.Valor_NF) or
(New.num_nf <> Old.num_nf)) then
   begin
   FILLER1 = 'MATERIAL DEVOLVIDO';
   INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR,
   TEXTO, DESCRICAO, USR_CAD,
   DT_CAD, DESCRICAO1, DESCRICAO2, STATUS)
   VALUES(11, 'RAT - ' || :FILLER1 || ' - ' || cast(New.peso_nf as
varchar(8)) || 'KG' , SUBSTRING( NEW.codigo FROM 1 FOR 4) || '/' ||
SUBSTRING( NEW.codigo FROM 5 FOR 2),
   NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente,
   NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao, 0);
   end
//Até aqui.
 
//Daqui pra frente executa normalmente.
 
if (new.situacao = 1 and old.situacao = 1 and ((New.cod_cli <> Old.cod_cli)
or (New.desc_reclama <> Old.desc_reclama))) then
   begin
   INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR,
   TEXTO, DESCRICAO, USR_CAD,
   DT_CAD, STATUS)
   VALUES(1, 'ALTERAÇÃO DE SAT', SUBSTRING( NEW.codigo FROM 1 FOR 4) || '/'
|| SUBSTRING( NEW.codigo FROM 5 FOR 2),
   NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente,
   NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, 0);
   end
 
if (new.situacao = 2 and old.situacao = 1) then
   begin
   if (new.procedente = 1) then
  begin
  FILLER1 = 'PROCEDENTE';
  INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR,
  TEXTO, DESCRICAO, USR_CAD,
  DT_CAD, DESCRICAO1, DESCRICAO2, STATUS)
  VALUES(2, 'INCLUSÃO DE RAT - ' || :FILLER1 , SUBSTRING( NEW.codigo
FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2),
  NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente,
  NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao,
0);
  end
   if (new.procedente = 2) then
  begin
  FILLER1 = 'IMPROCEDENTE';
  INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR,
  TEXTO, DESCRICAO, USR_CAD,
  DT_CAD, DESCRICAO1, DESCRICAO2, STATUS)
  VALUES(3, 'INCLUSÃO DE RAT - ' || :FILLER1 , SUBSTRING( NEW.codigo
FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2),
  NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente,
  NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao,
0);
  end
   end
 
if ((new.situacao = 2 and old.situacao = 2) and (New.laudo <> Old.laudo) or
(New.disposicao <> Old.disposicao) or (New.procedente <> Old.procedente) or
(New.devolucao <> Old.devolucao)) then
   begin
   if (new.procedente = 1) then
  begin
  FILLER1 = 'PROCEDENTE';
  INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR,
  TEXTO, DESCRICAO, USR_CAD,
  DT_CAD, DESCRICAO1, DESCRICAO2, STATUS)
  VALUES(2, 'ALTERAÇÃO DE RAT - ' || :FILLER1 , SUBSTRING( NEW.codigo
FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2),
  NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente,
  NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao,
0);
  end
   if (new.procedente = 2) then
  begin
  FILLER1 = 'IMPROCEDENTE';
  INSERT INTO tbemail (ID_TIPO, INFORMACAO, DOCUMENTO_CHAR,
  TEXTO, DESCRICAO, USR_CAD,
  DT_CAD, DESCRICAO1, DESCRICAO2, STATUS)
  VALUES(3, 'ALTERAÇÃO DE RAT - ' || :FILLER1 , SUBSTRING( NEW.codigo
FROM 1 FOR 4) || '/' || SUBSTRING( NEW.codigo FROM 5 FOR 2),
  NEW.tipo_id || :FILLER || New.cod_cli || :FILLER || New.cliente,
  NEW.desc_reclama, NEW.usr_ed, NEW.dt_ed, New.laudo, New.disposicao,
0);
  end
   end
 
END
 
Atenciosamente,
 
Levi Ribeiro de Freitas
Programador de Computadores
Tel.: 55 12 3644-2119 / 9724-8804
Email:   [EMAIL PROTECTED]


[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] [OFF TOPIC] Software para Automação de Lo ja

2005-10-18 Por tôpico Romario (Listas)
Senhores(as),

Tenho um cliente que está querendo comprar um software para automatizar 
e interligar suas três lojas e me perguntou se eu conhecia alguma 
empresa que tivesse esse tipo de software.

As exigências:

1) Banco de Dados Firebird

2) Sistema Modularizado

3) Software já pronto para ser implantado

4) Suporte técnico especializado no Espírito Santo

Alguém se habilita?

Se houver interesse, favor entrar em contato em particular através do 
meu e-mail (rbr_vix_es arroba yahoo ponto com ponto br) para que eu 
possa dar informações mais detalhadas da empresa e disponibilizar os 
telefones e endereços de contato.

P.S.: Não responderei as mensagens enviadas para a lista.

Sds,

Romario





___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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

 





Re: [delphi-br] selecionar 10 ultimos registros de 1 tabela

2005-10-18 Por tôpico Felipe Vitta
aderson rezende escreveu:

>amigos
> como faço para selecionar os 10 ultimos registros de uma tabela via comando 
> SQL ???
>
>   
>-
> Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
> concorre a mais de 500 prêmios! Participe!
>
>[As partes desta mensagem que não continham texto foram removidas]
>
>
>
>  
>
SELECT FIRST(10) * FROM TABLE ORDER BY INDICE DESC

no lugar do * coloque os campos ou deixe o * para todos.

no lugar de indice coloque a sua chave primaria ou o campo que ira 
definir quem sao os ultimos registros... o DESC vai fazer a ordenacao 
descendente.

com o First(10) vc pega os 10 primeiros registros e como vc esta 
ordenando de baixo pra cima vc tera os 10 ultimos...

ficou claro? ou falei mto confuso...


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

 






Re: RES: [delphi-br] Format

2005-10-18 Por tôpico Emerson Moreno
Faça assim No Lugar de FloatToStr use FormatFloat('#,##0.00', ValorReal)

Onde tem valor real se for do tipo string tera que converter para float

Em 18/10/05, Levi Ribeiro de Freitas<[EMAIL PROTECTED]> escreveu:
> Em vez de floatstr use formafloat(',0.00, value)
>
> levi
>
>   _
>
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
> nome de info.desenvolvimento
> Enviada em: terça-feira, 18 de outubro de 2005 10:57
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Format
>
>
> BOM DIA A TODOS
>
> Estou com pequeno problema. Quero gerar uma mensagem que informe na tela os
> valores de retenção e base de calculo com a formatação coreta da moeda.
> Exemplo:
> Retenção R$: 167,20
> Base R$: 3.800,00
>
> Esta acontecendo que os formatos estão saindo desta maneira:
> Retenção R$: 167,20
> Base R$: 3800
> CÓDIGO:
>   Application.MessageBox(  PansiChar(
> DataModulo.TREGRA.FieldByName('DESCRICAO').AsString+#13+ ' Valor de Retenção
> R$: ' + floattostr(RETENCAO)+ #13+' Valor de Base R$: ' +
> floattostr(BASE)),'Aviso', mb_iconExclamation);
>
> Onde está o erro?
>
>
>
> [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:
>
> 
>
>
>   _
>
> 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] ou
> [EMAIL PROTECTED]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
> 
> 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!.


--
[]'s

Emerson Moreno
O grande sábio aprende por ensinar!


-- 
< 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] selecionar 10 ultimos registros de 1 tabela

2005-10-18 Por tôpico aderson rezende
amigos
 como faço para selecionar os 10 ultimos registros de uma tabela via comando 
SQL ???


-
 Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe!

[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

 





Re: [delphi-br] Ajuda

2005-10-18 Por tôpico Wilson Valdevite
Marcio, obrigado pela ajuda, e me desculpe pelo erro bobo, pois estou 
trabalhando apenas com uma mão, a outra está engessada e não estou escrevendo 
muito bem

  - Original Message - 
  From: Marcio Amorim de Araujo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 18, 2005 11:07 AM
  Subject: RES: [delphi-br] Ajuda


  Verificar drive (só um detalhe: drive é o hardware; driver é o programa que 
controla o hardware):



  function TemDiscoNoDriveA : Boolean;

  var

OldMode : Integer;

  begin

OldMode := SetErrorMode(SEM_FAILCRITICALERRORS);

try

  Result := DiskFree(1) >= 0;

finally

  SetErrorMode(OldMode);

end;

  end;



  Formata disco:



  SHFormatDrive(Handle,0,2,1);





  Márcio.







  -Mensagem original-
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Wilson 
Valdevite
  Enviada em: terça-feira, 18 de outubro de 2005 09:30
  Para: delphi-br@yahoogrupos.com.br
  Assunto: [delphi-br] Ajuda



  Pessoal, preciso de 2 rotinas, uma para verificar se existe diskete ni driver 
A e outra para formatar o mesmo.
  Se alguem tiver um link ou qq coisa q fale sobre esses assuntos agradeço.
  Desculpem esse pedido mas perdi todo o material que tinha sobre isso e não 
estou conseguindo encontrar.
--

  No virus found in this outgoing message.
  Checked by AVG Anti-Virus.
  Version: 7.0.344 / Virus Database: 267.12.2/140 - Release Date: 18/10/2005


  [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:

   



  

  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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 




--


  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.344 / Virus Database: 267.12.2/140 - Release Date: 18/10/2005

  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.2/140 - Release Date: 18/10/2005


[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

 






Re: [delphi-br] Re: TStringList é em Memória

2005-10-18 Por tôpico Rogério
Minha máq. tem 512 de Ram, gostaria de saber pois, o meu
objetivo em utilizart o TStringList é velocidade e sei que em
memória é muito mais rápido do que físicamente.
Se não for o caso, prefiro utilizar os Arrays convencionais
[ ]'s

- Original Message - 
From: "Celio Ricardo" <[EMAIL PROTECTED]>
To: 
Sent: Tuesday, October 18, 2005 1:59 AM
Subject: [delphi-br] Re: TStringList é em Memória


Bom, na teoria seria quanto de memoria sua maquina tem,
mas na pratica, nao tenho certeza, como ele usa um numero inteiro na
propriedade lines, acho que deva ser a capacidade de um numero inteiro.


--- Em delphi-br@yahoogrupos.com.br, Rogério <[EMAIL PROTECTED]>
escreveu
> Pessoal,
> Alguém sabe qual é o limite de tamanho/capacidade do TStringList, para
> carregar um txt ?
> Tenho um txt com 2.000.000 de linhas que preciso carregar nele, será
que ele
> aguenta ?
> Ainda,
> Quando carrego uma TStringList, tudo fica em cache na Mem Ram, assim
como os
> Arrays ?
>

> --
> Vejam a rotina abaixo:
>   procedure CarregaArquivo;
>   var
> Linhas : TStringList;
> i : Integer;
>   begin
> Linhas := TStringList.Create;
> Linhas.LoadFromFile('c:\arquivo.txt');
>
> // Aqui é Somente um exemplo de como ver o conteúdo linha à
linha
> for i :=0 to Linhas.Count - 1 do
>  begin
> form1.caption := Linhas[i];
>  end;
> linhas.Free;
>   end;
>
> Obrigado,
> []'s
>
>
>
>
>
>
> ___
> Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula
cupons e concorre a mais de 500 prêmios! Participe!
http://yahoo.fbiz.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] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos














___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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

 






Re: [delphi-br] [Urgente] Erro no asp.net

2005-10-18 Por tôpico Rafael Jorge
simplesmente eu coloco os compomentes.
as vezes eles nao aparecem as vezes eles ficam alinhados como eu disse.
eu nao programo nada!
so coloco os compomentes e só.

Em 17/10/05, Daniel Polistchuck<[EMAIL PROTECTED]> escreveu:
> Pode me mandar um passo-a-passo para reproduzir o problema?
>
> []s
>
> Daniel Polistchuck
> Consulting Services Manager
> Borland Software Corporation
> Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
> [EMAIL PROTECTED] - www.borland.com.br 
>
> A Borland Software Corporation é líder global em soluções independentes de 
> plataforma para o Software Delivery Optimization, auxiliando nossos clientes 
> a resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, 
> para maximizar o valor do negócio de seu software
>
>
>
> 
>
> From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
> Rafael Jorge
> Sent: Monday, October 17, 2005 2:04 PM
> To: delphi-br
> Subject: [delphi-br] [Urgente] Erro no asp.net
>
>
> nao sei pq mas vi que era so na minha maquina que isso acontece:
> quando utilizo compomentes do web controls nao importa o que eu faça
> como por exemplo clickar no botao absolution position para deixar eu
> movimentar os compomentes. quando eu copilo estes compomentes sempre
> aparece todos alinhados a esquerda e um ao lado do outro. ja quando eu
> utilizo os html elementos eu consigo compilar e todos estao onde
> posiciono.
> obs:
> 1 - so acontece na minha maquina comparado com as outras que testei
> 2 - eu tenho os 3 updates + o nao oficila
> 3 - eu tenho o framework.net 1.1 e o 2.0 (ele aparece no painel de controle)
>
> socorro to precisando resolver isso urgente!
>
> --
> Rafael jorge alves
> www.itrecife.com -> para verem meus artigos e trabalhos
> t+
>
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>  
>
> 
>
> Links do Yahoo! Grupos
>
>
> *   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] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>


--
Rafael jorge alves
www.itrecife.com -> para verem meus artigos e trabalhos
t+


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

 






Re: [delphi-br] [Urgente] Erro no asp.net

2005-10-18 Por tôpico Rafael Jorge
ops. esqueci de dizer que em tempo de disgner eles estao la corretamente.
so quando copilo e que da essa bronca.

Em 18/10/05, Rafael Jorge<[EMAIL PROTECTED]> escreveu:
> simplesmente eu coloco os compomentes.
> as vezes eles nao aparecem as vezes eles ficam alinhados como eu disse.
> eu nao programo nada!
> so coloco os compomentes e só.
>
> Em 17/10/05, Daniel Polistchuck<[EMAIL PROTECTED]> escreveu:
> > Pode me mandar um passo-a-passo para reproduzir o problema?
> >
> > []s
> >
> > Daniel Polistchuck
> > Consulting Services Manager
> > Borland Software Corporation
> > Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947
> > [EMAIL PROTECTED] - www.borland.com.br 
> >
> > A Borland Software Corporation é líder global em soluções independentes de 
> > plataforma para o Software Delivery Optimization, auxiliando nossos 
> > clientes a resolverem as restrições no desenvolvimento de aplicações nos 
> > dias de hoje, para maximizar o valor do negócio de seu software
> >
> >
> >
> > 
> >
> > From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
> > Rafael Jorge
> > Sent: Monday, October 17, 2005 2:04 PM
> > To: delphi-br
> > Subject: [delphi-br] [Urgente] Erro no asp.net
> >
> >
> > nao sei pq mas vi que era so na minha maquina que isso acontece:
> > quando utilizo compomentes do web controls nao importa o que eu faça
> > como por exemplo clickar no botao absolution position para deixar eu
> > movimentar os compomentes. quando eu copilo estes compomentes sempre
> > aparece todos alinhados a esquerda e um ao lado do outro. ja quando eu
> > utilizo os html elementos eu consigo compilar e todos estao onde
> > posiciono.
> > obs:
> > 1 - so acontece na minha maquina comparado com as outras que testei
> > 2 - eu tenho os 3 updates + o nao oficila
> > 3 - eu tenho o framework.net 1.1 e o 2.0 (ele aparece no painel de controle)
> >
> > socorro to precisando resolver isso urgente!
> >
> > --
> > Rafael jorge alves
> > www.itrecife.com -> para verem meus artigos e trabalhos
> > t+
> >
> >
> > --
> > < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
> >
> > Para ver as mensagens antigas, acesse:
> > http://br.groups.yahoo.com/group/delphi-br/messages
> >
> > Para falar com o moderador, envie um e-mail para:
> > [EMAIL PROTECTED] ou [EMAIL PROTECTED]
> >
> >
> >
> >
> > Yahoo! Grupos, um serviço oferecido por:
> >  
> >
> > 
> >
> > Links do Yahoo! Grupos
> >
> >
> > *   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] ou [EMAIL PROTECTED]
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
>
>
> --
> Rafael jorge alves
> www.itrecife.com -> para verem meus artigos e trabalhos
> t+
>


--
Rafael jorge alves
www.itrecife.com -> para verem meus artigos e trabalhos
t+


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

 






Re: [delphi-br] Format

2005-10-18 Por tôpico Thiago Oliveira
Em vez de fazer assim:

floattostr(BASE)

Faça assim:

CurrtoStrF(BASE,ffNumber,2)

É isso.

Valeu.
Thiago


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

2005-10-18 Por tôpico Marcio Amorim de Araujo
Faltou a function de formatação...

 

function SHFormatDrive(Wnd : hWnd; Drive : integer;

  Size : uint; Action : integer) : integer; stdcall;

  external 'shell32' name 'SHFormatDrive';

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  SHFormatDrive(Handle,0,2,1);

end;

 

Márcio

 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Marcio 
Amorim de Araujo
Enviada em: terça-feira, 18 de outubro de 2005 11:08
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Ajuda

 

Verificar drive (só um detalhe: drive é o hardware; driver é o programa que 
controla o hardware):



function TemDiscoNoDriveA : Boolean;

var

  OldMode : Integer;

begin

  OldMode := SetErrorMode(SEM_FAILCRITICALERRORS);

  try

Result := DiskFree(1) >= 0;

  finally

SetErrorMode(OldMode);

  end;

end;



Formata disco:



SHFormatDrive(Handle,0,2,1);





Márcio.







-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Wilson 
Valdevite
Enviada em: terça-feira, 18 de outubro de 2005 09:30
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda



Pessoal, preciso de 2 rotinas, uma para verificar se existe diskete ni driver A 
e outra para formatar o mesmo.
Se alguem tiver um link ou qq coisa q fale sobre esses assuntos agradeço.
Desculpem esse pedido mas perdi todo o material que tinha sobre isso e não 
estou conseguindo encontrar.
  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.2/140 - Release Date: 18/10/2005


[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:

 





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] ou [EMAIL PROTECTED]





Yahoo! Grupos, um serviço oferecido por:

  

 



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

2005-10-18 Por tôpico Marcio Amorim de Araujo
Verificar drive (só um detalhe: drive é o hardware; driver é o programa que 
controla o hardware):

 

function TemDiscoNoDriveA : Boolean;

var

  OldMode : Integer;

begin

  OldMode := SetErrorMode(SEM_FAILCRITICALERRORS);

  try

Result := DiskFree(1) >= 0;

  finally

SetErrorMode(OldMode);

  end;

end;

 

Formata disco:

 

SHFormatDrive(Handle,0,2,1);

 

 

Márcio.

 

 

 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Wilson 
Valdevite
Enviada em: terça-feira, 18 de outubro de 2005 09:30
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Ajuda

 

Pessoal, preciso de 2 rotinas, uma para verificar se existe diskete ni driver A 
e outra para formatar o mesmo.
Se alguem tiver um link ou qq coisa q fale sobre esses assuntos agradeço.
Desculpem esse pedido mas perdi todo o material que tinha sobre isso e não 
estou conseguindo encontrar.
  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.2/140 - Release Date: 18/10/2005


[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:

  

 



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

2005-10-18 Por tôpico Levi Ribeiro de Freitas
Em vez de floatstr use formafloat(',0.00, value)
 
levi

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de info.desenvolvimento
Enviada em: terça-feira, 18 de outubro de 2005 10:57
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Format


BOM DIA A TODOS

Estou com pequeno problema. Quero gerar uma mensagem que informe na tela os
valores de retenção e base de calculo com a formatação coreta da moeda.
Exemplo:
Retenção R$: 167,20
Base R$: 3.800,00

Esta acontecendo que os formatos estão saindo desta maneira:
Retenção R$: 167,20
Base R$: 3800
CÓDIGO:
  Application.MessageBox(  PansiChar(
DataModulo.TREGRA.FieldByName('DESCRICAO').AsString+#13+ ' Valor de Retenção
R$: ' + floattostr(RETENCAO)+ #13+' Valor de Base R$: ' +
floattostr(BASE)),'Aviso', mb_iconExclamation);

Onde está o erro?



[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:
  


  _  

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

2005-10-18 Por tôpico info.desenvolvimento
BOM DIA A TODOS

Estou com pequeno problema. Quero gerar uma mensagem que informe na tela os 
valores de retenção e base de calculo com a formatação coreta da moeda.
Exemplo:
Retenção R$: 167,20
Base R$: 3.800,00

Esta acontecendo que os formatos estão saindo desta maneira:
Retenção R$: 167,20
Base R$: 3800
CÓDIGO:
  Application.MessageBox(  PansiChar( 
DataModulo.TREGRA.FieldByName('DESCRICAO').AsString+#13+ ' Valor de Retenção 
R$: ' + floattostr(RETENCAO)+ #13+' Valor de Base R$: ' + 
floattostr(BASE)),'Aviso', mb_iconExclamation);

Onde está o erro?



[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: RES: [delphi-br] OFF Topic - BorCon 2005

2005-10-18 Por tôpico Walter Alves Chagas Junior
Mas depende do lugar né Romario.

Ir a uma borcon não precisa de tanto. Tá certo que ir lá vestido de FUBU,
bermuda e chinelo ou de com camisa surrada não é uma boa estratégia também,
mas dá pra ir num traje normal que você usaria pra trabalhar. E neste calor
que anda fazendo meu, eu to até passando mal de ver alguém de terno.

BH tem mais de um mes que não chove aqui, pra vocês terem uma ideia.

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Romario (Listas)
Enviada em: terça-feira, 18 de outubro de 2005 10:02
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] OFF Topic - BorCon 2005


"Um homem elegante não sente frio e nem calor".

No mundo dos negócios a aparência pode até enganar, mas uma primeira 
impressão ainda conta bastante. ;-)

Sds,

Romario




Walter Alves Chagas Junior escreveu:
> Terno e gravata num "Frio" destes???
> 
> []s
> 
> Walter Alves Chagas Junior
> Projeto e desenvolvimento
> Telemont Engenharia de telecomunicações
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
> 
> 
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> nome de Paulo Eduardo
> Enviada em: terça-feira, 18 de outubro de 2005 09:14
> Para: delphi_box; delphi-advanced; delphi-br; delphi-mysql; delphi-total
> Assunto: [delphi-br] OFF Topic - BorCon 2005
> Prioridade: Alta
> 
> 
> Bom dia Delphinianos deste Brasilis!!!
> 
> Sou virgem em BorCon, por isso tenho umas dúvidas!!
> Hospedagem barata perto do local
> Eles fornecem material para anotação???
> Tem certificado das palestras e mini-cursos
> Alimentação perto???
> Terno e gravata, ou só um social fino?? 
> 
> Esclarecendo sou só um pobre programador do interior, desempregado!!!
> 
> Obrigaduuu!!
> Paulo Eduardo





___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] ou [EMAIL PROTECTED]
 
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] 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

 






Re: [delphi-br] OFF Topic - BorCon 2005

2005-10-18 Por tôpico Paulo Eduardo
Respondendo ao Adreano Lanusse!!

Sou da terra do maestro Fegô Camargo, e sua filhinha gracinha Hebe, do homem 
mais visionário do inicio do século passado - Monteiro Lobato, do Boa Noite 
mais famoso do Brasil - Cid Moreira, e do homem que inventou o cinema no Brasil 
- Amacio Mazzaropi, do rapaz caipira pira pora - Renato Teixeira, terra que já 
teve o melhor café do mundo, das primeiras industrias texteis do país, e que um 
dia foi pousada dos Bandeirantes que desbravaram nossa terra, terra da onde sai 
o carro mais brasileiro o GOL, e os motores dos carros da Ford, as peças para 
mega usinas hidrelétricas e mega navios da Alstom, onde são feitos os 
celulares, televisores, Dvds e etc da LG, e que um dia se Deus quiser e os 
políticos e empresários permitirem teremos o melhor autodromo do país, Eu sou é 
de Taubaté

Paulo Eduardo
(ancioso pela BorCon2005)
  - Original Message - 
  From: Andreano Lanusse 
  To: delphi-br@yahoogrupos.com.br ; delphi_box ; delphi-advanced ; 
delphi-mysql ; delphi-total 
  Sent: Tuesday, October 18, 2005 9:46 AM
  Subject: RES: [delphi-br] OFF Topic - BorCon 2005


  Olá Eduardo,

  seja bem vindo ao Borcon.

  Vamos começar pelo terno, esquece, vá super a vontade, teremos muitas 
atividades no BorCon e de terno vai ficar complicado.
  Alimentação não se preocupe, o BorCon esse ano paga o almoço, deixa eu 
explicar, você irá almoçar na faixa no próprio BorCon, fora os coffe-break.
  Certificados de participação do Borcon, é só você solicitar na semana 
seguinte ao BorCon que enviamos.
  Você irá receber a mochila com todo o material para anotação e outras coisas 
mais.
  Tem vários hoteis próximos ao BorCon, no 
http://info.borland.com.br/borcon/local.htm tem uma lista deles,  o Formule 1 é 
o mais barato R$ 63,00 e é bem perto, o hotel é novinho super bom..

  De que ligar do interior você é?

  Abraços,
  Andreano Lanusse
  System Engineer
  Borland Latin America
  Tel: +55 (11) 2165.8089 / Mobile: +55 (11) 8196.5912
  [EMAIL PROTECTED]   - www.borland.com.br 
http://www.borland.com.br/> 



  A Borland Software é líder global em soluções independentes de plataforma 
para o Software Delivery Optimization, auxiliando nossos clientes a resolverem 
as restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar 
o valor do negócio de seu software.


  

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo 
Eduardo
  Enviada em: terça-feira, 18 de outubro de 2005 09:14
  Para: delphi_box; delphi-advanced; delphi-br; delphi-mysql; delphi-total
  Assunto: [delphi-br] OFF Topic - BorCon 2005
  Prioridade: Alta


  Bom dia Delphinianos deste Brasilis!!!

  Sou virgem em BorCon, por isso tenho umas dúvidas!!
  Hospedagem barata perto do local
  Eles fornecem material para anotação???
  Tem certificado das palestras e mini-cursos
  Alimentação perto???
  Terno e gravata, ou só um social fino?? 

  Esclarecendo sou só um pobre programador do interior, desempregado!!!

  Obrigaduuu!!
  Paulo Eduardo

  [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:  
     

  

  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] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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



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

Para ver as mensagens antigas, acesse:
 http://br.g

Re: RES: [delphi-br] OFF Topic - BorCon 2005

2005-10-18 Por tôpico Romario (Listas)
"Um homem elegante não sente frio e nem calor".

No mundo dos negócios a aparência pode até enganar, mas uma primeira 
impressão ainda conta bastante. ;-)

Sds,

Romario




Walter Alves Chagas Junior escreveu:
> Terno e gravata num "Frio" destes???
> 
> []s
> 
> Walter Alves Chagas Junior
> Projeto e desenvolvimento
> Telemont Engenharia de telecomunicações
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
> 
> 
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> nome de Paulo Eduardo
> Enviada em: terça-feira, 18 de outubro de 2005 09:14
> Para: delphi_box; delphi-advanced; delphi-br; delphi-mysql; delphi-total
> Assunto: [delphi-br] OFF Topic - BorCon 2005
> Prioridade: Alta
> 
> 
> Bom dia Delphinianos deste Brasilis!!!
> 
> Sou virgem em BorCon, por isso tenho umas dúvidas!!
> Hospedagem barata perto do local
> Eles fornecem material para anotação???
> Tem certificado das palestras e mini-cursos
> Alimentação perto???
> Terno e gravata, ou só um social fino?? 
> 
> Esclarecendo sou só um pobre programador do interior, desempregado!!!
> 
> Obrigaduuu!!
> Paulo Eduardo





___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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] Erro em Thread

2005-10-18 Por tôpico Edmilson Pontes
Colegas,
Estou com um problema 'antigo' é o seguinte:
Tenho uma unit e nela algumas threads.
Quando peço para executar uma ShowMessage ou
MessageDlg dentro de algum procedimento da thread
sempre ocorre o erro:
"EOSERROR with message System Error code: 1400. O
identificador da janela é inválido."
O erro ocorre mesmo se for um procedimento externo da
Thread que está executando a message.

Sabem como resolvo isso?

Agradeço a todos,

Edmilson Pontes








___ 
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e 
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.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] 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: RES: [delphi-br] Importar dados de arquivo DAT COBOL

2005-10-18 Por tôpico Cícero
em PVT [EMAIL PROTECTED]

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Alan Silveira
Enviada em: segunda-feira, 17 de outubro de 2005 18:03
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importar dados de arquivo DAT COBOL


Amigo se puder também gostaria desta ferramenta, já passei por esse problema
e não consegui encontrar nenhuma ferramenta pra isso... acabei por fazer uma
espécie de trapaça com o programa, gerei relatórios em txt e fiz um programa
pra identificar onde começava o texto de cada campo e onde terminava, foram
2 meses de trabalho pra converter tudo...

Obrigado!

Cícero <[EMAIL PROTECTED]> escreveu:
Me contacte em PVT [EMAIL PROTECTED] Tenho uma ferramenta que um amigo da
lista me enviou..

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Ailton Branco
Enviada em: sexta-feira, 14 de outubro de 2005 16:06
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Importar dados de arquivo DAT COBOL


Tenho um arquivo de um programa cobol e tenho que bucar os dados dentro dele
para importacao... o programador é de outra empresa e nao quer exportar para
texto ou qualquer outra tipo... gostaria de saber se tem alguma ferramenta
que posso exportar estes dados para texto, excel ou access.



agradeço a atenção

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


-
 Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe!

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



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

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

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

Links do Yahoo! Grupos










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

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

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

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

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

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

 






[delphi-br] Ajuda

2005-10-18 Por tôpico Wilson Valdevite
Pessoal, preciso de 2 rotinas, uma para verificar se existe diskete ni driver A 
e outra para formatar o mesmo.
Se alguem tiver um link ou qq coisa q fale sobre esses assuntos agradeço.
Desculpem esse pedido mas perdi todo o material que tinha sobre isso e não 
estou conseguindo encontrar.
  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.2/140 - Release Date: 18/10/2005


[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] OFF Topic - BorCon 2005

2005-10-18 Por tôpico Andreano Lanusse
Olá Eduardo,
 
seja bem vindo ao Borcon.
 
Vamos começar pelo terno, esquece, vá super a vontade, teremos muitas 
atividades no BorCon e de terno vai ficar complicado.
Alimentação não se preocupe, o BorCon esse ano paga o almoço, deixa eu 
explicar, você irá almoçar na faixa no próprio BorCon, fora os coffe-break.
Certificados de participação do Borcon, é só você solicitar na semana seguinte 
ao BorCon que enviamos.
Você irá receber a mochila com todo o material para anotação e outras coisas 
mais.
Tem vários hoteis próximos ao BorCon, no 
http://info.borland.com.br/borcon/local.htm tem uma lista deles,  o Formule 1 é 
o mais barato R$ 63,00 e é bem perto, o hotel é novinho super bom..
 
De que ligar do interior você é?
 
Abraços,
Andreano Lanusse
System Engineer
Borland Latin America
Tel: +55 (11) 2165.8089 / Mobile: +55 (11) 8196.5912
[EMAIL PROTECTED]   - www.borland.com.br 
http://www.borland.com.br/> 

 

A Borland Software é líder global em soluções independentes de plataforma para 
o Software Delivery Optimization, auxiliando nossos clientes a resolverem as 
restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o 
valor do negócio de seu software.




De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Paulo 
Eduardo
Enviada em: terça-feira, 18 de outubro de 2005 09:14
Para: delphi_box; delphi-advanced; delphi-br; delphi-mysql; delphi-total
Assunto: [delphi-br] OFF Topic - BorCon 2005
Prioridade: Alta


Bom dia Delphinianos deste Brasilis!!!

Sou virgem em BorCon, por isso tenho umas dúvidas!!
Hospedagem barata perto do local
Eles fornecem material para anotação???
Tem certificado das palestras e mini-cursos
Alimentação perto???
Terno e gravata, ou só um social fino?? 

Esclarecendo sou só um pobre programador do interior, desempregado!!!

Obrigaduuu!!
Paulo Eduardo

[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:
 



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

2005-10-18 Por tôpico dionatanhenrique
Pessoal, sera que alguem pode me passar alguim material sobre o IB 
EXPERT como criar alias, tabelas enfim


Valeu!  : )




-- 
< 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] OFF Topic - BorCon 2005

2005-10-18 Por tôpico Walter Alves Chagas Junior
Terno e gravata num "Frio" destes???



[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Paulo Eduardo
Enviada em: terça-feira, 18 de outubro de 2005 09:14
Para: delphi_box; delphi-advanced; delphi-br; delphi-mysql; delphi-total
Assunto: [delphi-br] OFF Topic - BorCon 2005
Prioridade: Alta


Bom dia Delphinianos deste Brasilis!!!

Sou virgem em BorCon, por isso tenho umas dúvidas!!
Hospedagem barata perto do local
Eles fornecem material para anotação???
Tem certificado das palestras e mini-cursos
Alimentação perto???
Terno e gravata, ou só um social fino?? 

Esclarecendo sou só um pobre programador do interior, desempregado!!!

Obrigaduuu!!
Paulo Eduardo

[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




 





[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] OFF Topic - BorCon 2005

2005-10-18 Por tôpico Paulo Eduardo
Bom dia Delphinianos deste Brasilis!!!

Sou virgem em BorCon, por isso tenho umas dúvidas!!
Hospedagem barata perto do local
Eles fornecem material para anotação???
Tem certificado das palestras e mini-cursos
Alimentação perto???
Terno e gravata, ou só um social fino?? 

Esclarecendo sou só um pobre programador do interior, desempregado!!!

Obrigaduuu!!
Paulo Eduardo

[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] Instalação Cliente do Firebird

2005-10-18 Por tôpico Wilson Valdevite
Galera, bom dia...
Preciso instalar o FB em um computador que servirá como estação de trabalho, ou 
seja, ela acessará os dados remotamente.
Gostaria de saber como posso efetuar a instalaçãodo FB, qual a configuração 
utilizar para que ele funcione corretamente.
  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.2/140 - Release Date: 18/10/2005


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

2005-10-18 Por tôpico felipe_vitta
Bom dia pessoal,

Desde ontem (Segunda) quando tentei compilar um fonte ele comecou a 
dar erro na unit UnixPass. Esta unit eh usada para criptografar uma 
string. Dei uma pesquisada na net e descobri que varios sites 
recomendam o uso desse codigo e gostaria de saber se mais alguem aqui 
usa e esta tendo problemas na hora de compilar.

O mais curioso é que ontem quando deu este problema e eu não conseguia 
compilar de jeito algum me passou pela cabeça a ideia de alterar a 
data do pc no caso de algum bloqueio, depois de alterar a data 
consegui compilar normalmente, porem hoje quando fui fazer a mesma 
coisa não deu certo...

Alguem tem alguma ideia?

ps: Posso anexar a unit se alguem quizer, só não sei se a lista 
permite o uso de anexos.

ps2: Uso Delphi 7 e tentei com mais de um micro.




-- 
< 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] Problemas com delphi 7 e msaccess.Por favor, ajudem!

2005-10-18 Por tôpico ecptj
Ola!
Estou com um problema enorme e nao consigo arrumar de jeito nenhum.
Tenho um button onde nele eu salvo registros em duas tabelas com este
codigo:
procedure TfrmTransacao.btSalvacqClick(Sender: TObject);
Var
 NDias : Integer;
 Juros,Liq,VPorc,TotLiq,TotBruto : Currency;
 VrTotal : String;
begin
  NDias := 0;
  VPorc := 0;
  TotLiq := 0;
  TotBruto := 0;
  if edtValor.Text <> '' then
   Begin
btAdCheque.Enabled := True;
btSalvaCq.Enabled := False;
btCancelaCq.Enabled := False;
with tbCheques  do
 Begin
  FieldbyName('Valor').asCurrency := edtValor.asCurrency;
  FieldbyName('NomeCheque').asString := edtNome.Text;
  FieldbyName('NumCheque').asString := edtNumCheque.Text;
  FieldbyName('CodCli').AsInteger :=
Form1.tbClientes.FieldbyName('CodCli').asInteger;
  FieldbyName('Vencimento').AsDateTime := dtVencimento.Date;
  FieldbyName('Data').asDateTime := dtDataTroca.Date;
  FieldbyName('Vale').AsBoolean := ckVale.Checked;
  FieldByName('PegoDe').asString :=
Form1.tbClientes.FieldbyName('Empresa').asString;
  FieldbyName('CodTrans').asInteger := Cod;
  Post;
 End;
with tbBordero do
 Begin
  FieldbyName('CodCk').asInteger :=
tbCheques.FieldbyName('CodCk').asInteger;
  FieldbyName('CodTrans').asInteger := Cod;
  // Numero de Dias
  NDias :=
NumDays(dtDataTroca.Date,tbCheques.FieldbyName('Vencimento').AsDateTime);
  FieldbyName('NumDias').asInteger := NDias;
  // Juros
  Juros :=
CalculaDesconto(NDias,tbCheques.FieldbyName('Valor').asCurrency,4);
  FieldbyName('Juros').asCurrency := Juros;
  edtJuros.Text := CurrtoStr(edtJuros.asCurrency + Juros);
  tbTrans.Edit;
  tbTrans.FieldbyName('Juros').AsCurrency  := edtJuros.asCurrency;
  //Total Liquido
  Liq := tbCheques.FieldbyName('Valor').asCurrency - Juros;
  FieldbyName('Liquido').AsCurrency := Liq;
  edtLiquido.Text := CurrtoStr(edtLiquido.asCurrency + Liq);
  tbTrans.FieldbyName('Liquido').AsCurrency := edtLiquido.asCurrency;
  //total bruto
  VPorc := (edtLiquido.asCurrency * 0.38) / 100;
  TotLiq := edtLiquido.asCurrency - VPorc;
  TotBruto :=  edtBruto.asCurrency + TotLiq;
  edtBruto.Text := FormatFloat('0.00',TotBruto);
  tbTrans.FieldByName('Bruto').asCurrency := edtBruto.asCurrency;
  tbTrans.Post;
  Post;
 End;
edtValor.Enabled := False;
edtNumCheque.Enabled := False;
edtNome.Enabled := False;
dtVencimento.Enabled := False;
ckVale.Enabled := False;
   End
  Else
   MessageDlg('Entre com algum valor nos campos.',mtWarning,[mbOk],0); 

end;

O problema e q toda vez q eu o aperto eu recebo uma menssagem dessas:
Project factoring.exe raised an exception class eoleexception with
message"Row cannot be located for updating.Some values may have been 
changed since last time it was read."

Os dados na tabela cheques sao salvos mas os dados da tabela bordero nao.

Isso tudo comecou acontecer depois q eu mudei um campo na minha tabela
de text pra currency.Tudo tava funcionando perfeitamente.

Ja criei outro banco mas nada adianta.

E eu tenho outro form onde eu faco uma query com este sql:
select * from transacao t,cheques ck,bordero b
where t.codtrans = :cd
and b.codtrans = t.codtrans
and b.codck = ck.codck

e tenho dbedits ligados tudo certinho, mas nao mostra nada...em outro
form tenho outro dbgrid ligado a tabela cheques q tambem ta ligado
neste form q nao aparece nada ,mas la ele e mostrado.


O que posso fazer?

Estou usando delphi 7 com msaccess.

Se quiserem baixar o projeto www.eduardotavares.com.br/factoring.zip

Muito obrigado!




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