Қадам 5. Пішінге келесі қасиеттері бар SaveDialog1

DefaultExt = TXT;

Filter = ’Текстовые файлы | *.txt’ + ’Все файлы | *.*’;

Title = ’Сохранение текстового файла’;

Options (установить в TRUE)

ofHideReadOnly

ofNoReadOnlyReturn

ofOverwritePrompt - бар файл таңдап алынған кезде қате туралы хабарлама генерацияланады.

Memo1.Lines.LoadFromFile(FileName);

Caption:='TextEditor - '+ExtractFileName(FileName);

SaveDialog1.FileName:=FileName;

FileName:='';

end;

Қадам 7. Панелге &Save атпен батырманы орналастырыңыздар және OnClick оқиғасының өңдеуішін жазыңыздар:

Memo1.Lines.SaveToFile(SaveDialog1.FileName);