Res: [delphi-br] Re: Gauge sem %

2010-07-13 Por tôpico Farmy G. Ferreira da Silva
Andrei,

Se for uma barra tipo a do windows xp e 7, elas são feitas com o componente 
progress bar e não com o gauge bar, existe uma propriedade para que isso 
ocorra, 
no momento estou sem a minha versão de delphi no pc, pois formatei hoje, mas dá 
uma chegada no progres bar, ele deve te ajudar sim, embora minha versão seja 
09, 
acho que já está implementado desde a versão 05 esse recurso.

Um abraço.

 -
*
-
Farmy Gonçalves Ferreira da Silva
Engenheiro de Software
Mestrando em saúde mental. 
Laboratório de integração Sensório Motara IPUB/UFRJ. IBBN.
-
*
-
www.profissionaisdetecnologia.com.br
profissionaisdetecnologia-subscr...@yahoogrupos.com.br
-
*
-
farmysi...@yahoo.com.br
farmyferre...@yahoo.com.br
farmysi...@hotmail.com
Tel: 9388 - 9619 / 7872 - 4718 Id 10*80735





De: Andrei Luís compuvale.softw...@gmail.com
Para: Delphi-br delphi-br@yahoogrupos.com.br,
Enviadas: Segunda-feira, 12 de Julho de 2010 23:52:11
Assunto: [delphi-br] Re: Gauge sem %

  
Ahh, faltou aquele pequeno detalhe: free e com fontes. Utilizo D2006 Win32.

[]s
Andrei

2010/7/12 Andrei Luís compuvale.softw...@gmail.com:
 Boa noite,

 Alguém poderia indicar um gauge bar sem % nem texto. Pensei em algo
 que não necessariamente preenchesse a barra, mas tipo um que fique se
 movimentando pra direita e pra esquerda sem parar, até ser encerrado.
 A idéia é utilizar no envio de e-mails ou outras situações que não dá
 pra medir a porcentagem do processo executado/à executar.

 []s
 Andrei


 


  

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



Re: Res: [delphi-br] Relatório fica preso por trás do formulário

2010-07-13 Por tôpico stefaniak
ou usa o quickrep1.previewmodal;

marcelo luiz stefaniak
Em 12/07/2010 22:05, Marcelo escreveu:

 Já tentou depois de imprimir dar um free no QR e depois tambem no form 
 que
 contem ele?

 
 De: Gilvan Costa info...@yahoo.com.br mailto:infogil%40yahoo.com.br
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Enviadas: Segunda-feira, 12 de Julho de 2010 16:31:34
 Assunto: [delphi-br] Relatório fica preso por trás do formulário

 Srs.
 Tenho um formulário que é aberto no modo Show Modal que por sua vez chama
 um relatório construído no QUICKREPORT com as seguintes propriedades:
 PrevFormStyle: fsNormal
 PreviewInitialState: wsMaximized

 Acontece que as vezes o relatório abre e fica preso por trás do formulário
 que o chamou e não consigo fechar nenhum e nem o outro tendo que dar 
 ctrl +
 alt + del, imagina só J
 Alguém sabe como resolvo isso
 Certo da colaboração desde já agradeço
 Gilvan Costa

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

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

 



Re: [delphi-br] Re: Delphi Prism

2010-07-13 Por tôpico Walter Chagas (Bol)
Agora, usar php no Celular voce está restrito as limitações do PHP, que são 
muitas. E intraweb no celular eu nunca vi.

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr


- Original Message - 
From: Marcelo Florindo marcelo.em.lis...@gmail.com
To: delphi-br@yahoogrupos.com.br
Sent: Monday, July 12, 2010 7:16 PM
Subject: Re: [delphi-br] Re: Delphi Prism


Por isso prefiro web. :)
Podemos usar php, intraweb,etc...etc...etc...

Marcelo

Em 12 de julho de 2010 18:42, Walter Chagas (Bol) 
wchag...@bol.com.brescreveu:



 Magnun

 Não é simplesmente escrever um hello word e compilar com um compilador 
 java
 que vai rodar no celular nao. Há uma série de procedimentos adicionais ao
 projeto para viabilizar isto.


 []s


 Walter Alves Chagas Junior
 Belo Horizonte - MG - Brazil
 wchag...@bol.com.br wchagasj%40bol.com.br
 http://delphitocorporerm.blogspot.com/
 http://twitter.com/wchagas
 MSN: whitesock...@hotmail.com whitesockets%40hotmail.com
 SKYPE: WalterChagasJr

 - Original Message -
 From: Magnun Oliveira
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Monday, July 12, 2010 4:58 PM
 Subject: Re: [delphi-br] Re: Delphi Prism

 Certa vez, eu, em uma aula de programação na faculdade, estava prestando
 sobre a palestra que o professor dava a respeito do Java ...

 O foco principal era a independencia de plataforma. Apos a seguinte frase:
 Uma das muitas vantagens, é a independencia de plataforma. Se vc escrever
 uma aplicação, em um sistema, basta coloca-la no outro e ela funciona,
 nenhuma liguagem permite isso!, PCs, notes, celulares, palms, canetas,
 relogios, aneis, tudo pode rodar java !!!.

 Pensei ... caracas o negocio é bom msm. Peguei o notebook, escrevi um
 Hello Word.java, criei o jar, passei por bluetooth pro celular e na hora
 do vamo ver ... :

 arquivo .jar nao reconhecido !!!

 ps: Pegando gancho na informacao que o Bruno colocou ... que o Skype é
 feito
 em Delphi, existe algum material falando a respeito de prorgamas feitos em
 Delphi, etc ... só por curiosidade mesmo.

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

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





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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

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




[delphi-br] Dbedit com EditMask não limpa

2010-07-13 Por tôpico Darkzad
  Olá pessoal,

Estou com um problema no meu Dbedit, segue:

A máscara do meu campo é !99/99/99;1;_

No evento OnKeyDown coloquei o seguinte código:

if Key = VK_ESCAPE then
   Dbedit.field.Clear;


Antes da versão Delphi 2010 isso estava funcionando normal, agora quando 
pressione o ESC o valor que está no Dbedit continua.

Alguém tem alguma solução simples para resolver isso?


Desde já
DarkZad







[delphi-br] Ribbon no delphi 2007

2010-07-13 Por tôpico Marcelo Barby
Bom dia pessoal.

 

Gostaria de saber se é possível e se existe como utilizar
algum componente que simule o menu ribbon do Delphi 2010 no Delphi 2007.

 

Grato.

 

Marcelo Barby.



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



[delphi-br] Clientdataset grava registro antigo em XML

2010-07-13 Por tôpico Alisson
Estou gerando um arquivo de configuração, e como é apenas um registro estou 
usando um clientdataset e salvando em um xml. Estou usando 
Clientdataset.LoadFromFile e ClientDataset.SaveToFile. Funciona normalmente, 
mas o problema é que quando altero algum campo, o registro anterior é guardado 
no xml, apesar do clientdataset sempre mostrar apenas um registro. Dessa forma 
o tamanho do arquivo vai aumentando cada vez mais. Tem como atualizar o 
registro sem guardar os dados antigos no XML?

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



Re: RES: [delphi-br] Como atribuir instruções a eventos em tempo de execução ?

