[starichenko]

Подскажите пожалуйста!!! В Delphi 7 я пытаюсь сделать пока простой текстовый редактор, вроде все сделал, компиляция прошла успешно. После нее появляется окно редактора и когда я нажимаю в нем на открыть или сохранить и закрываю эти окна у меня выскакивает вот такая ошибка



Как ее исправить? Может что-то в самом коде не верно? Вот исходный код текстового редактора

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Menus, StdCtrls;   type   TForm1 = class(TForm)     Memo1: TMemo;     MainMenu1: TMainMenu;     OpenDialog1: TOpenDialog;     SaveDialog1: TSaveDialog;     N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     N4: TMenuItem;     N5: TMenuItem;     procedure N2Click(Sender: TObject);     procedure N3Click(Sender: TObject);     procedure N5Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.N2Click(Sender: TObject); begin OpenDialog1.Execute; Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end;   procedure TForm1.N3Click(Sender: TObject); begin SaveDialog1.Execute; Memo1.Lines.SaveToFile(SaveDialog1.FileName); end;   procedure TForm1.N5Click(Sender: TObject); begin Close; end;   end.

[KOOL]

Код:

1 2	<font color="Red">if </font>OpenDialog1.Execute <font color="#ff0000">then</font>   Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

аналогично с SaveDialog

[starichenko]

Сообщение от KOOL

Код:

аналогично с SaveDialog

Спасибо!!!