Реферат: Программирование. Delphi

P: = StrPos (P, FT);

IF P = NIL THEN MessageBeep (0)

ELSE

BEGIN

Memo1.SelStart: = P-Buff;

Memo1.SelLength: = Length (FindText);

END;

FreeMem (FT, Length (FindText) + 1;

FreeMem (Buff, BuffLen);

END;

end;

Когда закончите, щелкните на компоненте ReplaceDialog, перейдите на страницу Events в окне Object Inspector и щелкните на кнопке раскрытия списка обработчика события OnFind. Из появившегося списка выберите только что созданный обработчик события для FindDialog. Теперь создайте обработчик события OnReplace со следующими строками:

WITH Sender AS TReplaceDialog DO

WHILE True DO

BEGIN

IF Memo1.SelText <> FindText THEN

FindDialodFind (Sender);

IF Memo1.SelLength = 0 THEN Break;

Memo1.SelText: = ReplaceText;

IF NOT (frReplaceAll IN Options) THEN Break;

END;

Сохраните программу, запустите ее и загрузите текстовый файл. Замените в нем все точки на восклицательные знаки и сохраните его.

Задание . Создайте форму для открытия графических файлов.

Лабораторная по Delphi. Работа с базами данных.

Работа сDatabase Form Expert.

Delphi имеет мощное средство создания таблиц путем внесения или ре дактирования полеи на форме. Рассмотрим простой пример того, как построить приложение, используя эксперт форм базы данных. В этом примере использован один из образцов баз данных, включенных в Delphi.

Использование эксперта форм базы данных .

1. Запустите Delphi.

2. Выберите Database/Database Form Expert из главного меню.