2010-07-13 Por tôpico cartouchebr
De nada, lista! Sempre às ordens, viu?   :(

(Ô povo sem noção! Nem ao menos agradece!)

Sds.

--- Em delphi-br@yahoogrupos.com.br, Rubem Rocha rubem.ro...@... escreveu

 Ah, mas e se eu não tiver um método de objeto e sim uma rotina `solta', que
 não está declarada em um objeto, mas que eu queira atribuí-la a um evento?
 Como eu faço?
 
  
 
 Assim perguntaria um hipotético participante da lista. Também tem jeito sim.
 Existe uma estrutura chamada TMethod que pode representa os
 dados(argumentos) e código de um método. Com essa estrutura, é possível
 manipular eventos de forma a ser possível atribuir rotinas `soltas' de
 objetos a eventos. Vamos a um exemplo.
 
  
 
 Supondo que queremos atribuir uma rotina `solta' a um botão que iremos criar
 para um formulário, de forma análoga ao exemplo fornecido pelo Eric. Usando
 a estrutura TMethod faríamos assim:
 
  
 
 procedure MostraMensagem(Data: Pointer; Sender: TObject);
 
 begin
 
   ShowMessage(`Evento atribuído em tempo de execução.');
 
 end;
 
  
 
 procedure MeuBotao(UmForm: TForm);
 
 var
 
   Botao: TButton;
 
   Evento: TNotifyEvent;
 
 begin
 
   Botao := TButton.Create(UmForm);
 
   with Botao do
 
   begin
 
 Parent := UmForm;
 
 SetBounds(10, UmForm.Height - Botao.Height - 40, 60, Botao.Height);
 
 Caption := `Close';
 
   end;
 
   TMethod(Evento).Code := @MostraMensagem;
 
   TMethod(Evento).Data := Botao;
 
   Botao.OnClick := Evento;
 
 end;
 
  
 
 (Referência: http://www.delphi3000.com/articles/article_3335.asp)
 
  
 
 É importante prestar atenção para a assinatura da rotina `solta'. Ela recebe
 dois argumentos, um que consiste num dado referente à instância que irá
 chamar o código do evento, e outro que é faz parte da assinatura do evento.
 Ou seja, para atribuir rotinas `soltas' a um evento, ainda assim estas devem
 possuir a assinatura do evento precedida de um ponteiro para a instância de
 objeto que será indicada na chamada ao evento.
 
  
 
 Sds.
 
  
 
  
 
 De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
 nome de Rubem Rocha
 Enviada em: segunda-feira, 12 de julho de 2010 11:44
 Para: delphi-br@yahoogrupos.com.br
 Assunto: RES: [delphi-br] Como atribuir instruções a eventos em tempo de
 execução ?
 Prioridade: Alta
 
  
 
   
 
 Na verdade não seria atribuição de instruções a eventos, mas atribuições de
 métodos a eventos. Isso é simples de se fazer. Basta que o método possua uma
 assinatura igual a que é requerida pelo evento. Por exemplo, o evento
 OnClick de um botão é definido como um ponteiro para um método de um objeto
 que deve possuir como parâmetro um elemento do tipo TObject, conforme é
 definido no help da seguinte maneira:
 
 type TNotifyEvent = procedure (Sender: TObject) of object;
 
 (Fonte: help do Delphi)
 
 Sabendo disto, você só pode atribuir diretamente a um evento um método de
 objeto que tenha a mesma assinatura requerida pelo evento. Não se pode
 simplesmente atribuir um ShowMessage(). Mesmo com a possibilidade existente
 na linguagem Delphi do RAD Studio 2010 de permitir atribuição anônima de
 eventos, os mesmos devem obedecer a assinatura do evento.
 
 Portanto, colega Eric, você tem que criar um método de objeto com a
 assinatura do evento para que o mesmo possa ser atribuído diretamente a ele.
 
 Exemplo:
 
 { Método criado com assinatura requerida pelo evento OnClick }
 
 procedure ObjetoQualquer.MostraMensagem(Sender: TObject);
 
 begin
 
 ShowMessage(`Evento atribuído em run-time');
 
 end;
 
 procedure MeuBotao(UmForm: TForm);
 
 begin
 
 with TButton.Create(UmForm) do
 
 begin
 
 Parent := UmForm;
 
 Width := 60;
 
 Left := 10;
 
 Top := oFrm.Height - oBtn.Height - 40;
 
 Caption := 'Close';
 
 OnClick := ObjetoQualquer.MostraMensagem;
 
 end; 
 
 end;
 
 Sds.
 
 De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 ] Em
 nome de Anderson Junior
 Enviada em: domingo, 11 de julho de 2010 20:22
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ;
 memsystems-pas...@... mailto:memsystems-pascal%40yahoo.com 
 Assunto: Re: [delphi-br] Como atribuir instruções a eventos em tempo de
 execução ?
 
 boa noite, vc conegui resolver seu problema com Como atribuir 
 instruções a eventos em tempo de execução ?
 
 Em 19/01/2010 02:48, developer.systems escreveu:
 
  Boa noite a todos !
 
  Tenho uma função que cria o botão tem tempo de execução, mas como 
  atribuir em tempo de execução, uma função/procedure ao evento onClick ?
 
  procedure MeuBotao( oFrm: TForm ) ;
  var oBtn: TButton ;
 
  begin
  oBtn:=TButton.Create(oFrm);
  oBtn.Parent:=oFrm;
  oBtn.Width:=60;
  oBtn.Left:=10;
  oBtn.Top:=oFrm.Height-oBtn.Height-40;
  oBtn.Caption:='Close';
  //oBtn.onClick  Neste evento, atribuir por exemplo: ShowMessage( 
  'MyButton RunTime and onClick' ) ;
 
  end;
 
  Virtualmente/Regards
  Eric
  Developer.Systems
  São Paulo - Brasil
 
 
  
 
 [As partes 

Res: [delphi-br] Dbedit com EditMask não lim pa

2010-07-13 Por tôpico Jean Barreiros
use:
if Key = VK_ESCAPE then
Dbedit.field.AsString := '';

veja se resolve.
 ===
Jean Barreiros
  Programador/Web-Designer
  Delphi|C++|PHP|JavaScript
  FireBird|MySql|SQLServer
  PostGree|Oracle
  msn: delphij...@gmail.com
  e-mail: delphij...@yahoo.com.br
===





De: Darkzad dark...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 11:32:34
Assunto: [delphi-br] Dbedit com EditMask não limpa

  
Olá pessoal,

Estou com um problema no meu Dbedit, segue:

A máscara do meu campo é !99/99/99;1;_

No evento OnKeyDown coloquei o seguinte código:

if Key = VK_ESCAPE then
Dbedit.field.Clear;

Antes da versão Delphi 2010 isso estava funcionando normal, agora quando 
pressione o ESC o valor que está no Dbedit continua.

Alguém tem alguma solução simples para resolver isso?

Desde já
DarkZad


 


  

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



Re: [delphi-br] Re: Gauge sem %

2010-07-13 Por tôpico fabio giro
Coloque 2 timers, 2 buttons e 2 gauges. Adapte as suas necessidades.
 
  private
    { Private declarations }
    sentido1 : string;
    perc1 : word;
    sentido2 : string;
    perc2 : word;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if sentido1 = 'vai' then
   begin
   inc(perc1);
   Gauge1.Progress := perc1;
   if perc1 = 100 then
  sentido1 := 'volta';
   end;
  if sentido1 = 'volta' then
   begin
   dec(perc1);
   Gauge1.Progress := perc1;
   if perc1 = 0 then
  sentido1 := 'vai';
   end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := true;
  sentido1 := 'vai';
  perc1 := 0;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if sentido2 = 'vai' then
   begin
   inc(perc2);
   Gauge2.Progress := perc2;
   if perc2= 100 then
    begin
  sentido2:= 'volta';
  Gauge2.BackColor := clblack;
  Gauge2.ForeColor := clwhite;
    end;
   end;
  if sentido2 = 'volta' then
   begin
   dec(perc2);
   Gauge2.Progress := perc2;
   if perc2 = 0 then
    begin
  sentido2 := 'vai';
  Gauge2.BackColor := clWhite;
  Gauge2.ForeColor := clBlack;
    end;
   end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer2.Enabled := true;
  sentido2 := 'vai';
  perc2 := 0;
end;

 
 


--- Em seg, 12/7/10, Andrei Luís compuvale.softw...@gmail.com escreveu:


De: Andrei Luís compuvale.softw...@gmail.com
Assunto: [delphi-br] Re: Gauge sem %
Para: Delphi-br delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 12 de Julho de 2010, 23:52


  



Ahh, faltou aquele pequeno detalhe: free e com fontes. Utilizo D2006 Win32.

[]s
Andrei

2010/7/12 Andrei Luís compuvale.softw...@gmail.com:
 Boa noite,

 Alguém poderia indicar um gauge bar sem % nem texto. Pensei em algo
 que não necessariamente preenchesse a barra, mas tipo um que fique se
 movimentando pra direita e pra esquerda sem parar, até ser encerrado.
 A idéia é utilizar no envio de e-mails ou outras situações que não dá
 pra medir a porcentagem do processo executado/à executar.

 []s
 Andrei









  

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



Re: [delphi-br] Re: Gauge sem %

2010-07-13 Por tôpico fabio giro
Colocar a propriedade dos ShowText = False (dos Gauges);

--- Em seg, 12/7/10, Andrei Luís compuvale.softw...@gmail.com escreveu:


De: Andrei Luís compuvale.softw...@gmail.com
Assunto: [delphi-br] Re: Gauge sem %
Para: Delphi-br delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 12 de Julho de 2010, 23:52


  



Ahh, faltou aquele pequeno detalhe: free e com fontes. Utilizo D2006 Win32.

[]s
Andrei

2010/7/12 Andrei Luís compuvale.softw...@gmail.com:
 Boa noite,

 Alguém poderia indicar um gauge bar sem % nem texto. Pensei em algo
 que não necessariamente preenchesse a barra, mas tipo um que fique se
 movimentando pra direita e pra esquerda sem parar, até ser encerrado.
 A idéia é utilizar no envio de e-mails ou outras situações que não dá
 pra medir a porcentagem do processo executado/à executar.

 []s
 Andrei









  

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



Re: RES: [delphi-br] Como atribuir instruçõ es a eventos em tempo de execução ?

2010-07-13 Por tôpico Ricardo César Cardoso
Não sei como vc ainda não se acostumou após tantos anos, Rubem...

Mesmo não sendo quem perguntou, OBRIGADO MAIS UMA VEZ!

Atte,
Ricardo.
 

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
compreendida.

3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em ter, 13/7/10, cartouchebr djpardalro...@hotmail.com escreveu:

De: cartouchebr djpardalro...@hotmail.com
Assunto: Re: RES: [delphi-br] Como atribuir instruções a eventos em tempo de 
execução ?
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 13 de Julho de 2010, 12:29







 



  



  
  
  De nada, lista! Sempre às ordens, viu?   :(



(Ô povo sem noção! Nem ao menos agradece!)



Sds.



--- Em delphi-br@yahoogrupos.com.br, Rubem Rocha rubem.ro...@... escreveu



 Ah, mas e se eu não tiver um método de objeto e sim uma rotina `solta', que

 não está declarada em um objeto, mas que eu queira atribuí-la a um evento?

 Como eu faço?

 

  

 

 Assim perguntaria um hipotético participante da lista. Também tem jeito sim.

 Existe uma estrutura chamada TMethod que pode representa os

 dados(argumentos) e código de um método. Com essa estrutura, é possível

 manipular eventos de forma a ser possível atribuir rotinas `soltas' de

 objetos a eventos. Vamos a um exemplo.

 

  

 

 Supondo que queremos atribuir uma rotina `solta' a um botão que iremos criar

 para um formulário, de forma análoga ao exemplo fornecido pelo Eric. Usando

 a estrutura TMethod faríamos assim:

 

  

 

 procedure MostraMensagem(Data: Pointer; Sender: TObject);

 

 begin

 

   ShowMessage(`Evento atribuído em tempo de execução.');

 

 end;

 

  

 

 procedure MeuBotao(UmForm: TForm);

 

 var

 

   Botao: TButton;

 

   Evento: TNotifyEvent;

 

 begin

 

   Botao := TButton.Create(UmForm);

 

   with Botao do

 

   begin

 

 Parent := UmForm;

 

 SetBounds(10, UmForm.Height - Botao.Height - 40, 60, Botao.Height);

 

 Caption := `Close';

 

   end;

 

   TMethod(Evento).Code := @MostraMensagem;

 

   TMethod(Evento).Data := Botao;

 

   Botao.OnClick := Evento;

 

 end;

 

  

 

 (Referência: http://www.delphi3000.com/articles/article_3335.asp)

 

  

 

 É importante prestar atenção para a assinatura da rotina `solta'. Ela recebe

 dois argumentos, um que consiste num dado referente à instância que irá

 chamar o código do evento, e outro que é faz parte da assinatura do evento.

 Ou seja, para atribuir rotinas `soltas' a um evento, ainda assim estas devem

 possuir a assinatura do evento precedida de um ponteiro para a instância de

 objeto que será indicada na chamada ao evento.

 

  

 

 Sds.

 

  

 

  

 

 De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em

 nome de Rubem Rocha

 Enviada em: segunda-feira, 12 de julho de 2010 11:44

 Para: delphi-br@yahoogrupos.com.br

 Assunto: RES: [delphi-br] Como atribuir instruções a eventos em tempo de

 execução ?

 Prioridade: Alta

 

  

 

   

 

 Na verdade não seria atribuição de instruções a eventos, mas atribuições de

 métodos a eventos. Isso é simples de se fazer. Basta que o método possua uma

 assinatura igual a que é requerida pelo evento. Por exemplo, o evento

 OnClick de um botão é definido como um ponteiro para um método de um objeto

 que deve possuir como parâmetro um elemento do tipo TObject, conforme é

 definido no help da seguinte maneira:

 

 type TNotifyEvent = procedure (Sender: TObject) of object;

 

 (Fonte: help do Delphi)

 

 Sabendo disto, você só pode atribuir diretamente a um evento um método de

 objeto que tenha a mesma assinatura requerida pelo evento. Não se pode

 simplesmente atribuir um ShowMessage(). Mesmo com a possibilidade existente

 na linguagem Delphi do RAD Studio 2010 de permitir atribuição anônima de

 eventos, os mesmos devem obedecer a assinatura do evento.

 

 Portanto, colega Eric, você tem que criar um método de objeto com a

 assinatura do evento para que o mesmo possa ser atribuído diretamente a ele.

 

 Exemplo:

 

 { Método criado com assinatura requerida pelo evento OnClick }

 

 procedure ObjetoQualquer.MostraMensagem(Sender: TObject);

 

 begin

 

 ShowMessage(`Evento atribuído em run-time');

 

 end;

 

 procedure MeuBotao(UmForm: TForm);

 

 begin

 

 with TButton.Create(UmForm) do

 

 begin

 

 Parent := UmForm;

 

 Width := 60;

 

 Left := 10;

 

 Top := oFrm.Height - oBtn.Height - 40;

 

 Caption := 'Close';

 

 OnClick := ObjetoQualquer.MostraMensagem;

 

 end; 

 

 end;

 

 Sds.

 

 De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br

 [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br

 ] Em

 nome de Anderson Junior

 Enviada em: domingo, 11 de julho de 2010 20:22

 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ;

 memsystems-pas...@... mailto:memsystems-pascal%40yahoo.com 

 

Re: [delphi-br] Dbedit com EditM ask não limpa

2010-07-13 Por tôpico Alisson
procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (Key in [VK_BACK, VK_DELETE]) then
  (Sender as TDBEdit).Field.Clear
end;


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



Re: Res: [delphi-br] Dbedit com EditMask não limpa

2010-07-13 Por tôpico Darkzad
  Tentei desta maneira e não resolveu.

Obrigado.
Em 13-07-2010 12:48, Jean Barreiros escreveu:

 use:
 if Key = VK_ESCAPE then
 Dbedit.field.AsString := '';

 veja se resolve.
 ===
 Jean Barreiros
 Programador/Web-Designer
 Delphi|C++|PHP|JavaScript
 FireBird|MySql|SQLServer
 PostGree|Oracle
 msn: delphij...@gmail.com mailto:delphijean%40gmail.com
 e-mail: delphij...@yahoo.com.br mailto:delphijean%40yahoo.com.br
 ===

 
 De: Darkzad dark...@yahoo.com.br mailto:darkzad%40yahoo.com.br
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Enviadas: Terça-feira, 13 de Julho de 2010 11:32:34
 Assunto: [delphi-br] Dbedit com EditMask não limpa

 Olá pessoal,

 Estou com um problema no meu Dbedit, segue:

 A máscara do meu campo é !99/99/99;1;_

 No evento OnKeyDown coloquei o seguinte código:

 if Key = VK_ESCAPE then
 Dbedit.field.Clear;

 Antes da versão Delphi 2010 isso estava funcionando normal, agora quando
 pressione o ESC o valor que está no Dbedit continua.

 Alguém tem alguma solução simples para resolver isso?

 Desde já
 DarkZad

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

 



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



Re: [delphi-br] Delphi Prism

2010-07-13 Por tôpico Nicolas
Marcelo,

para você ter uma idéia, a faculdade onde eu leciono tem parceria com a 
Microsoft,
todos os alunos tem acesso aos produtos microsoft de desenvolvimento em versões 
oficiais e full para uso educacional.

A Embarcadero poderia fazer parcerias semelhantes com as universidades e 
faculdades, seria muito bem vindo.

Alexandre.


  - Original Message - 
  From: Fortes Marcelo 
  To: delphi-br@yahoogrupos.com.br 
  Cc: wchag...@bol.com.br 
  Sent: Saturday, July 10, 2010 3:09 AM
  Subject: Re: [delphi-br] Delphi Prism





  Esta é outra grande verdade assino embaixo Walter. Acho que se existisse um
  esforço dos representantes desse produto aqui na América Latina e outras
  localidades de fornecer o Produto sem ônus para instituições de ensino, muita
  coisa mudaria. mas eu acho que aí tem problemas de Marketing bem estruturado e
  custo ...

   

  As pessoas saem diplomadas nos cursos procurando oferta em Java por que saem
  com o canudo da faculdade e onde os professores batem com o pé no chão
  Java é o futuro!.

   

  Se há oferta grande desses profissionais, por conseguinte uma oferta de
  empresas procurando por esses profissionais também existe. 

   

  Gostaria que o grande amigo Adreano Lanusse desse uma lida nisso !

  Marcelo Fortes.

  --- Em qui, 8/7/10, Walter Chagas (Bol) wchag...@bol.com.br escreveu:

  De: Walter Chagas (Bol) wchag...@bol.com.br
  Assunto: Re: [delphi-br] Delphi Prism
  Para: delphi-br@yahoogrupos.com.br
  Data: Quinta-feira, 8 de Julho de 2010, 22:25

   

  O problema maior é que não há muita divulgação do delphi atualmente. Pra voce 
ter uma ideia, muita gente conversa comigo e fala que o Delphi foi 
descontinuado porque a Borland não o fabrica mais..

  Estas pessoas, nem sabiam da existencia da Embarcadero.

  []s

  Walter Alves Chagas Junior

  Belo Horizonte - MG - Brazil

  wchag...@bol.com.br

  http://delphitocorporerm.blogspot.com/

  http://twitter.com/wchagas

  MSN: whitesock...@hotmail.com

  SKYPE: WalterChagasJr

  - Original Message - 

  From: Eny Urias 

  To: delphi-br@yahoogrupos.com.br 

  Sent: Thursday, July 08, 2010 10:06 PM

  Subject: Res: [delphi-br] Delphi Prism

  Entrando de gaiata na conversa quero deixar registrado o que me aconteceu 
há 

  alguns dias.

  Fui contratada por uma empresa para desenvolver um sistema em Delphi... 

  Disseram, até o dia da contratação, que era difícil encontrar programador em 

  Delphi aqui no interior e bla bla bla...

  Um dia antes de começar na empresa me perguntaram se eu tinha conhecimento em 

  .Net... Ãh? Como assim??? Não era Delphi?

  Aí responderam Queremos mudar para .Net por causa de todo o respaldo que 
a 

  Microft tem. Nós não podemos arriscar a começar um sistema utilizando um 

  programa que a cada hora uma empresa é dona... Primeiro a Borland, depois A 

  CodeGear, agora a Embarcadero... E daqui um tempo? Como vai ser? Preferimos 

  mudar agora para que futuramente não sejamos pegos de surpresa...

  Tem muita empresa pensando assim...

  --

  Eny Trova Urias

  Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, 
mas 

  um hábito- Aristóteles

  

  De: Fortes Marcelo marcelosoftw...@yahoo.com.br

  Para: delphi-br@yahoogrupos.com.br

  Enviadas: Quinta-feira, 8 de Julho de 2010 21:41:23

  Assunto: Re: Res: [delphi-br] Delphi Prism

  .Net infelizmente é uma tendência que quer queiramos ou não nos é imposta 

  compulssória, não se ganha nada com .Net, nada, mas é a tendência, a bola da 

  vez... Queria ver umazinha aplicação da Microsoft em .Net, uma só, se é tão 

  maravilhosa assim por que o pacote Office não é em C# por que o SQL 
Server 

  não é reescrito em .Net??? A Microsoft vai desenvolver m C++ até o fim dos 

  tempos é incrível como as pessoas não têem crítica, não pensam, aceitam tudo 
e 

  pronto é o futuro, afirmam.

  Vou te ajudar, o Prism é uma impelmentação da linguagem Object Pascal para 
.Net 

  qaue agora é inserida no Visual Studio como um plugin, para os programadores 

  Delphi que estão acostumados com a sintaxe do Object Pascal. Ele adiciona um 

  monte de outros templates e coisas a mais que o Visual Studio não tem na 
caixa 

  de projetos, Além de recusros na linguagem que o C# não tem como Class 
contracts 

  que é excelente.

  Mas a embarcadero está fazendo justamente o Jogo certo não deixando o Delphi 

  perder sua essência com o Delphi 2010 fazendo aplicações nativas. Não 
brigando 

  com a vmicrosoft de frente como a Borland no próprio jogo da Microsoft, pos 

  senão ia se ferrar como Borland se ferrou então vc tem o Delphi prism para 

  plugar no Ambiente da microsoft e programar pro framework dela e o Delphi, 

  C++Builder e RadStudio prá código nativo Win32 pegou?

  Sucesso.

  --- Em qua, 7/7/10, Ray Silva rayz...@yahoo.com.br escreveu:

  De: Ray Silva rayz...@yahoo.com.br

  Assunto: Res: [delphi-br] Delphi Prism

  Para: 

[delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Ralp Alves Bezerra
Nobres colegas, estou tentando importar para o meu banco de dados um arquivo
no formato txt com o formato abaixo:

 

601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
,002,,33901400,100.000,00

601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
,002,,33901400,130.00

601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
,002,,33901400,1.000,00

601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
,003,,33903000,10.000,00

601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
,006,,33903900,100,00

 

Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

 

Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
neste formato?

 

Estou utilizando Delphi 7/Firebird 2.1

 

Grato.

 

Ralp Alves

 

 

 



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



RES: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Ralp Alves Bezerra
Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

 

Existe um campo no formato 100.000,00 que também contém vírgulas em seu
conteúdo.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

 

  


Qual é exatamente a sua dificuldade?

Sds.


To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
From: ral...@gmail.com mailto:ralprd%40gmail.com 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

Nobres colegas, estou tentando importar para o meu banco de dados um arquivo
no formato txt com o formato abaixo:

601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
,002,,33901400,100.000,00

601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
,002,,33901400,130.00

601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
,002,,33901400,1.000,00

601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
,003,,33903000,10.000,00

601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
,006,,33903900,100,00

Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
neste formato?

Estou utilizando Delphi 7/Firebird 2.1

Grato.

Ralp Alves


__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
VEJA COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:
Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

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





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



Res: RES: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Wagne®_Fix
Eu uso COPY, as pessoas podem achar complicado mas eu me dou muito bem... Tem 
um 
cliente meu que importa mais ou menos uns 1000 dados diários para o Banco e 
nunca deu problema...

  AssignFile(arq,g);
  Reset ( arq );
  ReadLn ( arq, linha );
  Tot:= 0;
  AuxTot   := 0;

  while not Eof ( arq ) do begin
AuxLinha:= '';
AuxPed  := '';
AuxChassi   := '';
AuxLinha:= Copy(linha,53,1);
AuxPed  := Copy(linha,1,10);
AuxChassi   := Copy(linha,51,10);
  end;





De: Ralp Alves Bezerra ral...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

  
Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato 100.000,00 que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
From: ral...@gmail.com mailto:ralprd%40gmail.com 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

Nobres colegas, estou tentando importar para o meu banco de dados um arquivo
no formato txt com o formato abaixo:

601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
,002,,33901400,100.000,00

601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
,002,,33901400,130.00

601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
,002,,33901400,1.000,00

601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
,003,,33903000,10.000,00

601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
,006,,33903900,100,00

Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
neste formato?

Estou utilizando Delphi 7/Firebird 2.1

Grato.

Ralp Alves

__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
VEJA COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:
Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

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

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


 


  

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



[delphi-br] Será que o problema está no DBExpress ?

2010-07-13 Por tôpico Albuquerque
Por que nas estações com Win7-64bits meu aplicativo desenvolvido com Delphi
7 usando DBExpress não está se conectando ao SQLServer2000 no servidor com
Win2003Server ?

(em todos as estações da rede com WinXP a configuração acima funciona
perfeitamente)

 

Fiz um pequeno teste substituindo o DBExpress pelo ADO e, adivinhem ?
Funcionou ! Conectou perfeitamente no servidor.

Portanto: Será que o problema está no DBExpress ?

 

Porém este projeto é muito grande para se pensar em trocar todos os
componentes DBExpress por ADO.

Se comprovadamente a união D7/DBExpress/SQL2000/Win2003/Win7-64 for
impossível, pensaremos em outra solução.

 

Config do TSQLConnection:

GetDriverFunc = getSQLDriverMSSQL

LibraryName = dbexpmss.dll

VendorLib = oledb

 

 

 

Desde já agradeço a atenção dispensada.

 

Att.

 

Albuquerque

 



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



Re: Res: RES: [delphi-br] Importação de Arqui vo

2010-07-13 Por tôpico Darkzad
  Acho que você pode usar a função ExtractStrings. Ela é parcida com a 
função explode do PHP e é nativa do Delphi.

function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: 
PChar; Strings: TStrings): Integer;

* Separator - É um array onde você pode definir vários separadores
* WhiteSpace - É um Array onde você define os caracteres que devem
  ser Ignorados quando ocorrerem no inicio da String.
* Content - É a String de onde se deseja extrais as substrings

A Função retorna o número de Substrings extraídas.

Veja um pequeno exemplo de utilização:

procedure TForm1.Button1Click(Sender: TObject);
const
SDados = 'Cristiano Martins Alves; 28 Anos; Casado; São Paulo; SP';
var
Lista: TStringList;
iRetorno:Integer;
begin
Lista := TStringList.Create;
try
iRetorno := ExtractStrings([';'],[' '],PChar(sDados),Lista);
if iRetorno  0 then
ShowMessage(Lista.Text);
finally
FreeAndNil(Lista);
end;
end;

Desde já
DarkZad


Em 13-07-2010 16:25, Wagne®_Fix escreveu:

 Eu uso COPY, as pessoas podem achar complicado mas eu me dou muito 
 bem... Tem um
 cliente meu que importa mais ou menos uns 1000 dados diários para o 
 Banco e
 nunca deu problema...

 AssignFile(arq,g);
 Reset ( arq );
 ReadLn ( arq, linha );
 Tot := 0;
 AuxTot := 0;

 while not Eof ( arq ) do begin
 AuxLinha := '';
 AuxPed := '';
 AuxChassi := '';
 AuxLinha := Copy(linha,53,1);
 AuxPed := Copy(linha,1,10);
 AuxChassi := Copy(linha,51,10);
 end;

 
 De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
 Assunto: RES: [delphi-br] Importação de Arquivo

 Não estou conseguindo montar uma rotina para pegar os dados contidos 
 dentro
 das aspas duplas e delimitadas por vírgula.

 Existe um campo no formato 100.000,00 que também contém vírgulas em seu
 conteúdo.

 De: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br 
 [mailto:delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br] Em
 nome de Rubem Nascimento da Rocha
 Enviada em: terça-feira, 13 de julho de 2010 15:54
 Para: delphi-br
 Assunto: RE: [delphi-br] Importação de Arquivo
 Prioridade: Alta

 Qual é exatamente a sua dificuldade?

 Sds.

 To: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br
 From: ral...@gmail.com mailto:ralprd%40gmail.com 
 mailto:ralprd%40gmail.com
 Date: Tue, 13 Jul 2010 15:50:44 -0300
 Subject: [delphi-br] Importação de Arquivo

 Nobres colegas, estou tentando importar para o meu banco de dados um 
 arquivo
 no formato txt com o formato abaixo:

 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
 ,002,,33901400,100.000,00

 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
 ,002,,33901400,130.00

 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
 ,002,,33901400,1.000,00

 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
 ,003,,33903000,10.000,00

 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
 ,006,,33903900,100,00

 Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

 Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
 neste formato?

 Estou utilizando Delphi 7/Firebird 2.1

 Grato.

 Ralp Alves

 __
 CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
 VEJA COMO.
 http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
 http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM: 
 http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:
 Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
 ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

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

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

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

 



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



[delphi-br] Arredondar

2010-07-13 Por tôpico joao_jma
Preciso atualizar o salário na base de dados de funcionários, aumentando em 8%

Preciso arredondar os valores sempre acima para não gravar centavos.

Alguma dica ???

Obrigado


 

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



Re: [delphi-br] Ribbon no delphi 2007

2010-07-13 Por tôpico NTS INFORMÁTICA
Se voce usar a TMS, ela tem o Ribbon pra qualquer versao do Delphi.

Márcio NTS

  - Original Message - 
  From: Marcelo Barby 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 13, 2010 11:56 AM
  Subject: [delphi-br] Ribbon no delphi 2007



  Bom dia pessoal.

  Gostaria de saber se é possível e se existe como utilizar
  algum componente que simule o menu ribbon do Delphi 2010 no Delphi 2007.

  Grato.

  Marcelo Barby.

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



  

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



[delphi-br] QuickReport

2010-07-13 Por tôpico ricardo_n2
Boa tarde pessoal.

Seguinte sou novo no Delphi, e estou fazendo um sistema de ERP. O meu problema 
é o seguinte, quando vou emitir as minhas notas fiscais a primeira sai certo no 
lay-out da segunda pra frente ele desloca uma linha para cima a cada nota 
impressa, sendo que o tamanho do meu formulário está customizado para 215,00 mm 
de altura com 167,00 mm de largura.



RE: [delphi-br] Arredondar

2010-07-13 Por tôpico Bruno Lichot
Use a função simpleroudto da unit math

 

From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On 
Behalf Of joao_jma
Sent: terça-feira, 13 de julho de 2010 09:40
To: Undisclosed-Recipient:;
Subject: [delphi-br] Arredondar

 

  

Preciso atualizar o salário na base de dados de funcionários, aumentando em 8%

Preciso arredondar os valores sempre acima para não gravar centavos.

Alguma dica ???

Obrigado

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



 

Click here 
https://www.mailcontroller.altohiway.com/sr/Npc!Klh5vJ7TndxI!oX7UrSi!x6S!wnTPgXyHt6BO!WvnJiZb5KIfBJupdVbJNrQag+xV6SoGFCSBz4+TNYwIA==
  to report this email as spam.

This message has been scanned for viruses by MailController 
http://www.MailController.altohiway.com/ .



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



Re: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Daniel Azevedo
Cara como eu estou sem delphi no momento fiz uma rotina rapida aki q 
deve te dar uma luz
desculpe se ela nao funcionar corretamente, mas acho q vai te dar uma luz


while not Eof ( arq ) do
begin
   readln(arq,linha)
   for i:= 0 to Length(linha) do
   begin
   // verifica se é diferente de  =
  if linha[i] '' then
  begin
   // Verifica se a proxima poscicao é , 
que indica o final do campo =
 if (linha[i] + linha[i+1])  ',' then
valorValido := valor + linha[i]
 else
 begin
   // Trate o valor aki, grave no banco de 
dados =
 end;
  end;
   end;
end;


Ralp Alves Bezerra escreveu:
  

 Nobres colegas, estou tentando importar para o meu banco de dados um 
 arquivo
 no formato txt com o formato abaixo:

 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
 ,002,,33901400,100.000,00

 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
 ,002,,33901400,130.00

 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
 ,002,,33901400,1.000,00

 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
 ,003,,33903000,10.000,00

 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
 ,006,,33903900,100,00

 Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

 Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
 neste formato?

 Estou utilizando Delphi 7/Firebird 2.1

 Grato.

 Ralp Alves

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

 



__ Informação do ESET Smart Security, versão da vacina 5276 (20100713) 
__

A mensagem foi verificada pelo  ESET Smart Security.

http://www.eset.com





Res: [delphi-br] Delphi Prism

2010-07-13 Por tôpico Ray Silva
Caros, 

Essa questão foi levantada no último Delphi Tour 2010 no qual eu puder 
participar.

O Andreano disse que várias faculdades no Brasil ensinam Delphi (Object Pascal) 
e que eles tem parceria com faculdades.

Não vou questionar, contudo, eu não conheço nenhuma faculdade que ensine aqui 
na 
região.

Particularmente não gosto de Java e durante a faculdade (sou recém formado) só 
vimos Java, PHP, C# e C++. A faculdade também tinha parceria com a Microsoft e 
cada aluno tinha um pacote de softwares disponíveis (Dreamspark).

O mais interessante nisso, é que nós (recém-formados) temos a idéia de que 
Delphi é coisa do passado. Eu admito, eu mesmo tinha, mas quando comecei a 
trabalhar com o Delphi para saber como era e tirar minhas próprias conclusões, 
vi que estava totalmente errado.

Na minha opinião, a Embarcadero tem que ir no ninho, ou seja, nas faculdades 
e 
mostrar a todos as maravilhas que o Delphi proporciona.

Outra coisa é certificação. Sei muito pouco sobre o assunto quando se trata de 
Delphi.
 Jump off cliffs all the time and build your wings on the way down.





De: Nicolas nico...@qualitysystem.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 15:17:30
Assunto: Re: [delphi-br] Delphi Prism

  
Marcelo,

para você ter uma idéia, a faculdade onde eu leciono tem parceria com a 
Microsoft,
todos os alunos tem acesso aos produtos microsoft de desenvolvimento em versões 
oficiais e full para uso educacional.

A Embarcadero poderia fazer parcerias semelhantes com as universidades e 
faculdades, seria muito bem vindo.

Alexandre.

- Original Message - 
From: Fortes Marcelo 
To: delphi-br@yahoogrupos.com.br 
Cc: wchag...@bol.com.br 
Sent: Saturday, July 10, 2010 3:09 AM
Subject: Re: [delphi-br] Delphi Prism

Esta é outra grande verdade assino embaixo Walter. Acho que se existisse um
esforço dos representantes desse produto aqui na América Latina e outras
localidades de fornecer o Produto sem ônus para instituições de ensino, muita
coisa mudaria. mas eu acho que aí tem problemas de Marketing bem estruturado e
custo ...

As pessoas saem diplomadas nos cursos procurando oferta em Java por que saem
com o canudo da faculdade e onde os professores batem com o pé no chão
Java é o futuro!.

Se há oferta grande desses profissionais, por conseguinte uma oferta de
empresas procurando por esses profissionais também existe. 

Gostaria que o grande amigo Adreano Lanusse desse uma lida nisso !

Marcelo Fortes.

--- Em qui, 8/7/10, Walter Chagas (Bol) wchag...@bol.com.br escreveu:

De: Walter Chagas (Bol) wchag...@bol.com.br
Assunto: Re: [delphi-br] Delphi Prism
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 8 de Julho de 2010, 22:25

O problema maior é que não há muita divulgação do delphi atualmente. Pra voce 
ter uma ideia, muita gente conversa comigo e fala que o Delphi foi 
descontinuado 
porque a Borland não o fabrica mais..

Estas pessoas, nem sabiam da existencia da Embarcadero.

[]s

Walter Alves Chagas Junior

Belo Horizonte - MG - Brazil

wchag...@bol.com.br

http://delphitocorporerm.blogspot.com/

http://twitter.com/wchagas

MSN: whitesock...@hotmail.com

SKYPE: WalterChagasJr

- Original Message - 

From: Eny Urias 

To: delphi-br@yahoogrupos.com.br 

Sent: Thursday, July 08, 2010 10:06 PM

Subject: Res: [delphi-br] Delphi Prism

Entrando de gaiata na conversa quero deixar registrado o que me aconteceu há 

alguns dias.

Fui contratada por uma empresa para desenvolver um sistema em Delphi... 

Disseram, até o dia da contratação, que era difícil encontrar programador em 

Delphi aqui no interior e bla bla bla...

Um dia antes de começar na empresa me perguntaram se eu tinha conhecimento em 

.Net... Ãh? Como assim??? Não era Delphi?

Aí responderam Queremos mudar para .Net por causa de todo o respaldo que a 

Microft tem. Nós não podemos arriscar a começar um sistema utilizando um 

programa que a cada hora uma empresa é dona... Primeiro a Borland, depois A 

CodeGear, agora a Embarcadero... E daqui um tempo? Como vai ser? Preferimos 

mudar agora para que futuramente não sejamos pegos de surpresa...

Tem muita empresa pensando assim...

--

Eny Trova Urias

Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, 
mas 


um hábito- Aristóteles



De: Fortes Marcelo marcelosoftw...@yahoo.com.br

Para: delphi-br@yahoogrupos.com.br

Enviadas: Quinta-feira, 8 de Julho de 2010 21:41:23

Assunto: Re: Res: [delphi-br] Delphi Prism

.Net infelizmente é uma tendência que quer queiramos ou não nos é imposta 

compulssória, não se ganha nada com .Net, nada, mas é a tendência, a bola da 

vez... Queria ver umazinha aplicação da Microsoft em .Net, uma só, se é tão 

maravilhosa assim por que o pacote Office não é em C# por que o SQL Server 

não é reescrito em .Net??? A Microsoft vai desenvolver m C++ até o fim dos 

tempos é incrível como as pessoas não têem 

RES: [delphi-br] Clientdataset grava registro antigo em XML

2010-07-13 Por tôpico Gustavo Teruel
Coloque assim:

 

ClientDataSet.LogChanges:=False;

 

Acredito que irá funcionar.

 

Teruel

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Alisson
Enviada em: terça-feira, 13 de julho de 2010 12:05
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Clientdataset grava registro antigo em XML

 

  

Estou gerando um arquivo de configuração, e como é apenas um registro estou
usando um clientdataset e salvando em um xml. Estou usando
Clientdataset.LoadFromFile e ClientDataset.SaveToFile. Funciona normalmente,
mas o problema é que quando altero algum campo, o registro anterior é
guardado no xml, apesar do clientdataset sempre mostrar apenas um registro.
Dessa forma o tamanho do arquivo vai aumentando cada vez mais. Tem como
atualizar o registro sem guardar os dados antigos no XML?

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





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



[delphi-br] Dúvida com StringGrid

2010-07-13 Por tôpico Domingos
Olá, bom dia a todos

Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um
form, eu consigo criar um Array de StringGrids e setando o tamanho executar
o Create da classe TStringGrid, porém eles não são exibidos no form, alguém
pode me ajudar?


Eu utilizo Delphi 6


Obrigado

-- 
Att,
Domingos J. M. de Souza
GTalk / MSN: domingosp...@gmail.com
Skype: domingospawn

Imagination is more important than knowledge.  - Albert Einstein


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



Res: RES: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Marcelo


Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um 
separador padrão ai facaria muito mais facil de trabalhar



De: Ralp Alves Bezerra ral...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

  
Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato 100.000,00 que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
From: ral...@gmail.com mailto:ralprd%40gmail.com 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

Nobres colegas, estou tentando importar para o meu banco de dados um arquivo
no formato txt com o formato abaixo:

601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
,002,,33901400,100.000,00

601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
,002,,33901400,130.00

601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
,002,,33901400,1.000,00

601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
,003,,33903000,10.000,00

601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
,006,,33903900,100,00

Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
neste formato?

Estou utilizando Delphi 7/Firebird 2.1

Grato.

Ralp Alves

__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
VEJA COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:
Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

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

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


 


  

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



[delphi-br] OPORTUNIDADE ANALISTA DELPHI PARA O RIO DE JANEIRO

2010-07-13 Por tôpico Ana claudia Gondim
OPORTUNIDADE ANALISTA DELPHI PARA O RIO DE JANEIRO
Experiência:  Mínimo de 1 ano de experiência em desenvolvimento na plataforma 
Delphi (versão 5  em diante);
Desejável:
  · Experiência em especificação e levantamento de requisitos, 
utilizando-se de  UML como notação padrão;
  · Experiência em desenvolvimento N-Tier no Delphi 
(DataSnap/Midas) ;
Sólidos conhecimentos em SQL e PL/SQL(criação de Procedures, Functions,  
Triggers e etc.) ;
 Excelente oportunidade!!!
Currículos para anavaga...@yahoo. com.br




  

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



Re: RES: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Walter Chagas (Bol)
é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s
 
 
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr


  - Original Message - 
  From: Marcelo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 13, 2010 5:04 PM
  Subject: Res: RES: [delphi-br] Importação de Arquivo





  Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um 
  separador padrão ai facaria muito mais facil de trabalhar

  
  De: Ralp Alves Bezerra ral...@gmail.com
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
  Assunto: RES: [delphi-br] Importação de Arquivo

  Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
  das aspas duplas e delimitadas por vírgula.

  Existe um campo no formato 100.000,00 que também contém vírgulas em seu
  conteúdo.

  De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
  nome de Rubem Nascimento da Rocha
  Enviada em: terça-feira, 13 de julho de 2010 15:54
  Para: delphi-br
  Assunto: RE: [delphi-br] Importação de Arquivo
  Prioridade: Alta

  Qual é exatamente a sua dificuldade?

  Sds.

  To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
  From: ral...@gmail.com mailto:ralprd%40gmail.com 
  Date: Tue, 13 Jul 2010 15:50:44 -0300
  Subject: [delphi-br] Importação de Arquivo

  Nobres colegas, estou tentando importar para o meu banco de dados um arquivo
  no formato txt com o formato abaixo:

  601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
  ,002,,33901400,100.000,00

  601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
  ,002,,33901400,130.00

  601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
  ,002,,33901400,1.000,00

  601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
  ,003,,33903000,10.000,00

  601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
  ,006,,33903900,100,00

  Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

  Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
  neste formato?

  Estou utilizando Delphi 7/Firebird 2.1

  Grato.

  Ralp Alves

  __
  CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
  VEJA COMO.
  http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
  http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:
  Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
  ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

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

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

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



  

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



Re: RES: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Walter Chagas (Bol)
é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s
 
 
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr


  - Original Message - 
  From: Marcelo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 13, 2010 5:04 PM
  Subject: Res: RES: [delphi-br] Importação de Arquivo





  Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um 
  separador padrão ai facaria muito mais facil de trabalhar

  
  De: Ralp Alves Bezerra ral...@gmail.com
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
  Assunto: RES: [delphi-br] Importação de Arquivo

  Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
  das aspas duplas e delimitadas por vírgula.

  Existe um campo no formato 100.000,00 que também contém vírgulas em seu
  conteúdo.

  De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
  nome de Rubem Nascimento da Rocha
  Enviada em: terça-feira, 13 de julho de 2010 15:54
  Para: delphi-br
  Assunto: RE: [delphi-br] Importação de Arquivo
  Prioridade: Alta

  Qual é exatamente a sua dificuldade?

  Sds.

  To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
  From: ral...@gmail.com mailto:ralprd%40gmail.com 
  Date: Tue, 13 Jul 2010 15:50:44 -0300
  Subject: [delphi-br] Importação de Arquivo

  Nobres colegas, estou tentando importar para o meu banco de dados um arquivo
  no formato txt com o formato abaixo:

  601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
  ,002,,33901400,100.000,00

  601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
  ,002,,33901400,130.00

  601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
  ,002,,33901400,1.000,00

  601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
  ,003,,33903000,10.000,00

  601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
  ,006,,33903900,100,00

  Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

  Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
  neste formato?

  Estou utilizando Delphi 7/Firebird 2.1

  Grato.

  Ralp Alves

  __
  CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
  VEJA COMO.
  http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
  http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:
  Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
  ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

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

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

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



  

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



RES: [delphi-br] Arredondar

2010-07-13 Por tôpico Filippe Maymone
Cara .. 

 

Eu precisei fazer isto aqui e olhando o help do delphi consegui da seguinte
forma

Utilizei a função RondTo

Porem antes de utilizar eu mudei seu tipo

SetRoundMode(rmTruncate);

Desta forma a função RoundTo começa a ser do tipo Truncate e trucar os seus
valores.

 

 

Abraços,

 

 

 http://www.gecon.inf.br/ Gecon Cons. e Desen. de Sistemas Ltda.
Filippe Maymone
fili...@gecon.inf.br

fone: 11-22423065 / 11-41192856

Cel: 11-81663158

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de joao_jma
Enviada em: terça-feira, 13 de julho de 2010 09:40
Para: Undisclosed-Recipient:;
Assunto: [delphi-br] Arredondar

 

  

Preciso atualizar o salário na base de dados de funcionários, aumentando em
8%

Preciso arredondar os valores sempre acima para não gravar centavos.

Alguma dica ???

Obrigado

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





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



Res: RES: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Marcelo


tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.



De: Walter Chagas (Bol) wchag...@bol.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

  
é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr

- Original Message - 
From: Marcelo 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, July 13, 2010 5:04 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um 
separador padrão ai facaria muito mais facil de trabalhar


De: Ralp Alves Bezerra ral...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato 100.000,00 que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
From: ral...@gmail.com mailto:ralprd%40gmail.com 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

Nobres colegas, estou tentando importar para o meu banco de dados um arquivo
no formato txt com o formato abaixo:

601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
,002,,33901400,100.000,00

601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
,002,,33901400,130.00

601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
,002,,33901400,1.000,00

601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
,003,,33903000,10.000,00

601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
,006,,33903900,100,00

Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
neste formato?

Estou utilizando Delphi 7/Firebird 2.1

Grato.

Ralp Alves

__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
VEJA COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:
Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

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

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

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

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


 


  

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



Re: RES: [delphi-br] Importação de Arquiv o

2010-07-13 Por tôpico anckerdj
Ralp Alves Bezerra wrote:
 Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
 das aspas duplas e delimitadas por vírgula.

  

 Existe um campo no formato 100.000,00 que também contém vírgulas em seu
 conteúdo.

   
601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
,002,,33901400,100.000,00


Use um parser simples (autômato) e vai funcionar sempre.

[]'s
marcelo



RES: RES: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Rubem Rocha
Eu leria linha-a-linha, e cada linha lida retiraria todas as aspas! Depois,
usaria o bom e velho TStringList pra separar os dados da linha, usando as
propriedades DelimitedText e Delimiter.

 

Sds.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de anckerdj
Enviada em: terça-feira, 13 de julho de 2010 16:38
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

 

  

Ralp Alves Bezerra wrote:
 Não estou conseguindo montar uma rotina para pegar os dados contidos
dentro
 das aspas duplas e delimitadas por vírgula.

 

 Existe um campo no formato 100.000,00 que também contém vírgulas em seu
 conteúdo.

 
601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
,002,,33901400,100.000,00

Use um parser simples (autômato) e vai funcionar sempre.

[]'s



 



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



Re: [delphi-br] Clientdataset grava registro antigo em XML

2010-07-13 Por tôpico Alisson
Gustavo, funcionou. Só tenho que ter o cuidado de colocar o código logo após a 
abertura do Clientdataset. Se colocar após editar o client não funciona. Valeu, 
muito obrigado!


Alisson





- Original Message - 
From: Gustavo Teruel 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, July 13, 2010 12:39 PM
Subject: RES: [delphi-br] Clientdataset grava registro antigo em XML

Coloque assim:

ClientDataSet.LogChanges:=False;
Acredito que irá funcionar.

Teruel


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



Re: RES: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Walter Chagas (Bol)
Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String (que são delimitados por aspas duplas) pode vir apenas um valor float. 
Mas e se vier dois ou mais na sequência?? Veja o caso abaixo:

601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2
,002,,33901400,130.00

como ficaria este caso?




[]s
 
 
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr


  - Original Message - 
  From: Marcelo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 13, 2010 5:29 PM
  Subject: Res: RES: [delphi-br] Importação de Arquivo





  tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos 
valores 
  decimais não será substituida. Ai ele terá um separador padrão o ponto e 
  virgula. depois fica facil.

  
  De: Walter Chagas (Bol) wchag...@bol.com.br
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
  Assunto: Re: RES: [delphi-br] Importação de Arquivo

  é mas e a virgula dos valores decimais??

  É um enigma essa parada daí.

  []s

  Walter Alves Chagas Junior
  Belo Horizonte - MG - Brazil
  wchag...@bol.com.br
  http://delphitocorporerm.blogspot.com/
  http://twitter.com/wchagas
  MSN: whitesock...@hotmail.com
  SKYPE: WalterChagasJr

  - Original Message - 
  From: Marcelo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, July 13, 2010 5:04 PM
  Subject: Res: RES: [delphi-br] Importação de Arquivo

  Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um 
  separador padrão ai facaria muito mais facil de trabalhar

  
  De: Ralp Alves Bezerra ral...@gmail.com
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
  Assunto: RES: [delphi-br] Importação de Arquivo

  Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
  das aspas duplas e delimitadas por vírgula.

  Existe um campo no formato 100.000,00 que também contém vírgulas em seu
  conteúdo.

  De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
  nome de Rubem Nascimento da Rocha
  Enviada em: terça-feira, 13 de julho de 2010 15:54
  Para: delphi-br
  Assunto: RE: [delphi-br] Importação de Arquivo
  Prioridade: Alta

  Qual é exatamente a sua dificuldade?

  Sds.

  To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
  From: ral...@gmail.com mailto:ralprd%40gmail.com 
  Date: Tue, 13 Jul 2010 15:50:44 -0300
  Subject: [delphi-br] Importação de Arquivo

  Nobres colegas, estou tentando importar para o meu banco de dados um arquivo
  no formato txt com o formato abaixo:

  601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
  ,002,,33901400,100.000,00

  601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
  ,002,,33901400,130.00

  601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
  ,002,,33901400,1.000,00

  601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
  ,003,,33903000,10.000,00

  601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
  ,006,,33903900,100,00

  Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

  Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
  neste formato?

  Estou utilizando Delphi 7/Firebird 2.1

  Grato.

  Ralp Alves

  __
  CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
  VEJA COMO.
  http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
  http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:
  Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
  ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

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

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

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

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

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



  

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



RES: RES: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Rubem Rocha
Simples! Faz um StringReplace() na linha lida fazendo as seguintes trocas:

 

1)  De [,”] para [;]

2)  De [“,] para [;]

