Salvar e Salvar Como

Delphi

05/07/2004

Como fazer que o meu bloco de notas tenha essas opções, pois o salvar do Delphi é sempre um ´salvar como´...

Obrigado! :D


Teodorhfb

Teodorhfb

Curtidas 0

Respostas

Reginaldo174

Reginaldo174

05/07/2004

RichEdit1.Lines.SaveToFile(FileSaveAs1.Dialog.FileName);


GOSTEI 0
Beppe

Beppe

05/07/2004

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;



GOSTEI 0
POSTAR