Hola, esta funcion la saque de un programa editor de texto que vi por internet, el problema es que hay un error en el codigo y no se como solucionarlo.
Código Delphi
[-]
function TForm1.Filetext: Boolean;
begin
Result := true;
if MemoEditor.Modified then
begin
case MessageDlg('Quieres guardar los cambios',
mtInformation, mbYesNoCancel, 0) of
mrYes: if SaveDialog.Execute then
begin
FileName := SaveDialog.FileName;
MemoEditor.Lines.SaveToFile(FileName);
end else
Result := false;
mrNo: Result := true;
mrCancel: Result := false;
end;
end;
end;
Como ven en el codigo, cuando tenemos un archivo editado y modificado, cuando intentamos salir de el programa nos dice que si queremos guardar los cambios, si aceptamos para que se cierre el programa guadando los cambios.
Pues este codigo, lo que hace es abrir el dialogo de guardar, en vez de guardar sin ejecutarlo, asi silenciosamente, se cierra el programa y guada los cambios echos en el archivo de texto.
este codigo no es mio, alguien sabe como solucionarlo.