3)  De [“,”] para [;]

 

Assim, a linha lida terá os valores dos campos delimitados por ponto-e-vírgula! 
Bem mais fácil pra ler, não?

 

Sds.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Walter Chagas (Bol)
Enviada em: terça-feira, 13 de julho de 2010 17:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

 

  

Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String (que são delimitados por aspas duplas) pode vir apenas um valor float. 
Mas e se vier dois ou mais na sequência?? Veja o caso abaixo:

601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2
,002,,33901400,130.00

como ficaria este caso?

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com 
SKYPE: WalterChagasJr

- Original Message - 
From: Marcelo 
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Sent: Tuesday, July 13, 2010 5:29 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.


De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br 
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com 
SKYPE: WalterChagasJr

- Original Message - 
From: Marcelo 
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Sent: Tuesday, July 13, 2010 5:04 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um 
separador padrão ai facaria muito mais facil de trabalhar


De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com 
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato 100.000,00 que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] 
Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
mailto:delphi-br%40yahoogrupos.com.br 
From: ral...@gmail.com mailto:ralprd%40gmail.com  mailto:ralprd%40gmail.com 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

Nobres colegas, estou tentando importar para o meu banco de dados um arquivo
no formato txt com o formato abaixo:

601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
,002,,33901400,100.000,00

