Работа со 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;