Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
joao_arthur Profissional


Registrado: Sexta-Feira, 10 de Novembro de 2006 Mensagens: 687 Localização: Fortaleza-CE
|
Enviada: Dom Jan 13, 2008 12:36 pm Assunto: Problema com arquivo INI |
|
|
não estou conseguindo criar um arquivo INI
erro:
EIniFileException with message 'Unable to write to'
estou usando essa rotina:
Código: | var
arq: TIniFile;
begin
Label1.Caption:= InputBox('Digite o caminho do backup', 'Backup','C:\Backup');
arq:= TIniFile.Create(ExtractFilePath('Backup.ini'));
try
arq.WriteString('Backup','Caminho',Label1.Caption); //1-seção 2-item 3-conteúdo
finally
arq.Free; //destroi o arquivo da memória
end; |
alguem pode da uma luz ai? _________________ João Arthur. |
|
Voltar ao Topo |
|
 |
alexbandeira Mestre


Registrado: Terça-Feira, 27 de Julho de 2004 Mensagens: 812 Localização: Paulista - PE
|
Enviada: Dom Jan 13, 2008 6:22 pm Assunto: |
|
|
isse comand deve te ajudae. Comigo está funcioando!
try
AssignFile(log, 'C:\Test.ini');
if not(FileExists('C:\Test.ini')) then
Rewrite(log,'C:\Test.ini');
Append(log);
WriteLn(log, ' Teste de criação');
finally
CloseFile(log);
end; |
|
Voltar ao Topo |
|
 |
AlexSousa Colaborador


Registrado: Sexta-Feira, 12 de Novembro de 2004 Mensagens: 1879 Localização: São luís - MA
|
Enviada: Seg Jan 14, 2008 2:10 pm Assunto: |
|
|
blz joao_arthur,
vc pode tentar dessa maneira tambem...
arq := TIniFile.Create(ExtractFilePath(Application.ExeName )+'backup.ini');
assim ele cria o arquivo no diretorio q esta a aplicação...
abraços, _________________ "Guarda com toda a diligência o teu coração, porque dele procedem as fontes da vida....Prov. 4:23" |
|
Voltar ao Topo |
|
 |
joao_arthur Profissional


Registrado: Sexta-Feira, 10 de Novembro de 2006 Mensagens: 687 Localização: Fortaleza-CE
|
Enviada: Seg Jan 14, 2008 11:44 pm Assunto: |
|
|
poisé Alex ficou faltando justamente isso no meu código
Código: | (Application.ExeName ) |
era só isso mesmo, valeu cara pela atenção. _________________ João Arthur. |
|
Voltar ao Topo |
|
 |
|