601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
,002,,33901400,130.00

601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
,002,,33901400,1.000,00

601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
,003,,33903000,10.000,00

601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
,006,,33903900,100,00

Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
neste formato?

Estou utilizando Delphi 7/Firebird 2.1

Grato.

Ralp Alves




 



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



RES: RES: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Rubem Rocha
Em termos de código, ficaria assim:

 

{ Troca as virgulas e aspas por ponto-e-vírgula }

function NormalizaLinha(sLinha: string): string;

begin

  Result := sLinha;

  Result := StringReplace(Result, ',', ';', [rfReplaceAll]);

  Result := StringReplace(Result, ',', ';',  [rfReplaceAll]);

  Result := StringReplace(Result, ',', ';',  [rfReplaceAll]);

end;

 

procedure ImportarArquivo(NomeArquivo: string);

var

  sLinha: string;

  lArquivo, lLinha: TStringList;

begin

  if not FileExists(NomeArquivo) then

Exit;

  lArquivo := TStringList.Create;

  try

lArquivo.LoadFromFile(NomeArquivo);

while lArquivo.Count  0 do

begin

  if not Assigned(lLinha) then

  begin

lLinha := TStringList.Create;

lLinha.Delimiter := ';';

  end;

  sLinha := NormalizeLinha(lArquivo[0]);

  lLinha.DelimitedText := sLinha;

 

  { Aqui, o StringList lLinha contém, em cada posição

dentro dele, um valor separado. Aqui, poste o código

para efetuar a importação do registro!  }

 

  lArquivo.Delete(0);

