TXT - Colocando a extensão automaticamente....
10/02/2003
0
Olá pessoal,
como faço para colocar a extensão automaticamente no nome do arquivo utilizando o dialogo de salvar arquivo? Como se fosse no Word, apenas digito o nome na janela de salvar o arquivo e automaticamente ele coloca a extensão quando clico no botão salvar. Eu uso o Delphi 5!
Obrigado.
como faço para colocar a extensão automaticamente no nome do arquivo utilizando o dialogo de salvar arquivo? Como se fosse no Word, apenas digito o nome na janela de salvar o arquivo e automaticamente ele coloca a extensão quando clico no botão salvar. Eu uso o Delphi 5!
Obrigado.
Jc
Curtir tópico
+ 0
Responder
Posts
10/02/2003
Anonymous
If SaveDialog.Execute Then
Begin
If ExtractFileExt(SaveDialog.Filename)=´´ Then SaveDialog.FileName:=SaveDialog.FileName+´.txt´;
end;
Existe também um campo no componente SaveDialog onde vc coloca a extensão padrão dos arquivos que seu programa vai gravar. Não me lembro o nome agora.
Espero ter ajudado,
[]´s
Pardal
Begin
If ExtractFileExt(SaveDialog.Filename)=´´ Then SaveDialog.FileName:=SaveDialog.FileName+´.txt´;
end;
Existe também um campo no componente SaveDialog onde vc coloca a extensão padrão dos arquivos que seu programa vai gravar. Não me lembro o nome agora.
Espero ter ajudado,
[]´s
Pardal
Responder
Clique aqui para fazer login e interagir na Comunidade :)
