TXT - Colocando a extensão automaticamente....
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
Curtidas 0
Respostas
Anonymous
10/02/2003
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
GOSTEI 0