вопрос по процедуре

[GN_]

Есть такой вопрос. Сейчас пишу прогу (блокнот), прошу профессионалов не смеятся, многие наверно с этого начинали, так вот код:

unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Menus; 
 
type 
  TForm1 = class(TForm) 
    Memo1: TMemo; 
    Button2: TButton; 
    Edit1: TEdit; 
    MainMenu1: TMainMenu; 
    J1: TMenuItem; 
    N1: TMenuItem; 
    procedure Button2Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure J1Click(Sender: TObject); 
    procedure N1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
 
// Кнопка "Сохранить" 
procedure TForm1.Button2Click(Sender: TObject); 
var 
my_file: TextFile; // Файл в который будут записаны данные 
fname: String[90]; // Путь к фалу 
i: word; 
 
begin 
 
  fname := Edit1.Text; 
  {$i-}  // Запрещаем компилятору проверять ошибки. 
  AssignFile(my_file, fname); 
  Rewrite(my_file); // Открыть файл для перезаписи 
  {$i+} 
 
  for i := 0 to Memo1.Lines.Count do 
    writeln(my_file, Memo1.Lines[i]); 
  CloseFile(my_file); 
 
end; 
 
 
 
// При открытии программы... 
procedure TForm1.FormCreate(Sender: TObject); 
var 
my_file: TextFile; // Файл в который будут записаны данные 
fname: string[50]; // Путь к фалу 
bufer: string;     // Буфер для чтения из файла 
 
begin 
 
  fname := Edit1.Text; 
  // Запрещаем компилятору проверять ошибки. 
  AssignFile(my_file, fname); 
  {$i-} 
  Reset(my_file); // Открыть файл для чтения 
  {$i+} 
 
  if IOResult = 0 then  // Если при открытии файла ошибок нет, то... 
  begin 
    while not EOF(my_file) do 
    begin 
      readln(my_file, bufer); 
      Memo1.Lines.Add(bufer); // Добавить очередную строку в поле Memo1 
    end; 
    CloseFile(my_file); 
  end 
  else   // Если файл не существует 
  begin 
    showmessage('Файл ' + fname + ' не существует!' + #13 + 
                'прим. При сохранении текста эта ошибка выводиться не будет'); 
    exit; 
  end; 
 
 
end; 
 
 
// Меню: О программе... 
procedure TForm1.J1Click(Sender: TObject); 
begin 
 
  showmessage('Автор программы - ***' + #13 + 'Дата создания: *** года'); 
 
end; 
 
 
// Меню: Закрыть 
procedure TForm1.N1Click(Sender: TObject); 
begin 
 
  Close; 
 
end; 
 
end.

Я хочу её немного усовершенствовать, а именно создать такую фигню: когда чел закрывает прогу ( TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean) ), то прога проверяет был ли изменён текст (событие TForm1.Memo1Change). И если текст был изменён, то прога выдаёт сообщение сохранить или нет, если нет, то прога закрывается, а если да, то надо сохранить и закрыть. Как это сделать? У меня есть тока догатки, можно создать свою процедуру (или функцию) сохранения текста и при нажатии кнопки её вызывать и когда при выходе чел нажимает «ДА» (т.е. хочет сохранить текст). Написать свою процедуру никак не получается, помогите.

[zetrix]

в TForm1.FormCloseQuery пишешь такую строчку:
if Application.MessageBox('SAVE?','LOO k at ME!',36)=mrYes then
{Сюда пишешь код сохранения (или просто процедуру сохранения)};

[GN_]

zetrix спасибо. Как ты предложил, всё работает. Только приходится 2 раза дублировать один и тот же код. Он у меня дублируется в
// При закрытии программы
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
и в
// Кнопка "Сохранить"
procedure TForm1.Button2Click(Sender: TObject);


А когда я пытаюсь создать свою процедуру:

procedure kol;
var
my_file: TextFile; // Файл в который будут записаны данные
fname: String[90]; // Путь к фалу
i: word;

begin

fname := Edit1.Text;
{$i-} // Запрещаем компилятору проверять ошибки.
AssignFile(my_file, fname);
Rewrite(my_file); // Открыть файл для перезаписи
{$i+}

for i := 0 to Memo1.Lines.Count do
writeln(my_file, Memo1.Lines[i]);
CloseFile(my_file);

end;


То выдаётся такая ошибка:
[Error] Unit1.pas(51): Undeclared identifier: 'Edit1'
Вот 51 строка fname := Edit1.Text;

Короче получается так, когда создаёшь свою процедуру, то почему-то обычные объекты становятся недоступными типа Edit, Memoи тд., почему?

И ещё вопрос: почему в Делфи такие маленькие программы таких больших размеров (около 300-400 Кб)?

[zetrix]

То выдаётся такая ошибка:
[Error] Unit1.pas(51): Undeclared identifier: 'Edit1'
Вот 51 строка fname := Edit1.Text;

В разделе privite (вроде так пишется - смотри наверху кода, где форма описывается), там напиши название своей процедуры, а потом (когда описываешь свою процедуру):

А когда я пытаюсь создать свою процедуру:
procedure kol;
var
...

Пиши так:
procedure Tform1.kol;
var
...

Тогда всё будет доступно.

почему в Делфи такие маленькие программы таких больших размеров (около 300-400 Кб)?

А это вот особенность такая

[mihali4]

почему в делфи такие маленькие программы таких больших размеров (около 300-400 кб)?

ну, это устраняется, и не сказать, чтобы как-то трудно...
по-моему, здесь это тоже описывалось.
посмотри в разделе про апи.
не найдешь (или не поймешь) - открывай тему, поможем...
но, вроде, там была темка с похожим названием (а может, я и путаю - форумов много, а я - один).

[GN_]

zetrix большое спасибо за помощь, ты меня очень выручил.
mihali4 не нашёл такую тему.

[zetrix]

пустяки... дело-то житейское

[mihali4]

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

mihali4 не нашёл такую тему.

Как это?
А я почему-то нашел...
Вот:
http://www.programmersforum.ru/showthread.php?t=81

[GN_]

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

Как это?
А я почему-то нашел...
Вот:
http://www.programmersforum.ru/showthread.php?t=81

Понятно, я то искал в разделе Апи как ты сказал, а через поиск не нашёл. Спасибо что дал ссылку.
Этот форум вообще классный, жаль я тока недавно о нём узнал. Большое спасибо автору сайта за создание этого форума.

[GN_]

Вы не представляете моей радости, когда всё-таки получилось сократить вес программы. Был вот такой список:
vcl;rtl;vclx;indy;inet;xmlrtl;vclie ;inetdbbde;inetdbxpress;dbrtl;dsnap ;dsnapcon;vcldb;soaprtl;VclSmp;dbex press;dbxcds;inetdb;bdertl;vcldbx;w ebdsnap;websnap;adortl;ibxpress;tee ui;teedb;tee;dss;visualclx;visualdb clx;vclactnband;vclshlctrls;Intrawe bDB_50_70;Intraweb_50_70;Rave50CLX; Rave50VCL;dclOfficeXP

Я из него убрал только indy и программа стала весить не 400 а 20 кб. Двадцатикратное уменьшение – круто. Токо вот интересно для чего этот indy нужен?