Guardar cambios en memo!!

[ecfisa]

Empezado por Melissa_12

Por otra parte ecfisa he probado con Modified pero aun sin modificar nada me sigue poniendo la variable en True y pues me hace la pregunta.
Muchas Gracias por sus respuestas.

Hola.

Es realmente extraño... por que la propiedad Modified toma el valor verdadero sólo si alguna linea ha tenido algún cambio.

Para salir de dudas hice una pequeña prueba:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('PRUEBA.TXT')
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Memo1.Modified and (MessageBox(Handle,'¿Desea guardar los cambios?',
                         '', MB_ICONQUESTION+MB_YESNO)= IDYES) then
    Memo1.Lines.SaveToFile('PRUEBA.TXT')
end;

Y se comporta como se espera. Solamente presenta la consulta si se ha modificado al menos un caracter del Memo.

¿ Algún evento de tu código no estará modificando algo del Memo ?

Saludos.