end;

  finally

if Assigned(lLinha) then lLinha.Free;

lArquivo.Free;

  end;

end;

 

Sds.

 

 

 

De: Rubem Rocha [mailto:rubem.ro...@dtmanaus.com.br] 
Enviada em: terça-feira, 13 de julho de 2010 17:15
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: RES: RES: [delphi-br] Importação de Arquivo
Prioridade: Alta

 

Simples! Faz um StringReplace() na linha lida fazendo as seguintes trocas:

 

1)  De [,”] para [;]

2)  De [“,] para [;]

3)  De [“,”] para [;]

 

Assim, a linha lida terá os valores dos campos delimitados por ponto-e-vírgula! 
Bem mais fácil pra ler, não?

 

Sds.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Walter Chagas (Bol)
Enviada em: terça-feira, 13 de julho de 2010 17:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

 

  

Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String (que são delimitados por aspas duplas) pode vir apenas um valor float. 
Mas e se vier dois ou mais na sequência?? Veja o caso abaixo:

601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2
,002,,33901400,130.00

como ficaria este caso?

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com 
SKYPE: WalterChagasJr

- Original Message - 
From: Marcelo 
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Sent: Tuesday, July 13, 2010 5:29 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.


De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br 
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br 
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com 
SKYPE: WalterChagasJr

- Original Message - 
From: Marcelo 
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
Sent: Tuesday, July 13, 2010 5:04 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um 
separador padrão ai facaria muito mais facil de trabalhar


De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com 
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato 100.000,00 que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] 
Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br  
mailto:delphi-br%40yahoogrupos.com.br 
From: ral...@gmail.com mailto:ralprd%40gmail.com  mailto:ralprd%40gmail.com 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: 

[delphi-br] DataRequest não dispara

2010-07-13 Por tôpico Jhosef Marks
Galera boa noite.

É o seguinte, estou tentando usar o método DataRequest do ClientDataSet e do
DataSetProvider.

Pelo que entendi, quando eu executo o comando CDSPesquisa.Data
:= CDSPesquisa.DataRequest(Pesquisa); o evento OnDataRequest do
DataSetProvider deveria disparar e eu iria poder manipular meus SQLDataSet
nesse evento, mas acontece que não está sendo disparado esse evento...
existe algum flag que precisa ser alterado ou alguma outra coisa?

Estava fazendo isso com o BeforeGetRecords passando valores pelo OwnerData
(OleVariant) mas o problema é que o tenho que ter os valores disponiveis
para esse evento, ou seja, o meu datamodule tem que ver os meus edits do
formulário ou tenho que usar variaveis globais...

Alguém tem alguma dica para usar o DataRequest de forma correta???

Att,

Jhosef Marks de Carvalho
Blog: http://www.jhosefmarks.com.br
Jesus está voltando

E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar
a minha face e se converter dos seus maus caminhos, então eu ouvirei dos
céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14)


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



Res: RES: RES: [delphi-br] Importação de Ar quivo

2010-07-13 Por tôpico Jean Barreiros
segue a forma de você resolver: 
(
Eu coloquei um ClientDatSet no form e criei 15 Fields chamdos: 
campo1...2..3..4..15 como string
e campo16 como Float, os tamanhos são de acordo a cada campo do txt
)

procedure TForm1.Button1Click(Sender: TObject);
var arq: TextFile; linha:string;
begin
  ClientDataSet1.CreateDataSet;
  AssignFile(arq,'dados.txt');
  Reset(arq);
  while not Eof(arq) do
  begin
ClientDataSet1.Append;
ReadLn(arq,linha);//Ler os dados da linha;
linha := StringReplace(linha,',',';',[rfReplaceAll]);
linha := StringReplace(linha,'','',[rfReplaceAll]);
//Delete(linha,1,1);//apaga a 1ª aspas duplas;
ClientDataSet1.Fields[0].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[1].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[2].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[3].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[4].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[5].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[6].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[7].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[8].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[9].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[10].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[11].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[12].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[13].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
ClientDataSet1.Fields[14].AsString := Copy(linha,1,Pos(';',linha)-1);
Delete(linha,1,Pos(';',linha));
linha := StringReplace(linha,'.','',[rfReplaceAll]);//Transforma os '.' em 
',' para separar a casa de milar;
linha := StringReplace(linha,';',',',[rfReplaceAll]);//Transforma os ';' em 
'.' para separar a casa decimal;
ClientDataSet1.Fields[15].AsFloat := 
StrToFloat(linha);//FormatFloat('###,###,#0.00',StrToFloat(linha));
ClientDataSet1.Post;
  end;
end;

espero ter ajudado.
 ===
Jean Barreiros
  Programador/Web-Designer
  Delphi|C++|PHP|JavaScript
  FireBird|MySql|SQLServer
  PostGree|Oracle
  msn: delphij...@gmail.com
  e-mail: delphij...@yahoo.com.br
===





De: Rubem Rocha rubem.ro...@dtmanaus.com.br
Para: Rubem Rocha rubem.ro...@dtmanaus.com.br; delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 18:20:12
Assunto: RES: RES: [delphi-br] Importação de Arquivo

  
Em termos de código, ficaria assim:

{ Troca as virgulas e aspas por ponto-e-vírgula }

function NormalizaLinha(sLinha: string): string;

begin

Result := sLinha;

Result := StringReplace(Result, ',', ';', [rfReplaceAll]);

Result := StringReplace(Result, ',', ';',  [rfReplaceAll]);

Result := StringReplace(Result, ',', ';',  [rfReplaceAll]);

end;

procedure ImportarArquivo(NomeArquivo: string);

var

sLinha: string;

lArquivo, lLinha: TStringList;

begin

if not FileExists(NomeArquivo) then

Exit;

lArquivo := TStringList.Create;

try

lArquivo.LoadFromFile(NomeArquivo);

while lArquivo.Count  0 do

begin

if not Assigned(lLinha) then

begin

lLinha := TStringList.Create;

lLinha.Delimiter := ';';

end;

sLinha := NormalizeLinha(lArquivo[0]);

lLinha.DelimitedText := sLinha;

{ Aqui, o StringList lLinha contém, em cada posição

dentro dele, um valor separado. Aqui, poste o código

para efetuar a importação do registro!  }

lArquivo.Delete(0);

end;

finally

if Assigned(lLinha) then lLinha.Free;

lArquivo.Free;

end;

end;

Sds.

De: Rubem Rocha [mailto:rubem.ro...@dtmanaus.com.br] 
Enviada em: terça-feira, 13 de julho de 2010 17:15
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: RES: RES: [delphi-br] Importação de Arquivo
Prioridade: Alta

Simples! Faz um StringReplace() na linha lida fazendo as seguintes trocas:

1)  De [,”] para [;]

2)  De [“,] para [;]

3)  De [“,”] para [;]

Assim, a linha lida terá os valores dos campos delimitados por ponto-e-vírgula! 
Bem mais fácil pra ler, não?

Sds.

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome 
de Walter Chagas (Bol)
Enviada em: terça-feira, 13 de julho de 2010 17:06
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Importação de Arquivo

Não não não não.

