* * *

Author Topic: Ajuda com Salvar e Salvar Como  (Read 1186 times)

Almeida2016

  • Newbie
  • Posts: 2
Ajuda com Salvar e Salvar Como
« on: August 14, 2016, 04:26:47 pm »
Olá a todos!
Minha pergunta é básica mas não estou conseguindo implementar ou encontrar uma resposta. Estou iniciando com Lazarus, criando um editor de HTML simples. Gostaria de criar no menu arquivo, as opções Salvar e Salvar como como a maioria dos editores tem.

Estou usando o código para o salvar como

if savedialog1.execute then
begin
SaveDialog1.FileName:= OpenDialog1.FileName;
SynEdit1.lines.savetofile(savedialog1.filename);
SynEdit1.setfocus;
end;

Mas para salvar já tentei varias formas e não tenho conseguido. Sendo mais específico: Geralmente o Salvar caso o arquivo já exista e se faça alguma alteração, quando acionado ele salva sem abrir a janela de diálogo. Caso seja novo e ainda não tenha sido salvo, abre a janela salvar como. E o Salvar como sempre abrirá a janela de diálogo.
Se alguém puder ajudar agradeço.

bylaardt

  • Full Member
  • ***
  • Posts: 247
Re: Ajuda com Salvar e Salvar Como
« Reply #1 on: August 15, 2016, 01:48:03 am »
para saber se o arquivo já foi salvo anteriormente, verifique em com:
Code: Pascal  [Select]
  1. if (length(savedialog1.filename)>0) or savedialog1.execute then ...

não esqueça de, ao abrir o arquivo, identificar o arquivo com o nome padrão:
Code: Pascal  [Select]
  1. savedialog1.opendialog:=opendialog1.filename


 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus