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

Свойство Значение

Default Ext ТХТ

Options.ofHideReadOnly True

Options.ofOverwritePrompt True

Options.ofNoReadOnlyReturn True

Title Save Text File

8. Введите тот же набор фильтров, что и для диалога открытия файла.

9. Создайте обработчик события OnClick для кнопки Exit, содержащий одну команду Close;

10. Для обработчика события OnClick кнопки Open используйте следующие строки:

WITH OpenDialog1 DO

IF Execute THEN

BEGIN

Memo1.Lines.LoadFromFile(Filename);

HistoryList.Add(Filename);

Caption:='My Editor-'+

ExtractFilename(Filename);

SaveDialog1.Filename:=Filename;

Filename:= ’’;

End;

11. Дважды щелкните на кнопке Save и введите следующую строку в качестве ее обработчика события OnClick: .

Memo1. Lines.SaveToFile( SaveDialog1.Filename);

12. Наконец, для кнопки Save As укажите следующее:

WITH SaveDialog1 DO

IF Execute THEN

BEGIN

Memo1.Lines.SaveToFile(Filename);

Caption:='My Editor - ' +

ExtractFilename(Filename);

End;