salvar sem usar savedialog
Estou precisando da ajuda de alguém, pois preciso salvar um arquivo texto, mais sem usar o savedialog, pois este componente está dando problema na minha aplicação, com skins, então tenho que usar componentes paleta win 3.1. para abrir arquivos e diretorios, porem não sei como salvá-los.agradeço a ajuda de todos.
geraldo leal
geraldo leal
Geraldo Leal
Curtidas 0
Respostas
Gustavo Bretas
26/09/2011
E ae Geraldo, tudo certo?
Cara, verifica se no seu Delphi tem a função: PromptForFileName, na Unit Dialog, talvez ela possa te ajudar!
Abraço!
Cara, verifica se no seu Delphi tem a função: PromptForFileName, na Unit Dialog, talvez ela possa te ajudar!
Abraço!
GOSTEI 0
Gustavo Bretas
26/09/2011
Ou então a função: SelectDirectory na Unit FileCtrl.
GOSTEI 0
Otavio Pimenta
26/09/2011
...
arquivo:= localarquivo +\+nomearquivotexto+.txt;
AssignFile(script,arquivo);//nome + caminho
try
if FileExists(arquivo)then // verifica se existe
append(script)/edita
else
Rewrite(script,arquivo); //abre
Write(script,montascript);//escreve
writeln(script,ajustascript);//pula linha
finally
CloseFile(script);//fecha
end;
dependendo o que for, faça um loop (while not eof)na tabela e vá adicionando linha a linha.
espero que ajude
arquivo:= localarquivo +\+nomearquivotexto+.txt;
AssignFile(script,arquivo);//nome + caminho
try
if FileExists(arquivo)then // verifica se existe
append(script)/edita
else
Rewrite(script,arquivo); //abre
Write(script,montascript);//escreve
writeln(script,ajustascript);//pula linha
finally
CloseFile(script);//fecha
end;
dependendo o que for, faça um loop (while not eof)na tabela e vá adicionando linha a linha.
espero que ajude
GOSTEI 0
Geraldo Leal
26/09/2011
...
arquivo:= localarquivo +\+nomearquivotexto+.txt;
AssignFile(script,arquivo);//nome + caminho
try
if FileExists(arquivo)then // verifica se existe
append(script)/edita
else
Rewrite(script,arquivo); //abre
Write(script,montascript);//escreve
writeln(script,ajustascript);//pula linha
finally
CloseFile(script);//fecha
end;
dependendo o que for, faça um loop (while not eof)na tabela e vá adicionando linha a linha.
espero que ajude
arquivo:= localarquivo +\+nomearquivotexto+.txt;
AssignFile(script,arquivo);//nome + caminho
try
if FileExists(arquivo)then // verifica se existe
append(script)/edita
else
Rewrite(script,arquivo); //abre
Write(script,montascript);//escreve
writeln(script,ajustascript);//pula linha
finally
CloseFile(script);//fecha
end;
dependendo o que for, faça um loop (while not eof)na tabela e vá adicionando linha a linha.
espero que ajude
Agradeço a atenção de todos, mais efetuei vários testes, e o problema continua, pelo que pude ver
o problema, é mesmo nos skins,quando usa qualquer função baseada na dialogs do windows ou delphi. se usar os componentes
da win 3.1 não acontece problema nenhum, fica ai esta dica, pois já tentei de tudo, acredito que tem que trocar os skins
para um mais novo que já corrigiram este bug.Se alguém souber deste problema, e se for isto mesmo agradeço a confirmação ou não do que estou dizendo.
sucesso a todos
geraldo leal
o problema, é mesmo nos skins,quando usa qualquer função baseada na dialogs do windows ou delphi. se usar os componentes
da win 3.1 não acontece problema nenhum, fica ai esta dica, pois já tentei de tudo, acredito que tem que trocar os skins
para um mais novo que já corrigiram este bug.Se alguém souber deste problema, e se for isto mesmo agradeço a confirmação ou não do que estou dizendo.
sucesso a todos
geraldo leal
GOSTEI 0
William Galleti
26/09/2011
se voce precisa que o usuário entre com o diretório, pode usar o INPUTBOX.
GOSTEI 0