Работа со DIJALOG  компоненти
 

Прво се подига програмскиот јазик Delphi и се прави избор на нова апликација File->NEW Application.

После поставување на Главно мени (Main Menu ) со опции Datoteka, Nova, Otvori и Zapomni  од
палетата со компоненти Standard,  една компонента RichEdit   од палетата со компоненти Win32,
потоа се поставуваат два дијалози  од палетата со компоненти  Dialogs и тоа   OpenDialog и
SaveDialog за кои во Properties->Filter се подесува да отвора и памти текстуални датотеки
(Во Filter name се впишува текстуални датотеки а во Filter се впишува *.txt).
 

На опцијата Nova се впишува следниот код

 

     richedit1.text:='';                                                                            // се празни RichEdit1  да биде без текст
    //richedit1.clear;                                                                             //  може да се избрише и на овој начин
    //richedit1.lines.clear;                                                                      // или на овој начин На опцијата Otvori се впишува следниот код

 

    opendialog1.Execute;                                                                       //активирање на  OpenDialog
    if opendialog1.FileName<>'' then                                                       //ако е избрана датотека
        richedit1.Lines.LoadFromFile(opendialog1.FileName);                    //доделување на името на датотеката и
                                                                                                          //нејзината локација (диск, фолдер) избрани во OpenDialog

  На опцијата Zapomni се впишува следниот код

 

    savedialog1.Execute;                                                                   //активирање на  SaveDialog
    if savedialog1.FileName<>'' then                                                   //ако е впишано име на датотека
        richedit1.Lines.SaveToFile(savedialog1.FileName)                     //доделување на името на датотеката и нејзината локација
                                                                                                      //(диск, фолдер) избрани во SaveDialog
  На опцијата Излез се впи[ува следниот код form1.Close; или Application.Terminate;