Разработка приложений в системе Delphi. Шейкер Т.Д. - 78 стр.

   Пример 5. Использование события OnChange и свойства Modified
   Обработчик события OnChange компонента Edit3 анализирует вводимую
строку. Если оказывается, что количество введённых символов «a» больше
двух, то выводится сообщение. Программно строка не корректируется.
procedure TForm1.Edit3Change(Sender: TObject);
var i,k:byte;
    st:string;
begin
 k:=0;
 st:=Edit3.text;
 for i:=1 to length(st) do if st[i]='a' then inc(k);
 if k>2 then ShowMessage('Ошибка в записи строки');
end;

   В    обработчик    события   формы      OnClose,   которое    происходит
непосредственно   перед   закрытием    формы,   введена   проверка   свойства
Modified компонента Edit3. Если текст в этом компоненте был изменён, то
выполняется запись в файл.
procedure TForm1.FormClose(Sender: TObject; var Action:
TCloseAction);
var f:textfile;
begin
 if Edit3.Modified=true
  then begin
        assignfile(f,'data.txt');
        rewrite(f);
        write(f,Edit3.Text);
       end;
end;

   Пример 6. Использование компонент Memo и StaticText
   При вводе данных в каждой строке записывается по одному числу, для
перехода к следующей строке нажимается клавиша Enter. Для контроля ввода
данных в редакторы Memo1 и Memo2 сформированы защищённые блоки try…
except. Анализ причин исключительных ситуаций не выполняется, просто
выдаётся сообщение и осуществляется выход их процедуры. При вводе данных
в Memo2 и Memo3 используется          процедура Val. Введённые        данные
записываются в массивы. С целью уменьшения ошибок для Memo2 и Memo3
определены обработчики события OnKeyPress, в которых разрешается

                                      78