Da forma 

Re: [delphi-br] Delphi Prism

2010-07-13 Por tôpico Fortes Marcelo
 Concordo em Gênero, Número e Grau!!!Era bom dar essa dica ao nosso amigo 
Adreano Lanusse não sei se ele está acompanhando nossa thread. Ele é o cara de 
Marketing da Embarcadero na America Latina.



--- Em ter, 13/7/10, Nicolas nico...@qualitysystem.com.br escreveu:

De: Nicolas nico...@qualitysystem.com.br
Assunto: Re: [delphi-br] Delphi Prism
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 13 de Julho de 2010, 15:17















 
 



  



  
  
  Marcelo,



para você ter uma idéia, a faculdade onde eu leciono tem parceria com a 
Microsoft,

todos os alunos tem acesso aos produtos microsoft de desenvolvimento em versões 
oficiais e full para uso educacional.



A Embarcadero poderia fazer parcerias semelhantes com as universidades e 
faculdades, seria muito bem vindo.



Alexandre.



- Original Message - 

  From: Fortes Marcelo 

  To: delphi-br@yahoogrupos.com.br 

  Cc: wchag...@bol.com.br 

  Sent: Saturday, July 10, 2010 3:09 AM

  Subject: Re: [delphi-br] Delphi Prism



Esta é outra grande verdade assino embaixo Walter. Acho que se existisse um

  esforço dos representantes desse produto aqui na América Latina e outras

  localidades de fornecer o Produto sem ônus para instituições de ensino, muita

  coisa mudaria. mas eu acho que aí tem problemas de Marketing bem estruturado e

  custo ...



As pessoas saem diplomadas nos cursos procurando oferta em Java por que saem

  com o canudo da faculdade e onde os professores batem com o pé no chão

  Java é o futuro!.



Se há oferta grande desses profissionais, por conseguinte uma oferta de

  empresas procurando por esses profissionais também existe. 



Gostaria que o grande amigo Adreano Lanusse desse uma lida nisso !



Marcelo Fortes.



--- Em qui, 8/7/10, Walter Chagas (Bol) wchag...@bol.com.br escreveu:



De: Walter Chagas (Bol) wchag...@bol.com.br

  Assunto: Re: [delphi-br] Delphi Prism

  Para: delphi-br@yahoogrupos.com.br

  Data: Quinta-feira, 8 de Julho de 2010, 22:25



O problema maior é que não há muita divulgação do delphi atualmente. Pra voce 
ter uma ideia, muita gente conversa comigo e fala que o Delphi foi 
descontinuado porque a Borland não o fabrica mais..



Estas pessoas, nem sabiam da existencia da Embarcadero.



[]s



Walter Alves Chagas Junior



Belo Horizonte - MG - Brazil



wchag...@bol.com.br



http://delphitocorporerm.blogspot.com/



http://twitter.com/wchagas



MSN: whitesock...@hotmail.com



SKYPE: WalterChagasJr



- Original Message - 



From: Eny Urias 



To: delphi-br@yahoogrupos.com.br 



Sent: Thursday, July 08, 2010 10:06 PM



Subject: Res: [delphi-br] Delphi Prism



Entrando de gaiata na conversa quero deixar registrado o que me aconteceu há 



alguns dias.



Fui contratada por uma empresa para desenvolver um sistema em Delphi... 



Disseram, até o dia da contratação, que era difícil encontrar programador em 



Delphi aqui no interior e bla bla bla...



Um dia antes de começar na empresa me perguntaram se eu tinha conhecimento em 



.Net... Ãh? Como assim??? Não era Delphi?



Aí responderam Queremos mudar para .Net por causa de todo o respaldo que a 



Microft tem. Nós não podemos arriscar a começar um sistema utilizando um 



programa que a cada hora uma empresa é dona... Primeiro a Borland, depois A 



CodeGear, agora a Embarcadero... E daqui um tempo? Como vai ser? Preferimos 



mudar agora para que futuramente não sejamos pegos de surpresa...



Tem muita empresa pensando assim...



--



Eny Trova Urias



Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, 
mas 



um hábito- Aristóteles







De: Fortes Marcelo marcelosoftw...@yahoo.com.br



Para: delphi-br@yahoogrupos.com.br



Enviadas: Quinta-feira, 8 de Julho de 2010 21:41:23



Assunto: Re: Res: [delphi-br] Delphi Prism



.Net infelizmente é uma tendência que quer queiramos ou não nos é imposta 



compulssória, não se ganha nada com .Net, nada, mas é a tendência, a bola da 



vez... Queria ver umazinha aplicação da Microsoft em .Net, uma só, se é tão 



maravilhosa assim por que o pacote Office não é em C# por que o SQL Server 



não é reescrito em .Net??? A Microsoft vai desenvolver m C++ até o fim dos 



tempos é incrível como as pessoas não têem crítica, não pensam, aceitam tudo e 



pronto é o futuro, afirmam.



Vou te ajudar, o Prism é uma impelmentação da linguagem Object Pascal para .Net 



qaue agora é inserida no Visual Studio como um plugin, para os programadores 



Delphi que estão acostumados com a sintaxe do Object Pascal. Ele adiciona um 



monte de outros templates e coisas a mais que o Visual Studio não tem na caixa 



de projetos, Além de recusros na linguagem que o C# não tem como Class 
contracts 



que é excelente.



Mas a embarcadero está fazendo justamente o Jogo certo não deixando o Delphi 



perder sua essência com o Delphi 2010 fazendo aplicações nativas. Não brigando 



Re: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Prisma - GMAIL
  Walter,

Acredito que o StringReplace resolva a parada sem problemas:

MeuTextoCorrigido :=  StringReplace(MeuTexto,',',';',[rfReplaceAll]);


Sucesso !!

Moacir

Em 13/07/2010 17:09, Walter Chagas (Bol) escreveu:
 é mas e a virgula dos valores decimais??

 É um enigma essa parada daí.

 []s


 Walter Alves Chagas Junior
 Belo Horizonte - MG - Brazil
 wchag...@bol.com.br
 http://delphitocorporerm.blogspot.com/
 http://twitter.com/wchagas
 MSN: whitesock...@hotmail.com
 SKYPE: WalterChagasJr


- Original Message -
From: Marcelo
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, July 13, 2010 5:04 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo





Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um
separador padrão ai facaria muito mais facil de trabalhar


De: Ralp Alves Bezerraral...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato 100.000,00 que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.brmailto:delphi-br%40yahoogrupos.com.br
From: ral...@gmail.commailto:ralprd%40gmail.com
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

Nobres colegas, estou tentando importar para o meu banco de dados um 
 arquivo
no formato txt com o formato abaixo:


 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
,002,,33901400,100.000,00


 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
,002,,33901400,130.00


 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
,002,,33901400,1.000,00


 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
,003,,33903000,10.000,00


 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
,006,,33903900,100,00

Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
neste formato?

Estou utilizando Delphi 7/Firebird 2.1

Grato.

Ralp Alves

__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
VEJA COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2

 http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:
Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

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

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

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





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



 




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



Re: [delphi-br] Delphi Prism

2010-07-13 Por tôpico Leonardo Quinino
Uma decisão muito errada que achei que eles fizeram foi acabar com os
produtos da linha turbo, que equivalem aos express da Microsoft, que são
versões limitadas dos produtos, (não se pode instalar nenhum componente
adicional), mas funciona perfeito, para gerar aplicativos, eu sou um dos que
resolveu dedicar o meu estudo com o delphi, depois de aprender muita coisa
com as versões turbo.

2010/7/13 Fortes Marcelo marcelosoftw...@yahoo.com.br



  Concordo em Gênero, Número e Grau!!!Era bom dar essa dica ao nosso amigo
 Adreano Lanusse não sei se ele está acompanhando nossa thread. Ele é o cara
 de Marketing da Embarcadero na America Latina.

 --- Em ter, 13/7/10, Nicolas 
 nico...@qualitysystem.com.brnicolas%40qualitysystem.com.br
 escreveu:

 De: Nicolas nico...@qualitysystem.com.br nicolas%40qualitysystem.com.br
 

 Assunto: Re: [delphi-br] Delphi Prism
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Data: Terça-feira, 13 de Julho de 2010, 15:17




 Marcelo,

 para você ter uma idéia, a faculdade onde eu leciono tem parceria com a
 Microsoft,

 todos os alunos tem acesso aos produtos microsoft de desenvolvimento em
 versões oficiais e full para uso educacional.

 A Embarcadero poderia fazer parcerias semelhantes com as universidades e
 faculdades, seria muito bem vindo.

 Alexandre.

 - Original Message -

 From: Fortes Marcelo

 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br

 Cc: wchag...@bol.com.br wchagasj%40bol.com.br

 Sent: Saturday, July 10, 2010 3:09 AM

 Subject: Re: [delphi-br] Delphi Prism

 Esta é outra grande verdade assino embaixo Walter. Acho que se existisse um

 esforço dos representantes desse produto aqui na América Latina e outras

 localidades de fornecer o Produto sem ônus para instituições de ensino,
 muita

 coisa mudaria. mas eu acho que aí tem problemas de Marketing bem
 estruturado e

 custo ...

 As pessoas saem diplomadas nos cursos procurando oferta em Java por que
 saem

 com o canudo da faculdade e onde os professores batem com o pé no chão

 Java é o futuro!.

 Se há oferta grande desses profissionais, por conseguinte uma oferta de

 empresas procurando por esses profissionais também existe.

 Gostaria que o grande amigo Adreano Lanusse desse uma lida nisso !

 Marcelo Fortes.

 --- Em qui, 8/7/10, Walter Chagas (Bol) 
 wchag...@bol.com.brwchagasj%40bol.com.br
 escreveu:

 De: Walter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.br

 Assunto: Re: [delphi-br] Delphi Prism

 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br

 Data: Quinta-feira, 8 de Julho de 2010, 22:25

 O problema maior é que não há muita divulgação do delphi atualmente. Pra
 voce ter uma ideia, muita gente conversa comigo e fala que o Delphi foi
 descontinuado porque a Borland não o fabrica mais..

 Estas pessoas, nem sabiam da existencia da Embarcadero.

 []s

 Walter Alves Chagas Junior

 Belo Horizonte - MG - Brazil

 wchag...@bol.com.br wchagasj%40bol.com.br

 http://delphitocorporerm.blogspot.com/

 http://twitter.com/wchagas

 MSN: whitesock...@hotmail.com whitesockets%40hotmail.com

 SKYPE: WalterChagasJr

 - Original Message -

 From: Eny Urias

 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br

 Sent: Thursday, July 08, 2010 10:06 PM

 Subject: Res: [delphi-br] Delphi Prism

 Entrando de gaiata na conversa quero deixar registrado o que me aconteceu
 há

 alguns dias.

 Fui contratada por uma empresa para desenvolver um sistema em Delphi...

 Disseram, até o dia da contratação, que era difícil encontrar programador
 em

 Delphi aqui no interior e bla bla bla...

 Um dia antes de começar na empresa me perguntaram se eu tinha conhecimento
 em

 .Net... Ãh? Como assim??? Não era Delphi?

 Aí responderam Queremos mudar para .Net por causa de todo o respaldo
 que a

 Microft tem. Nós não podemos arriscar a começar um sistema utilizando um

 programa que a cada hora uma empresa é dona... Primeiro a Borland, depois A


 CodeGear, agora a Embarcadero... E daqui um tempo? Como vai ser? Preferimos


 mudar agora para que futuramente não sejamos pegos de surpresa...

 Tem muita empresa pensando assim...

 --

 Eny Trova Urias

 Somos o que repetitivamente fazemos, portanto, a excelência não é um
 feito, mas

 um hábito- Aristóteles

 

 De: Fortes Marcelo 
 marcelosoftw...@yahoo.com.brmarcelosoftware%40yahoo.com.br
 

 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br

 Enviadas: Quinta-feira, 8 de Julho de 2010 21:41:23

 Assunto: Re: Res: [delphi-br] Delphi Prism

 .Net infelizmente é uma tendência que quer queiramos ou não nos é imposta

 compulssória, não se ganha nada com .Net, nada, mas é a tendência, a bola
 da

 vez... Queria ver umazinha aplicação da Microsoft em .Net, uma só, se é tão


 maravilhosa assim por que o pacote Office não é em C# por que o SQL
 Server

 não é reescrito em .Net??? A Microsoft vai desenvolver m C++ até o fim dos

 tempos é 

Res: [delphi-br] Delphi Prism

2010-07-13 Por tôpico Jean Barreiros
Não entendo porque essa questão ta se estendendo tanto.
Eu não sou a favor da pirataria não até porque minha 
licença é Original (o Bruno Lichot sabe disso).
mas, sei que a maioria dos programadores do Brasil 
usam ou já usarão uma versão pirata,
Então, quando o cara quer testar ou até produzir
com versão pirata não pergunta a Embarcadero se pode.
então vamos parar com essa.

Minha opinião.

 ===
Jean Barreiros
  Programador/Web-Designer
  Delphi|C++|PHP|JavaScript
  FireBird|MySql|SQLServer
  PostGree|Oracle
  msn: delphij...@gmail.com
  e-mail: delphij...@yahoo.com.br
===





De: Leonardo Quinino leonardo.quin...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 20:27:10
Assunto: Re: [delphi-br] Delphi Prism

Uma decisão muito errada que achei que eles fizeram foi acabar com os
produtos da linha turbo, que equivalem aos express da Microsoft, que são
versões limitadas dos produtos, (não se pode instalar nenhum componente
adicional), mas funciona perfeito, para gerar aplicativos, eu sou um dos que
resolveu dedicar o meu estudo com o delphi, depois de aprender muita coisa
com as versões turbo.

