[delphi-br] Verificar data
Colegas, Como existem n tipos de confirgurações de data , preciso fazer com que meu sistema aceite e interprete somente um tipo DD/MM/YY. Como fazer isso, pois tenho vários procedimentos em que preciso pegar data do servidor, e data dos arquivos que irei utilizar. Alguem sabe como fazer isso ? Sds Denis FELIZ NATAL -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Manipulando Arquivo texto
Não é este o problema, ja'fiz isto e continua dando erro. Parece que ele não atualiza a pasta antes de buscar o arquivo e ai ele nao o encontra . Só depois de dar um f5 com a aplicação fechada que resolve. --- Em [EMAIL PROTECTED], Depto de Informatica [EMAIL PROTECTED] escreveu Pode ser por causa do nome da pasta \Arquivos Exportados tive problemas com nome-composto para a pasta destino. Experimente deixar esta pasta com um nome simples (Ex.: ArquivosExportados). Espero ter ajudado. Luiz Carlos - Original Message - From: MEB To: firebase-br ; [EMAIL PROTECTED] ; Delphi / Lista ; delphi-br Sent: Thursday, November 18, 2004 4:37 PM Subject: [delphi-br] Manipulando Arquivo texto To nisso desde as 11:00 e nao consegui resolver, preciso criar um arquivo texto para gravar dados da minha base, ele cria o arquivo ,mas ele não consegue gravar(da erro na linha que esta marcada com **), somente deposi de fechar a aplicacao e abrir novamente é que ele consegue gravar no arquivo gerado. Segue parte do código, ...if not (ExportaDados.Prepared)then ExportaDados.prepare; ExportaDados.open; path:= 'C:\BaseAudi\Arquivos Exportados\'; if not DirectoryExists(Path) then CreateDir(Path); NomArquivo:= glbCodigocolab +' '+combobox1.text+'- '+combobox2.text+ '.txt'; if not FileExists(Path + NomArquivo) then FileCreate(Path + NomArquivo); AssignFile(Arquivo, Path + NomArquivo); **Rewrite(Arquivo); Exportadados.First; while not exportadados.Eof do begin... sds Denis [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Manipulando Arquivo texto
sim estou fechando o arquivo, vou colocar todo código e a linha que
esta com a seta é que gera erro.
procedure TFexportar.BitBtnPesClick(Sender: TObject);
var
Path, NomArquivo: String;
Arquivo: TextFile;
begin
if RadioGroup1.ItemIndex = 0 then
begin
try
Screen.cursor:=CRSQLwait;
ExportaDados.Close;
ExportaDados.Parambyname('Pdata1').AsDate:= strtodate
(dateedit2.Text);
ExportaDados.Parambyname('Pdata2').AsDate:= strtodate
(dateedit3.Text);
ExportaDados.Parambyname('Pcodcolab').Asstring:=
glbcodigocolab;
if not (ExportaDados.Prepared)then
ExportaDados.prepare;
ExportaDados.open;
path:= 'C:\BaseAudi\Arquivos Exportados\';
if not DirectoryExists(Path) then
CreateDir(Path);
NomArquivo:= glbCodigocolab +' '+combobox1.text+'-
'+combobox2.text+ '.txt';
if not FileExists(Path + NomArquivo) then
FileCreate(Path + NomArquivo);
AssignFile(Arquivo, Path + NomArquivo);
Rewrite(Arquivo); // aqui é que da erro
Exportadados.First;
while not exportadados.Eof do
begin
Write ( arquivo, AjustaStr( ExportaDadosCENTRAL.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosCoop.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosUA.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosArea.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosData.AsString,
15));
Write ( arquivo, AjustaStr( ExportaDadosAno.AsString,
10));
Write ( arquivo, AjustaStr( ExportaDadosHoras.AsString,
10));
Write ( arquivo, AjustaStr( ExportaDadosColab.AsString,
16));
Write ( arquivo, AjustaStr( ExportaDadosOBS.AsString,
300));
WriteLn ( arquivo );
exportadados.Next;
end;
CloseFile ( arquivo );
Showmessage('Exportação concluída.');
finally
screen.cursor:=crdefault;
end;
end
else
--- Em [EMAIL PROTECTED], Eduardo Galvão [EMAIL PROTECTED]
escreveu
Olá,
Não é este o problema, ja'fiz isto e continua dando erro.
Parece que ele não atualiza a pasta antes de buscar o arquivo e ai
ele nao o encontra . Só depois de dar um f5 com a aplicação fechada
que resolve.
Você está dando um arquivo.closefile quando termina a gravação
no arquivo ??
Se não fizer isto, só vai funcionar da 1a vez. Na 2a vez,
o arquivo vai estar aberto e vai dar um erro.
Saudações,
Eduardo Paci Galvão
Engenheiro UFMG 1990
Belo Horizonte - Brasil
www.egalvao.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Manipulando Arquivo texto
A todos que ajudaram , informo que o amigo Daniel de uma outra lista
matou o problema:
para que quizer lá vai..
procedure TFexportar.BitBtnPesClick(Sender: TObject);
var
Path, NomArquivo: String;
Arquivo: TextFile;
Handle: Integer;
begin
if RadioGroup1.ItemIndex = 0 then
begin
try
Screen.cursor:=CRSQLwait;
ExportaDados.Close;
ExportaDados.Parambyname('Pdata1').AsDate:= strtodate
(dateedit2.Text);
ExportaDados.Parambyname('Pdata2').AsDate:= strtodate
(dateedit3.Text);
ExportaDados.Parambyname('Pcodcolab').Asstring:=
glbcodigocolab;
if not (ExportaDados.Prepared)then
ExportaDados.prepare;
ExportaDados.open;
path:= 'C:\BaseAudi\Arquivos Exportados\';
if not DirectoryExists(Path) then
CreateDir(Path);
NomArquivo:= glbCodigocolab +' '+combobox1.text+'-
'+combobox2.text+ '.txt';
if not FileExists(Path + NomArquivo) then
Handle := FileCreate(Path + NomArquivo);
fileclose(handle);
AssignFile(Arquivo, Path + NomArquivo);
Rewrite(Arquivo);
Exportadados.First;
while not exportadados.Eof do
--- Em [EMAIL PROTECTED], denjabr [EMAIL PROTECTED] escreveu
sim estou fechando o arquivo, vou colocar todo código e a linha que
esta com a seta é que gera erro.
procedure TFexportar.BitBtnPesClick(Sender: TObject);
var
Path, NomArquivo: String;
Arquivo: TextFile;
begin
if RadioGroup1.ItemIndex = 0 then
begin
try
Screen.cursor:=CRSQLwait;
ExportaDados.Close;
ExportaDados.Parambyname('Pdata1').AsDate:= strtodate
(dateedit2.Text);
ExportaDados.Parambyname('Pdata2').AsDate:= strtodate
(dateedit3.Text);
ExportaDados.Parambyname('Pcodcolab').Asstring:=
glbcodigocolab;
if not (ExportaDados.Prepared)then
ExportaDados.prepare;
ExportaDados.open;
path:= 'C:\BaseAudi\Arquivos Exportados\';
if not DirectoryExists(Path) then
CreateDir(Path);
NomArquivo:= glbCodigocolab +' '+combobox1.text+'-
'+combobox2.text+ '.txt';
if not FileExists(Path + NomArquivo) then
FileCreate(Path + NomArquivo);
AssignFile(Arquivo, Path + NomArquivo);
Rewrite(Arquivo); // aqui é que da erro
Exportadados.First;
while not exportadados.Eof do
begin
Write ( arquivo, AjustaStr(
ExportaDadosCENTRAL.AsString,
20));
Write ( arquivo, AjustaStr(
ExportaDadosCoop.AsString,
20));
Write ( arquivo, AjustaStr(
ExportaDadosUA.AsString,
20));
Write ( arquivo, AjustaStr(
ExportaDadosArea.AsString,
20));
Write ( arquivo, AjustaStr(
ExportaDadosData.AsString,
15));
Write ( arquivo, AjustaStr(
ExportaDadosAno.AsString,
10));
Write ( arquivo, AjustaStr(
ExportaDadosHoras.AsString,
10));
Write ( arquivo, AjustaStr(
ExportaDadosColab.AsString,
16));
Write ( arquivo, AjustaStr(
ExportaDadosOBS.AsString,
300));
WriteLn ( arquivo );
exportadados.Next;
end;
CloseFile ( arquivo );
Showmessage('Exportação concluída.');
finally
screen.cursor:=crdefault;
end;
end
else
--- Em [EMAIL PROTECTED], Eduardo Galvão
[EMAIL PROTECTED]
escreveu
Olá,
Não é este o problema, ja'fiz isto e continua dando erro.
Parece que ele não atualiza a pasta antes de buscar o arquivo e
ai
ele nao o encontra . Só depois de dar um f5 com a aplicação
fechada
que resolve.
Você está dando um arquivo.closefile quando termina a gravação
no arquivo ??
Se não fizer isto, só vai funcionar da 1a vez. Na 2a vez,
o arquivo vai estar aberto e vai dar um erro.
Saudações,
Eduardo Paci Galvão
Engenheiro UFMG 1990
Belo Horizonte - Brasil
www.egalvao.com.br
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
