Re: [delphi-br] Importação ignora 1ª linha do arquivo
Na parte:
procedure TfrmSIMNE.CriarDataSet;
var
i: integer;
lLinhaDados: TStringList;
begin
{ Cria o ClientDataSet }
fCdsDadosTratados := TClientDataSet.Create(Self);
{ Define os campos que o ClientDataSet terá }
with fCdsDadosTratados.FieldDefs do
for i := 1 to 16 do
Add(Format('Campo%2.2d', [i]), ftString, 40);
como sao os itens do ClientDataSet, entao, faca:
for i := 0 to Count(fCdsDadosTratados.FieldDefs)-1 do
e por ai vai.
***
*** Cláudio Duarte S. de Moraes ***
** Gerente de T. I. ***
*** Magazine Sapatos ***
** (82) 2121-0323 ***
** (82) 9101-7609***
** skype: claudio.dsm**
***
--- Em sex, 23/7/10, Ralp Alves Bezerra ral...@gmail.com escreveu:
De: Ralp Alves Bezerra ral...@gmail.com
Assunto: [delphi-br] Importação ignora 1ª linha do arquivo
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 23 de Julho de 2010, 10:11
Nobres colegas,
Recentemente tive um problema com a importação de um
arquivo.
Com a ajuda dos nobres colegas e o envio de um exemplo pelo
Walter, consegui
sanar o problema.
A importação foi realizada. Porém, fazendo uma analise
mais detalhada, notei
que primeira linha do arquivo nunca é importada. Fica
sempre faltando o
primeiro registro do arquivo.
Estou postando abaixo o código utilizado. Se alguns dos
nobres colegas poder
me ajudar fico grato.
Abraço.
unit ufAnaliseDados;
interface
uses
Classes, Forms, DB, Controls, Grids, DBGrids,
DBClient, DBXpress, FMTBcd,
DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl,
Buttons, ExtCtrls,
XiPanel, Dialogs, JvDialogs, XiProgressBar;
type
TfrmSIMNE = class(TForm)
XiPanel1: TXiPanel;
btImportar: TSpeedButton;
dbgDados: TDBGrid;
DBGrid1: TDBGrid;
srcDados: TDataSource;
JvOpenDialog1: TJvOpenDialog;
Barra: TXiProgressBar;
procedure btImportarClick(Sender: TObject);
private
fDadosTratados: TStringList;
fCdsDadosTratados: TClientDataSet;
procedure PrepararDados;
procedure AnalisarArquivo;
procedure CriarDataSet;
procedure LiberarDados;
public
constructor Create(AOwner: TComponent);
override;
destructor Destroy; override;
end;
var
frmSIMNE: TfrmSIMNE;
implementation
uses SysUtils, uDM, uImportaProcesso;
{$R *.dfm}
{ TfrmAnaliseDados }
procedure TfrmSIMNE.CriarDataSet;
var
i: integer;
lLinhaDados: TStringList;
begin
{ Cria o ClientDataSet }
fCdsDadosTratados := TClientDataSet.Create(Self);
{ Define os campos que o ClientDataSet terá }
with fCdsDadosTratados.FieldDefs do
for i := 1 to 16 do
Add(Format('Campo%2.2d', [i]),
ftString, 40);
{ Cria o ClientDataset com os campos definidos }
fCdsDadosTratados.CreateDataSet;
{ Preenche o ClientDataSet com os dados tratados }
lLinhaDados := TStringList.Create;
try
lLinhaDados.Delimiter := ',';
lLinhaDados.QuoteChar := '';
while fDadosTratados.Count 0 do
begin
fCdsDadosTratados.Append;
lLinhaDados.DelimitedText :=
fDadosTratados[0];
for i := 0 to 15 do
fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];
fDadosTratados.Delete(0);
end;
finally
lLinhaDados.Free;
end;
{ Vincula o ClientDataSet ao DataSource associado ao
DBGrid }
srcDados.DataSet := fCdsDadosTratados;
end;
procedure TfrmSIMNE.AnalisarArquivo;
var
lQtde, lCampos: integer;
lArquivo, lLinhaDados: TStringList;
sLinhaDados: string;
begin
If JvOpenDialog1.Execute then
Begin
lArquivo := TStringList.Create;
try
lArquivo.LoadFromFile(JvOpenDialog1.FileName);
lCampos := 0;
lLinhaDados := TStringList.Create;
try
lLinhaDados.Delimiter := ',';
while lArquivo.Count 0 do
begin
sLinhaDados :=
lArquivo[0];
lLinhaDados.DelimitedText := sLinhaDados;
lLinhaDados.QuoteChar :=
'';
lQtde :=
lLinhaDados.Count;
if lCampos = 0 then
lCampos := lQtde
else if lQtde
lCampos then
raise
Exception.CreateFmt(
'Quantidade de campos das linhas de dados é variável.' +
sLineBreak
+ sLineBreak +
sLinhaDados +
sLineBreak
+ sLineBreak +
'(%d
%d).', [lQtde, lCampos])
else
fDadosTratados.Add(sLinhaDados);
lArquivo.Delete(0);
end;
finally
lLinhaDados.Free;
end;
finally
lArquivo.Free;
end;
Re: [delphi-br] Delphi 6, 7 ou 2006?
Cocordo em numero, genero e grau com o pessoal da Embarcadero (para nao citar nomes) que a versao do Delphi 2006 eh muito melhor, rapida e estavel que o Delphi 7. Erros, todos tem, ainda mais que a versao em relacao aa 7 eh muito maior. Entretanto, tudo eh resolvido com updates. Mas o que mais me impressiona, eh a quantidade de pessoas que falam do Delphi 7 melhor que qualquer outra versao posterior. Eu tento ha um bom tempo convencer um colega que usa ainda o D7 para o seus trabalhos dos ganhos das novas versoes, mas como ele nao pega pra valer uma versao mais nova, entao, ele nao pode nunca enxergar a questao da evolucao do software. Todas as vezes, recebo a desculpa que eh ruim, gasta memoria, eh pesado, tem bug, etc. Mas ele NUNCA utilizou o Delphi 2006 por mais que 6 meses de forma direta. Isto eh, pegando do zero ou portando um outro programa e comecando a SOH TRABALHAR na nova versao. Nao faz este test drive. Assim, nao tem como ele ver as melhorias. Eh extremamente extranho (com xis mesmo) imaginar que trocamos de carro (um antigo por um novo), de celular (idem), de sistema operacional (serah que alguem ainda estah bradando para os 7 ventos que o Windows 98 eh melhor que o XP ou o 7?), de TV (serah que a imagem daquela TV de tubo de 20' eh melhor que aquela de LED da Samsung de 52'?). Assim, incrivelmente, temos inumeras pessoas que ainda nao experimentaram mudar do D7 para toda e qualquer versao do D20xx e perceber qual eh o futuro, do poder da IDE nova frente a antiga. Desde 2005, usava o D6/D7 e o D2005. Nossa, com bug ou nao, erah muito grande a diferenca. Muito melhor, mais rapida e produtiva. A empresa comprou o D2006, nossa, foi o auge. A empresa comprou o D2007, minha impressao foi otima. D6/D7? Em 2007 eu jah nao via a cara deles desde meados de 2005. Nunca senti falta. NUNCA. Soh usando 100% do dia a versao nova para perceber a diferenca de ambiente. Claro, ter que reaprender a utilizar dbExpress das versoes 2006 e 2007/2009/2010, eh uma boa ladeira, mas compensa totalmente. *** *** Cláudio Duarte S. de Moraes *** ** Gerente de T. I. *** *** Magazine Sapatos *** ** (82) 2121-0323 *** ** (82) 9101-7609*** ** skype: claudio.dsm** *** --- Em ter, 20/7/10, Marcos Alexandre Lemos Rodrigues marcosalexandre.rodrig...@gmail.com escreveu: De: Marcos Alexandre Lemos Rodrigues marcosalexandre.rodrig...@gmail.com Assunto: Re: [delphi-br] Delphi 6, 7 ou 2006? Para: delphi-br@yahoogrupos.com.br Data: Terça-feira, 20 de Julho de 2010, 9:26 Coloco uma posição técnica que posso sustentar com fatos pensando no bem do usuário. técnica e parcial, já que vem de um funcionário da Embarcadero, né Bruno ;) hehehhehe Em recursos o Delphi 2006 tem bem mais avanços, isso ninguém nega. Mas o número de conhecidos que tiveram problemas como o que enfrentei são grandes. Aqui mesmo na lista e nos fórums de Delphi, se pesquisarmos não é difícil encontrar Em 20 de julho de 2010 09:14, Bruno Lichot bruno.lic...@microfocus.comescreveu: Ninguém ta execrando o Delphi 7, mas não é verdade que seja melhor que o 2006. Coloco uma posição técnica que posso sustentar com fatos pensando no bem do usuário. Eu falo como quem usou cada uma das versões e usei a 2006 nem mesmo trabalhava para Borland. Experimentei em ambiente critico e fui muito feliz em migrar do Delphi 7 para 2006. E posso atestar que houve significativa melhora na performance, nos recursos disponíveis, na gestão de projetos e no compilador, em correções da linguagem e em um ambiente mais produtivo e completo que o Delphi 7. From: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br[mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] On Behalf Of Prisma - GMAIL Sent: terça-feira, 20 de julho de 2010 09:04 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Delphi 6, 7 ou 2006? Julio, Eu migraria pro 7 sem nem pestanejar.. Mesmo sendo ultrapassado, descontinuado, execrado pelo pessoal da Embarcadero, é NA MINHA OPINIÃO, a melhor versão do Delphi que já lançaram. Alem de ter zilhoes de componentes compativeis e em permanente atualização (esqueceram de avisar as empresas que desenvolvem componentes que o Delphi 7 ta ultrapassado...). Vou ressaltar de novo: NA MINHA OPINIÃO. Sucesso !! Moacir Em 20/07/2010 08:43, Softbyte Sistemas escreveu: Boa Sorte Pra Voce Então Bruno! mito ? bom aqui mesmo na lista eu nunca li post de Delphi 4,6 ou 8 From: Bruno Lichot Sent: Monday, July 19, 2010 9:46 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br Subject: RE: [delphi-br] Delphi 6, 7 ou 2006?
Re: [delphi-br] DbxOra para Win7
Corretissimo, escapou na ansia de tentar ajudar, imaginando alguma perda do outro lado e nem considerando a versao do sistema delphi do nosso colega. Entao, continuando: tendo a versao correta com suporte aa DLL, o sistema gerado terah acesso sem problema ao Oracle utilizando Windows 7 (x32/x64). Entretanto, eh necessario ter o cliente do banco de dados Oracle instalado na maquina cliente (por conta do OCI.DLL e outros), e o arquivo TNSNAMES.ORA contendo corretamente o 'atalho' ou 'apelido' do banco de dados configurado na tua aplicacao. Se nao estiver encontrando o arquivo, entao, o jeito serah re-instalar o Delphi na maquina. ***br*** Cláudio Duarte S. de Moraes ***br** Gerente de T. I. ***br*** Magazine Sapatos ***br** (82) 2121-0323 ***br** (82) 9101-7609 ***br** skype: claudio.dsm **br***br --- Em sex, 2/7/10, Murilo Cunha mcscu...@yahoo.com.br escreveu: De: Murilo Cunha mcscu...@yahoo.com.br Assunto: Re: [delphi-br] DbxOra para Win7 Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 2 de Julho de 2010, 15:52 Andreano, OK. Entendido. Entao, poderiam me informar se alguem conseguiu acesso ao Oracle com DBX em Win7?? Obrigado MuriloCunha On 02/07/2010 14:53, Andreano Lanusse wrote: Cláudio isso que você está propondo é PIRATARIA. Acesso dbx com Oracle está disponível nas versões Enterprise e Architect, se vocês tem uma versão legalizada irá encontrar os arquivos na pasta BIN e poderá fazer o deploy junto com sua aplicação, desde que tenha uma cópia legal do Delphi. []'s Andreano Lanusse Product Line Manager Lead Evangelist Latin America Embarcadero Technologies Blog: http://www.andreanolanusse.com Twitter: http://twitter.com/andreanolanusse -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Cláudio Duarte S. Moraes Sent: Friday, July 02, 2010 10:33 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] DbxOra para Win7 Ele eh especifico para cada versao do Delphi. Ele deve estar sempre na pasta /bin do teu Delphi. Qual a versao do delphi que voce ou o programa estah usando? Apos isto, posso te enviar a versao via pvt. Tenho a versao do Delphi 2010 no momento, mas tenho outras versoes em backup. ***br*** Cláudio Duarte S. de Moraes ***br** Gerente de T. I. ***br*** Magazine Sapatos ***br** (82) 2121-0323 ***br** (82) 9101-7609 ***br** skype: claudio.dsm **br***br --- Em sex, 2/7/10, Murilo Cunhamcscu...@yahoo.com.br escreveu: De: Murilo Cunhamcscu...@yahoo.com.br Assunto: [delphi-br] DbxOra para Win7 Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 2 de Julho de 2010, 10:30 Pessoal, Estou procurando o arquivo DBXORA.DLL para Windows7, alguem poderia me passar? Ou indicar onde posso baixar. Obrigado, MuriloCunha -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: [delphi-br] DbxOra para Win7
Ele eh especifico para cada versao do Delphi. Ele deve estar sempre na pasta /bin do teu Delphi. Qual a versao do delphi que voce ou o programa estah usando? Apos isto, posso te enviar a versao via pvt. Tenho a versao do Delphi 2010 no momento, mas tenho outras versoes em backup. ***br*** Cláudio Duarte S. de Moraes ***br** Gerente de T. I. ***br*** Magazine Sapatos ***br** (82) 2121-0323 ***br** (82) 9101-7609 ***br** skype: claudio.dsm **br***br --- Em sex, 2/7/10, Murilo Cunha mcscu...@yahoo.com.br escreveu: De: Murilo Cunha mcscu...@yahoo.com.br Assunto: [delphi-br] DbxOra para Win7 Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 2 de Julho de 2010, 10:30 Pessoal, Estou procurando o arquivo DBXORA.DLL para Windows7, alguem poderia me passar? Ou indicar onde posso baixar. Obrigado, MuriloCunha -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
