Fórum Salvar e Salvar Como #241554
05/07/2004
0
Como fazer que o meu bloco de notas tenha essas opções, pois o salvar do Delphi é sempre um ´salvar como´...
Obrigado! :D
Obrigado! :D
Teodorhfb
Curtir tópico
+ 0
Responder
Posts
05/07/2004
Reginaldo174
RichEdit1.Lines.SaveToFile(FileSaveAs1.Dialog.FileName);
Responder
Gostei + 0
05/07/2004
Beppe
Você mantém um campo FNomeDoArquivo, que conterá o nome do último arquivo salvo, mantido pela procedure SalvarComo. A procedure Salvar usa este nome, só exibe o diálogo se for vazio.
procedure SalvarComo;
begin
FNomeDoArquivo := SaveDailog.Filename;
Memo1.Lines.SaveToFile(FNomeDoArquivo);
end;
procedure SalvarComo;
begin
if FNomeDoArquivo = ´´ then
SalvarComo
else
Memo1.Lines.SaveToFile(FNomeDoArquivo);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)