botão salva .

[thuago]

bom pessoal estou criando um editor de texto e queria saber qual o código para o botão salva.

eu estou usando esse código no botão salva como,

procedure TForm1.Salva1Click(Sender: TObject);
begin
 if Savedialog1.Execute then
  begin
    SynEdit1.Lines.SavetoFile(Savedialog1.FileName);
    SynEdit1.SetFocus;
  end;

Até ai tudo bem mais queria saber como coloca caso o texto sejá alterado e só clica no botão salva que ele salva sem abrir a caixa de diálogo

E também queria saber como colocar esse mesmo método no botão X aquele que fecha o programa la em cima .

Forte abraço..

Editado Setembro 16, 2010 por thuago

[Douglas Soares]

Sabendo o caminho do arquivo que você abriu, você pega e salva ele sem o dialogo, assim:

SynEdit1.Lines.SavetoFile(caminho_arquivo);
SynEdit1.SetFocus;

Na hora de fechar você pode perguntar se quer salvar, coloca isso no evento OnCloseQuery:

var
flags : integer;
begin
flags := Application.MessageBox('Deseja salvar as alterações?', 'Salvar', MB_YESNOCANCEL);
if flags = ID_NO then
Application.Terminate;

if flags = ID_YES then
begin
if caminho_arquivo <> '' then
begin
SynEdit1.Lines.SavetoFile(caminho_arquivo);
SynEdit1.SetFocus;
end
else
begin
if Savedialog1.Execute then
  begin
    SynEdit1.Lines.SavetoFile(Savedialog1.FileName);
    SynEdit1.SetFocus;
  end;
end;
Application.Terminate;
end;

if flags = ID_CANCEL then
Abort;

end;

Abraços