Writeln travando no delphi 10 seattle.
Olá boa noite! Estou migrando um sistema do delphi 2010 para o delphi 10 seattle, e quando chego na rotina de geração de arquivos txt, trava no comando Writeln. algo que nas outras versões sem problema. Alguém tem alguma solução para isto?
var arq1: TextFile;
linha :string;
==============================
AssignFile (arq1, ''''c:\meusdados\gerado.txt'''');
Rewrite (arq1, ''''c:\meusdados\gerado.txt'''');
****até aqui tudo bem, cria o arquivo em branco*****
linha := ''''dados para ser gravados'''';
arq1 := ''''c:\meusdados\gerado.txt'''';
Write(arq1, linha) **** aqui trava o sistema.
=================================
Já agradeço qualquer ajuda. Não sei se pode ser algum problema de respeito de direitos de admin, ou bag do seattle. Ou mudou alguma sintaxe que eu não estou sabendo.
var arq1: TextFile;
linha :string;
==============================
AssignFile (arq1, ''''c:\meusdados\gerado.txt'''');
Rewrite (arq1, ''''c:\meusdados\gerado.txt'''');
****até aqui tudo bem, cria o arquivo em branco*****
linha := ''''dados para ser gravados'''';
arq1 := ''''c:\meusdados\gerado.txt'''';
Write(arq1, linha) **** aqui trava o sistema.
=================================
Já agradeço qualquer ajuda. Não sei se pode ser algum problema de respeito de direitos de admin, ou bag do seattle. Ou mudou alguma sintaxe que eu não estou sabendo.
Francisco Calliero
Curtidas 0
Respostas
Francisco Calliero
21/12/2022
Olá boa noite! Estou migrando um sistema do delphi 2010 para o delphi 10 seattle, e quando chego na rotina de geração de arquivos txt, trava no comando Writeln. algo que nas outras versões sem problema. Alguém tem alguma solução para isto?
var arq1: TextFile;
linha :string;
==============================
AssignFile (arq1, ''''c:\\meusdados\\gerado.txt'''');
Rewrite (arq1, ''''c:\\meusdados\\gerado.txt'''');
****até aqui tudo bem, cria o arquivo em branco*****
linha := ''''dados para ser gravados'''';
arq1 := ''''c:\\meusdados\\gerado.txt'''';
Write(arq1, linha) **** aqui trava o sistema.
=================================
Já agradeço qualquer ajuda. Não sei se pode ser algum problema de respeito de direitos de admin, ou bag do seattle. Ou mudou alguma sintaxe que eu não estou sabendo.
var arq1: TextFile;
linha :string;
==============================
AssignFile (arq1, ''''c:\\meusdados\\gerado.txt'''');
Rewrite (arq1, ''''c:\\meusdados\\gerado.txt'''');
****até aqui tudo bem, cria o arquivo em branco*****
linha := ''''dados para ser gravados'''';
arq1 := ''''c:\\meusdados\\gerado.txt'''';
Write(arq1, linha) **** aqui trava o sistema.
=================================
Já agradeço qualquer ajuda. Não sei se pode ser algum problema de respeito de direitos de admin, ou bag do seattle. Ou mudou alguma sintaxe que eu não estou sabendo.
Olá, achei a solução de outra forma. cancelei este formato,
// AssignFile (arq1, ''''c:\\meusdados\\gerado.txt'''');
// Rewrite (arq1, ''''c:\\meusdados\\gerado.txt'''');
e joguei os dadps em um memo,
memo1.lines.add(linha);
e no fim da leitura
dei um
Memo1.Lines.SaveToFile(''c:\\meusdados\\gerado.txt')
espero que alguém posso tb ao ter o problema resolver desta forma.
GOSTEI 0
Arthur Heinrich
21/12/2022
Olá boa noite! Estou migrando um sistema do delphi 2010 para o delphi 10 seattle, e quando chego na rotina de geração de arquivos txt, trava no comando Writeln. algo que nas outras versões sem problema. Alguém tem alguma solução para isto?
var arq1: TextFile;
linha :string;
==============================
AssignFile (arq1, ''''c:\\meusdados\\gerado.txt'''');
Rewrite (arq1, ''''c:\\meusdados\\gerado.txt'''');
****até aqui tudo bem, cria o arquivo em branco*****
linha := ''''dados para ser gravados'''';
arq1 := ''''c:\\meusdados\\gerado.txt'''';
Write(arq1, linha) **** aqui trava o sistema.
=================================
Já agradeço qualquer ajuda. Não sei se pode ser algum problema de respeito de direitos de admin, ou bag do seattle. Ou mudou alguma sintaxe que eu não estou sabendo.
var arq1: TextFile;
linha :string;
==============================
AssignFile (arq1, ''''c:\\meusdados\\gerado.txt'''');
Rewrite (arq1, ''''c:\\meusdados\\gerado.txt'''');
****até aqui tudo bem, cria o arquivo em branco*****
linha := ''''dados para ser gravados'''';
arq1 := ''''c:\\meusdados\\gerado.txt'''';
Write(arq1, linha) **** aqui trava o sistema.
=================================
Já agradeço qualquer ajuda. Não sei se pode ser algum problema de respeito de direitos de admin, ou bag do seattle. Ou mudou alguma sintaxe que eu não estou sabendo.
A linha:
arq1 := ''''c:\\meusdados\\gerado.txt'''';
Não faz sentido no código, visto que a variável não é to tipo String.
Provavelmente o código nem compila com ela.
GOSTEI 0