2010/7/13 Fortes Marcelo marcelosoftw...@yahoo.com.br



  Concordo em Gênero, Número e Grau!!!Era bom dar essa dica ao nosso amigo
 Adreano Lanusse não sei se ele está acompanhando nossa thread. Ele é o cara
 de Marketing da Embarcadero na America Latina.

 --- Em ter, 13/7/10, Nicolas 
nico...@qualitysystem.com.brnicolas%40qualitysystem.com.br
 escreveu:

 De: Nicolas nico...@qualitysystem.com.br nicolas%40qualitysystem.com.br
 

 Assunto: Re: [delphi-br] Delphi Prism
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Data: Terça-feira, 13 de Julho de 2010, 15:17




 Marcelo,

 para você ter uma idéia, a faculdade onde eu leciono tem parceria com a
 Microsoft,

 todos os alunos tem acesso aos produtos microsoft de desenvolvimento em
 versões oficiais e full para uso educacional.

 A Embarcadero poderia fazer parcerias semelhantes com as universidades e
 faculdades, seria muito bem vindo.

 Alexandre.

 - Original Message -

 From: Fortes Marcelo

 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br

 Cc: wchag...@bol.com.br wchagasj%40bol.com.br

 Sent: Saturday, July 10, 2010 3:09 AM

 Subject: Re: [delphi-br] Delphi Prism

 Esta é outra grande verdade assino embaixo Walter. Acho que se existisse um

 esforço dos representantes desse produto aqui na América Latina e outras

 localidades de fornecer o Produto sem ônus para instituições de ensino,
 muita

 coisa mudaria. mas eu acho que aí tem problemas de Marketing bem
 estruturado e

 custo ...

 As pessoas saem diplomadas nos cursos procurando oferta em Java por que
 saem

 com o canudo da faculdade e onde os professores batem com o pé no chão

 Java é o futuro!.

 Se há oferta grande desses profissionais, por conseguinte uma oferta de

 empresas procurando por esses profissionais também existe.

 Gostaria que o grande amigo Adreano Lanusse desse uma lida nisso !

 Marcelo Fortes.

 --- Em qui, 8/7/10, Walter Chagas (Bol) 
wchag...@bol.com.brwchagasj%40bol.com.br
 escreveu:

 De: Walter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.br

 Assunto: Re: [delphi-br] Delphi Prism

 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br

 Data: Quinta-feira, 8 de Julho de 2010, 22:25

 O problema maior é que não há muita divulgação do delphi atualmente. Pra
 voce ter uma ideia, muita gente conversa comigo e fala que o Delphi foi
 descontinuado porque a Borland não o fabrica mais..

 Estas pessoas, nem sabiam da existencia da Embarcadero.

 []s

 Walter Alves Chagas Junior

 Belo Horizonte - MG - Brazil

 wchag...@bol.com.br wchagasj%40bol.com.br

 http://delphitocorporerm.blogspot.com/

 http://twitter.com/wchagas

 MSN: whitesock...@hotmail.com whitesockets%40hotmail.com

 SKYPE: WalterChagasJr

 - Original Message -

 From: Eny Urias

 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br

 Sent: Thursday, July 08, 2010 10:06 PM

 Subject: Res: [delphi-br] Delphi Prism

 Entrando de gaiata na conversa quero deixar registrado o que me aconteceu
 há

 alguns dias.

 Fui contratada por uma empresa para desenvolver um sistema em Delphi...

 Disseram, até o dia da contratação, que era difícil encontrar programador
 em

 Delphi aqui no interior e bla bla bla...

 Um dia antes de começar na empresa me perguntaram se eu tinha conhecimento
 em

 .Net... Ãh? Como assim??? Não era Delphi?

 Aí responderam Queremos mudar para .Net por causa de todo o respaldo
 que a

 Microft tem. Nós não podemos arriscar a começar um sistema utilizando um

 programa que a cada hora uma empresa é dona... Primeiro a Borland, depois A


 CodeGear, agora a Embarcadero... E daqui um tempo? Como vai ser? Preferimos


 mudar agora para que futuramente não sejamos pegos de surpresa...

 Tem 

Res: RES: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Marcelo


Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como 
separação. Já trabalhei comarquivos txt parecido com este mas todos os campos 
vinham separados por aspas duplas. Agora este caso tem que analisar um pouco.
De: sWalter Chagas (Bol) wchag...@bol.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16
Assunto: Re: RES: [delphi-br] Importação de Arquivo
  
Não não não não.

