Hola a todos
Código Delphi
[-]
function TForm1.Filetext: Boolean;
var Filemane:String
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);
MemoEditor.Lines.SaveToFile(SaveDialog.FileName);
end else Result := false;
mrNo: Result := true;
mrCancel: Result := false;
end;
end;
end;
Para mi el problema esta de donde sale la variable 'Filemane', o la agregas o
puedes poner como lo pongo en el ejemplo(No probe si esta bien, pero deberia)
Cualquier cosa avisa!!!
Saluda Atte Neeruu!!!