Программирование в среде Delphi. Часть 3. Файлы. Садовская О.Б. - 4 стр.

                                           4
       Созд а д им простой т екст овый ред а ктор, кот орый позволил б ы с
пом ощью д иа логовых окон от крыва т ь и сохра н я т ь т екст овые ф а йлы, а
т а кж е изм ен я ть ха ра кт ерист ики ш риф т а .
       Ра зм ест им н а       ф орм е след у ю щие ком пон ен ты: OpenDialog1,
SaveDialog1, FontDialog1 выб ерем из ст ра н ицы Dialogs, Memo1,
Button1, Button2, Button3 – из стра н ицы Standard.
В ыб ерем свойст во Filter ком пон ен та OpenDialog1 и щёлкн ем по поя -
вивш ейся кн опке с т рем я т очка м и. П оя вит ся д иа логовое окн о Filter
Editor, с пом ощью кот орого м ож н о за д а т ь ф ильтры.
          Filter Name                            Filter

       Т екст овые ф а йлы (*.txt, *.doc)   *.txt; *.doc
       В се ф а йлы (*.*)                   *.*

П осле за полн ен ия н а ж а т ь кн опку Ok.
      Для ком пон ен т а SaveDialog зн а чен ие свойст ва DefaultExt у ста н о-
вим ра вн ым txt. т .е., если при сохра н ен ии ф а йла ра сш ирен ие н е б у -
д ет у ка за н о, т о по у м олча н ию д об а вит ся ра сш ирен ие txt.
      Кн опка м Button1, Button2, Button3 у ст а н овим свойство Caption
ра вн ым ′От крыт ь′, ′Сохра н ит ь′, ′Ш риф т′.




unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class(TForm)
   OpenDialog1: TOpenDialog;
   SaveDialog1: TSaveDialog;
   FontDialog1: TFontDialog;
   Memo1: TMemo;