Da forma como você está propondo, voce supoe que entre os valores do tipo 
String 
(que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se 
vier dois ou mais na sequência?? Veja o caso abaixo:

601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2
,002,,33901400,130.00

como ficaria este caso?

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr

- Original Message - 
From: Marcelo 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, July 13, 2010 5:29 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores 
decimais não será substituida. Ai ele terá um separador padrão o ponto e 
virgula. depois fica facil.


De: Walter Chagas (Bol) wchag...@bol.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
Assunto: Re: RES: [delphi-br] Importação de Arquivo

é mas e a virgula dos valores decimais??

É um enigma essa parada daí.

[]s

Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr

- Original Message - 
From: Marcelo 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, July 13, 2010 5:04 PM
Subject: Res: RES: [delphi-br] Importação de Arquivo

Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um 
separador padrão ai facaria muito mais facil de trabalhar


De: Ralp Alves Bezerra ral...@gmail.com
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
Assunto: RES: [delphi-br] Importação de Arquivo

Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
das aspas duplas e delimitadas por vírgula.

Existe um campo no formato 100.000,00 que também contém vírgulas em seu
conteúdo.

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: terça-feira, 13 de julho de 2010 15:54
Para: delphi-br
Assunto: RE: [delphi-br] Importação de Arquivo
Prioridade: Alta

Qual é exatamente a sua dificuldade?

Sds.

To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
From: ral...@gmail.com mailto:ralprd%40gmail.com 
Date: Tue, 13 Jul 2010 15:50:44 -0300
Subject: [delphi-br] Importação de Arquivo

Nobres colegas, estou tentando importar para o meu banco de dados um arquivo
no formato txt com o formato abaixo:

601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
,002,,33901400,100.000,00

601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
,002,,33901400,130.00

601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
,002,,33901400,1.000,00

601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
,003,,33903000,10.000,00

601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
,006,,33903900,100,00

Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
neste formato?

Estou utilizando Delphi 7/Firebird 2.1

Grato.

Ralp Alves

__
CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
VEJA COMO.
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2
http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:
Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-
ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:-

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

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

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

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

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

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


 


  

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



Re: [delphi-br] Dúvida com StringGrid

2010-07-13 Por tôpico Alisson
Eu não entendi o que você quis dizer com setando o tamanho executar o Create 
da classe TStringGrid. Mas, de qualquer maneira talvez o exemplo abaixo possa 
ajudar.




unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
  private
{ Private declarations }
Grids : Array of TStringGrid;
  public
{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   SetLength(Grids, Length(Grids) + 1);
   Grids[Length(Grids)-1] := TStringGrid.Create(Self);
   Grids[Length(Grids)-1].Parent := Self;
   Grids[Length(Grids)-1].Top := Length(Grids) * 50;
   Grids[Length(Grids)-1].Left := Length(Grids) * 50;
end;

end.



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



Re: RES: [delphi-br] Importação de Arquivo

2010-07-13 Por tôpico Dirlei Dionísio
É só parsear o conteúdo byte a byte pra identificar o que está dentro de
aspas duplas. Se for encontrada uma aspa dupla, você sabe que até que uma
outra aspa dupla seja encontrada, uma eventual vírgula fará parte do dado.


--
Dirlei Dionísio
Novo artigo: 5 dicas para aproveitar sua inteligência e criatividade
http://MaisQueBomCodigo.blogspot.com


Em 13 de julho de 2010 21:06, Marcelo leite_rom...@yahoo.com.br escreveu:





 Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como
 separação. Já trabalhei comarquivos txt parecido com este mas todos os
 campos
 vinham separados por aspas duplas. Agora este caso tem que analisar um
 pouco.
 De: sWalter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.br

 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16

 Assunto: Re: RES: [delphi-br] Importação de Arquivo

 Não não não não.

 Da forma como você está propondo, voce supoe que entre os valores do tipo
 String
 (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas
 e se
 vier dois ou mais na sequência?? Veja o caso abaixo:


 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2
 ,002,,33901400,130.00

 como ficaria este caso?

 []s

 Walter Alves Chagas Junior
 Belo Horizonte - MG - Brazil
 wchag...@bol.com.br wchagasj%40bol.com.br
 http://delphitocorporerm.blogspot.com/
 http://twitter.com/wchagas
 MSN: whitesock...@hotmail.com whitesockets%40hotmail.com
 SKYPE: WalterChagasJr

 - Original Message -
 From: Marcelo
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Tuesday, July 13, 2010 5:29 PM
 Subject: Res: RES: [delphi-br] Importação de Arquivo

 tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos
 valores
 decimais não será substituida. Ai ele terá um separador padrão o ponto e
 virgula. depois fica facil.

 
 De: Walter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.br
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01
 Assunto: Re: RES: [delphi-br] Importação de Arquivo

 é mas e a virgula dos valores decimais??

 É um enigma essa parada daí.

 []s

 Walter Alves Chagas Junior
 Belo Horizonte - MG - Brazil
 wchag...@bol.com.br wchagasj%40bol.com.br
 http://delphitocorporerm.blogspot.com/
 http://twitter.com/wchagas
 MSN: whitesock...@hotmail.com whitesockets%40hotmail.com
 SKYPE: WalterChagasJr

 - Original Message -
 From: Marcelo
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Tuesday, July 13, 2010 5:04 PM
 Subject: Res: RES: [delphi-br] Importação de Arquivo

 Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um

 separador padrão ai facaria muito mais facil de trabalhar

 
 De: Ralp Alves Bezerra ral...@gmail.com ralprd%40gmail.com
 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57
 Assunto: RES: [delphi-br] Importação de Arquivo

 Não estou conseguindo montar uma rotina para pegar os dados contidos dentro
 das aspas duplas e delimitadas por vírgula.

 Existe um campo no formato 100.000,00 que também contém vírgulas em seu
 conteúdo.

 De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
 delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
 nome de Rubem Nascimento da Rocha
 Enviada em: terça-feira, 13 de julho de 2010 15:54
 Para: delphi-br
 Assunto: RE: [delphi-br] Importação de Arquivo
 Prioridade: Alta

 Qual é exatamente a sua dificuldade?

 Sds.

 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:
 delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
 From: ral...@gmail.com ralprd%40gmail.com 
 mailto:ralprd%40gmail.comralprd%2540gmail.com

 Date: Tue, 13 Jul 2010 15:50:44 -0300
 Subject: [delphi-br] Importação de Arquivo

 Nobres colegas, estou tentando importar para o meu banco de dados um
 arquivo
 no formato txt com o formato abaixo:


 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2
 ,002,,33901400,100.000,00


 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2
 ,002,,33901400,130.00


 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2
 ,002,,33901400,1.000,00


 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2
 ,003,,33903000,10.000,00


 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2
 ,006,,33903900,100,00

 Já vasculhei a net e até o momento ainda não consegui nenhum êxito.

 Algum dos nobres colegas já efetuou este tipo de importação com um arquivo
 neste formato?

 Estou utilizando Delphi 7/Firebird 2.1

 Grato.

 Ralp Alves

 __
 CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E
 VEJA COMO.
 

Re: [delphi-br] Dúvida com StringGrid

2010-07-13 Por tôpico Dirlei Dionísio
Deve estar faltando configurar a propriedade Parent dos StringGrids.


--
Dirlei Dionísio
Novo artigo: 5 dicas para aproveitar sua inteligência e criatividade
http://MaisQueBomCodigo.blogspot.com


Em 13 de julho de 2010 10:32, Domingos domingosp...@gmail.com escreveu:



 Olá, bom dia a todos

 Estou com a seguinte dúvida, preciso criar dinamicamente StringGrids em um
 form, eu consigo criar um Array de StringGrids e setando o tamanho executar
 o Create da classe TStringGrid, porém eles não são exibidos no form, alguém
 pode me ajudar?

 Eu utilizo Delphi 6

 Obrigado

 --
 Att,
 Domingos J. M. de Souza
 GTalk / MSN: domingosp...@gmail.com domingospawn%40gmail.com
 Skype: domingospawn

 Imagination is more important than knowledge. - Albert Einstein


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

  



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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

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




Re: [delphi-br] Delphi Prism

2010-07-13 Por tôpico Ricardo César Cardoso
Somos dois... Juro que fiquei feliz no dia em que tomei conhecimento de que a 
linha Turbo estava sendo lançada. Pensei que aquilo seria um marco. Pena que 
não foi adiante...

Tomara que a Embarcadero tenha algum programa de parceria com faculdades. 
Adoraria conhecer alguma instituição atendidade pelo programa, sinceramente.

Abraços,
Ricardo.

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!


--- Em ter, 13/7/10, Leonardo Quinino leonardo.quin...@gmail.com escreveu:

 De: Leonardo Quinino leonardo.quin...@gmail.com
 Assunto: Re: [delphi-br] Delphi Prism
 Para: delphi-br@yahoogrupos.com.br
 Data: Terça-feira, 13 de Julho de 2010, 20:27
 Uma decisão muito errada que achei
 que eles fizeram foi acabar com os
 produtos da linha turbo, que equivalem aos express da
 Microsoft, que são
 versões limitadas dos produtos, (não se pode instalar
 nenhum componente
 adicional), mas funciona perfeito, para gerar aplicativos,
 eu sou um dos que
 resolveu dedicar o meu estudo com o delphi, depois de
 aprender muita coisa
 com as versões turbo.
 
 2010/7/13 Fortes Marcelo marcelosoftw...@yahoo.com.br
 
 
 
   Concordo em Gênero, Número e Grau!!!Era bom
 dar essa dica ao nosso amigo
  Adreano Lanusse não sei se ele está acompanhando
 nossa thread. Ele é o cara
  de Marketing da Embarcadero na America Latina.
 
  --- Em ter, 13/7/10, Nicolas 
  nico...@qualitysystem.com.brnicolas%40qualitysystem.com.br
  escreveu:
 
  De: Nicolas nico...@qualitysystem.com.br
 nicolas%40qualitysystem.com.br
  
 
  Assunto: Re: [delphi-br] Delphi Prism
  Para: delphi-br@yahoogrupos.com.br
 delphi-br%40yahoogrupos.com.br
  Data: Terça-feira, 13 de Julho de 2010, 15:17
 
 
 
 
  Marcelo,
 
  para você ter uma idéia, a faculdade onde eu leciono
 tem parceria com a
  Microsoft,
 
  todos os alunos tem acesso aos produtos microsoft de
 desenvolvimento em
  versões oficiais e full para uso educacional.
 
  A Embarcadero poderia fazer parcerias semelhantes com
 as universidades e
  faculdades, seria muito bem vindo.
 
  Alexandre.
 
  - Original Message -
 
  From: Fortes Marcelo
 
  To: delphi-br@yahoogrupos.com.br
 delphi-br%40yahoogrupos.com.br
 
  Cc: wchag...@bol.com.br
 wchagasj%40bol.com.br
 
  Sent: Saturday, July 10, 2010 3:09 AM
 
  Subject: Re: [delphi-br] Delphi Prism
 
  Esta é outra grande verdade assino embaixo Walter.
 Acho que se existisse um
 
  esforço dos representantes desse produto aqui na
 América Latina e outras
 
  localidades de fornecer o Produto sem ônus para
 instituições de ensino,
  muita
 
  coisa mudaria. mas eu acho que aí tem problemas de
 Marketing bem
  estruturado e
 
  custo ...
 
  As pessoas saem diplomadas nos cursos procurando
 oferta em Java por que
  saem
 
  com o canudo da faculdade e onde os professores batem
 com o pé no chão
 
  Java é o futuro!.
 
  Se há oferta grande desses profissionais, por
 conseguinte uma oferta de
 
  empresas procurando por esses profissionais também
 existe.
 
  Gostaria que o grande amigo Adreano Lanusse desse uma
 lida nisso !
 
  Marcelo Fortes.
 
  --- Em qui, 8/7/10, Walter Chagas (Bol) 
  wchag...@bol.com.brwchagasj%40bol.com.br
  escreveu:
 
  De: Walter Chagas (Bol) wchag...@bol.com.br
 wchagasj%40bol.com.br
 
  Assunto: Re: [delphi-br] Delphi Prism
 
  Para: delphi-br@yahoogrupos.com.br
 delphi-br%40yahoogrupos.com.br
 
  Data: Quinta-feira, 8 de Julho de 2010, 22:25
 
  O problema maior é que não há muita divulgação do
 delphi atualmente. Pra
  voce ter uma ideia, muita gente conversa comigo e fala
 que o Delphi foi
  descontinuado porque a Borland não o fabrica mais..
 
  Estas pessoas, nem sabiam da existencia da
 Embarcadero.
 
  []s
 
  Walter Alves Chagas Junior
 
  Belo Horizonte - MG - Brazil
 
  wchag...@bol.com.br
 wchagasj%40bol.com.br
 
  http://delphitocorporerm.blogspot.com/
 
  http://twitter.com/wchagas
 
  MSN: whitesock...@hotmail.com
 whitesockets%40hotmail.com
 
  SKYPE: WalterChagasJr
 
  - Original Message -
 
  From: Eny Urias
 
  To: delphi-br@yahoogrupos.com.br
 delphi-br%40yahoogrupos.com.br
 
  Sent: Thursday, July 08, 2010 10:06 PM
 
  Subject: Res: [delphi-br] Delphi Prism
 
  Entrando de gaiata na conversa quero deixar
 registrado o que me aconteceu
  há
 
  alguns dias.
 
  Fui contratada por uma empresa para desenvolver um
 sistema em Delphi...
 
  Disseram, até o dia da contratação, que era
 difícil encontrar programador
  em
 
  Delphi aqui no interior e bla bla bla...
 
  Um dia antes de começar na empresa me perguntaram se
 eu tinha conhecimento
  em
 
  .Net... Ãh? Como assim??? Não era Delphi?
 
  Aí responderam Queremos mudar para .Net por
 causa de todo o respaldo
  que a
 
  Microft tem. Nós não podemos arriscar a começar um
 sistema utilizando um
 
  programa que a cada hora uma empresa é dona...
 Primeiro a Borland, depois A
 
 
  

Re: Res: [delphi-br] Delphi Prism

2010-07-13 Por tôpico Ricardo César Cardoso
Mas seria interessante dar uma alternativa como o lado negro da força faz, não?

Think about.

 Abraços,
Ricardo.

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
compreendida.

3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em ter, 13/7/10, Jean Barreiros delphij...@yahoo.com.br escreveu:

De: Jean Barreiros delphij...@yahoo.com.br
Assunto: Res: [delphi-br] Delphi Prism
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 13 de Julho de 2010, 21:12







 



  



  
  
  Não entendo porque essa questão ta se estendendo tanto.

Eu não sou a favor da pirataria não até porque minha 

licença é Original (o Bruno Lichot sabe disso).

mas, sei que a maioria dos programadores do Brasil 

usam ou já usarão uma versão pirata,

Então, quando o cara quer testar ou até produzir

com versão pirata não pergunta a Embarcadero se pode.

então vamos parar com essa.



Minha opinião.



===

Jean Barreiros

  Programador/Web-Designer

  Delphi|C++|PHP|JavaScript

  FireBird|MySql|SQLServer

  PostGree|Oracle

  msn: delphij...@gmail.com

  e-mail: delphij...@yahoo.com.br

===





De: Leonardo Quinino leonardo.quin...@gmail.com

Para: delphi-br@yahoogrupos.com.br

Enviadas: Terça-feira, 13 de Julho de 2010 20:27:10

Assunto: Re: [delphi-br] Delphi Prism



Uma decisão muito errada que achei que eles fizeram foi acabar com os

produtos da linha turbo, que equivalem aos express da Microsoft, que são

versões limitadas dos produtos, (não se pode instalar nenhum componente

adicional), mas funciona perfeito, para gerar aplicativos, eu sou um dos que

resolveu dedicar o meu estudo com o delphi, depois de aprender muita coisa

com as versões turbo.



2010/7/13 Fortes Marcelo marcelosoftw...@yahoo.com.br







  Concordo em Gênero, Número e Grau!!!Era bom dar essa dica ao nosso amigo

 Adreano Lanusse não sei se ele está acompanhando nossa thread. Ele é o cara

 de Marketing da Embarcadero na America Latina.



 --- Em ter, 13/7/10, Nicolas 

nico...@qualitysystem.com.brnicolas%40qualitysystem.com.br

 escreveu:



 De: Nicolas nico...@qualitysystem.com.br nicolas%40qualitysystem.com.br

 



 Assunto: Re: [delphi-br] Delphi Prism

 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br

 Data: Terça-feira, 13 de Julho de 2010, 15:17









 Marcelo,



 para você ter uma idéia, a faculdade onde eu leciono tem parceria com a

 Microsoft,



 todos os alunos tem acesso aos produtos microsoft de desenvolvimento em

 versões oficiais e full para uso educacional.



 A Embarcadero poderia fazer parcerias semelhantes com as universidades e

 faculdades, seria muito bem vindo.



 Alexandre.



 - Original Message -



 From: Fortes Marcelo



 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br



 Cc: wchag...@bol.com.br wchagasj%40bol.com.br



 Sent: Saturday, July 10, 2010 3:09 AM



 Subject: Re: [delphi-br] Delphi Prism



 Esta é outra grande verdade assino embaixo Walter. Acho que se existisse um



 esforço dos representantes desse produto aqui na América Latina e outras



 localidades de fornecer o Produto sem ônus para instituições de ensino,

 muita



 coisa mudaria. mas eu acho que aí tem problemas de Marketing bem

 estruturado e



 custo ...



 As pessoas saem diplomadas nos cursos procurando oferta em Java por que

 saem



 com o canudo da faculdade e onde os professores batem com o pé no chão



 Java é o futuro!.



 Se há oferta grande desses profissionais, por conseguinte uma oferta de



 empresas procurando por esses profissionais também existe.



 Gostaria que o grande amigo Adreano Lanusse desse uma lida nisso !



 Marcelo Fortes.



 --- Em qui, 8/7/10, Walter Chagas (Bol) 

wchag...@bol.com.brwchagasj%40bol.com.br

 escreveu:



 De: Walter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.br



 Assunto: Re: [delphi-br] Delphi Prism



 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br



 Data: Quinta-feira, 8 de Julho de 2010, 22:25



 O problema maior é que não há muita divulgação do delphi atualmente. Pra

 voce ter uma ideia, muita gente conversa comigo e fala que o Delphi foi

 descontinuado porque a Borland não o fabrica mais..



 Estas pessoas, nem sabiam da existencia da Embarcadero.



 []s



 Walter Alves Chagas Junior



 Belo Horizonte - MG - Brazil



 wchag...@bol.com.br wchagasj%40bol.com.br



 http://delphitocorporerm.blogspot.com/



 http://twitter.com/wchagas



 MSN: whitesock...@hotmail.com whitesockets%40hotmail.com



 SKYPE: WalterChagasJr



 - Original Message -



 From: Eny Urias



 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br



 Sent: Thursday, July 08, 2010 10:06 PM



 Subject: Res: [delphi-br] Delphi Prism



 Entrando de gaiata na conversa quero deixar 

Re: [delphi-br] Problema com FireBird Ajuda urgente

2010-07-13 Por tôpico Fabiano Moura
*Leonardo, boa noite!*

  Meu chefe autorizou, me passa seu e-mail que te passo o telefone para
acertarmos o mais rápido possível!


*Obrigado,*
*
*
*Fabiano*

Em 12 de julho de 2010 23:15, Fabiano Moura mctbra...@gmail.com escreveu:

 Boa noite!

   Leonardo, estou aguardo a resposta do meu chefe, amanhã cedo terei a
 resposta dele e se terá um custo ou não, caso consiguemos fazer a
 recuperação do banco.



 Obrigado,

 Fabiano

 Em 12 de julho de 2010 13:13, Leonardo Baldino 
 portaldoinfe...@gmail.comescreveu:

 entuam por favor ve se tem esse possibilidade.

 Em 12 de julho de 2010 11:55, Fabiano Moura mctbra...@gmail.com
 escreveu:

 
 
  *Bom dia!*
 
  Desculpe na demora em responder, mas deu problema na minha internet em
  casa, é o seguinte, eu até tenho o programa, mas o programa é pago e
  registrado para a empresa que trabalho, então seria anti-ético da minha
  parte de mandar o programa, o que posso fazer é ver na empresa se eles
  autorizam e se teria um custo ou não, aí você mandaria o banco e eu
  tentaria
  recuperar para você, mas antes preciso ver com a empresa que trabalho e
 ver
  com o responsável (DBA) se ele autoriza eu fazer, senão, se for ele,
 quanto
  ele cobraria para fazer isso!
 
  *Obrigado,*
  *
  *
  *Fabiano*
 
  Em 10 de julho de 2010 00:04, Leonardo Baldino
  portaldoinfe...@gmail.com portaldoinferno%40gmail.comescreveu:
 
   Cara se vc puder passar o programa vc estaria me ajudando muito
  
   Em 9 de julho de 2010 08:25, Fellipe Henrique felli...@gmail.com
 fellipeh%40gmail.com
  
   escreveu:
  
   
   
Caso queira, eu tenho o programa, se a base não for muito grande..
 :o),
posso tentar arrumar para você...
   
Todo o caso o nome do programa é FBFirstAID, entre outros...
   
[]s
   
2010/7/8 Eduardo Silva dos Santos eduardo@gmail.com
 eduardo.drd%40gmail.com
  eduardo.drd%
   40gmail.com
 

   
   
 Tenta o GFix e se apega a Deus pra dar certo.


 Att,
 ...
 Eduardo Silva dos Santos
 DRD SISTEMAS
 (27) 3218-4201
 (27) 9961-7095
 MSN: eduardo@gmail.com eduardo.drd%40gmail.com
 eduardo.drd%
  40gmail.com
 
 Site: http://www.drdsistemas.com.br/
 ...


 Em 8 de julho de 2010 19:01, Leonardo Baldino
 portaldoinfe...@gmail.com portaldoinferno%40gmail.com
 portaldoinferno%
  40gmail.comescreveu:
 

 
 
  sempre que eu tento conectar no meu banco de dados
 
  apareceu o seguinte erro
 
  Unsuccessful execution caused by a system error that precludes
  successful execution of subsequent statements.
  database file appears corrupt (O:\SGP\00\SYSFDB.FDB).
  wrong page type.
  page 512 is of wrong type (expected 5, found 0).
 
  alguem sabe como eu faço para corrigir esse problema, porque eu
  naum
 tenho
  backup do banco
 
  --
  Leonardo Carlos Baldino - The Highlander
 
  [As partes desta mensagem que não continham texto foram
 removidas]
 
 
 


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



 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 




   
--
_
T.·.F.·.A.·.
Fellipe Henrique
http://blogs.digitumsoft.com.br/fellipeh
--
   
   
[As partes desta mensagem que não continham texto foram removidas]
   
   
   
  
  
  
   --
   Leonardo Carlos Baldino - The Highlander
  
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
   
  
   --
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
  
  
  
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 



 --
 Leonardo Carlos Baldino - The Highlander


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



 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 







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