Форма:
Листингпрограммы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, XPMan, SRColBtn, SRGrad, IniList, ImgList;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Memo1: TMemo;
TreeView1: TTreeView;
XPManifest1: TXPManifest;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button6: TButton;
Button10: TButton;
SRGradient1: TSRGradient;
ImageList1: TImageList;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure TreeView1Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
f:TextFile; s,c:String; i:integer;
implementation
uses Unit2;
{$R *.dfm}
//кнопка «Добавить элемент»
procedure TForm1.Button1Click(Sender: TObject);
var captionStr:string;
NewNode:TTreeNode;
Begin
//обнуляем строку, которая будет использоваться для хранения имени будущего элемента //дерева
CaptionStr:='';
//выводим на экран окно ввода. Если окно было закрыто не кнопкой OK, то происходит //выход из процедуры
if not InputQuery('Добавить элемент', 'Введите заголовок элемента', CaptionStr) then exit;
//добавляем новый элемент в наше дерево
NewNode:=Treeview1.Items.Add(Treeview1.Selected, CaptionStr);
//если компонент не является верхним в дереве, то изменяем значение ImageIndex //созданного нами элемента на 1 (по умолчанию это значение 0)
if newnode.Parent<>nil then newnode.ImageIndex:=1;
end;
//кнопка «Удалить»
procedure TForm1.Button2Click(Sender: TObject);
begin
//проверяю есть ли выделенный элемент в дереве
if treeview1.Selected<>nil then
begin
//если да, то выводим на экран сообщение
if MessageDlg('Вы действительно хотите удалить запись?', mtWarning,[mbYes,mbNo],0)=mrYes then
//удаляем элемент дерева
treeview1.items.delete(treeview1.selected);
end;
//очищаем memo1.
memo1.Text:='';
end;
//кнопка «Выход»
procedure TForm1.Button3Click(Sender: TObject);
begin
//выход из программы
close;
end;
//кнопка «Сохранить в файл»
procedure TForm1.Button4Click(Sender: TObject);
begin
//сохраняем изменения в файл tree.dat
TreeView1.SaveToFile(ExtractFilePath(Application.ExeName)+'tree.dat');
end;
//кнопка «Загрузить из файла»
procedure TForm1.Button5Click(Sender: TObject);
begin
//если файл с указанным именем существует, то загружаем его
if FileExists(ExtractFilePath(Application.ExeName)+'tree.dat') then
TreeView1.LoadFromFile(ExtractFilePath(Application.ExeName)+'tree.dat');
end;
//кнопка «Изменить заголовок»
procedure TForm1.Button6Click(Sender: TObject);
var captionStr:string;
begin
CaptionStr:='';
if not InputQuery('Изменение заголовка', 'Введите заголовок элемента', CaptionStr) then exit;
//чтобы изменить имя надо изменить свойство Text для выделенного элемента
treeview1.Selected.Text:=CaptionStr;
end;
//кнопка «О программе»
procedure TForm1.Button7Click(Sender: TObject);
begin
//выводим новое окно с сообщением о создателе программы
ShowMessage('Программу выполнила студентка гр. ВТиПО-42р.'+#13+'Ахметова Индира'+#13+'2010 год');
end;
//кнопка «Добавить подэлемент»
//здесь код практически такой же, что и для кнопки «Добавить элемент»
procedure TForm1.Button8Click(Sender: TObject);
var captionStr:string;
NewNode:TTreeNode;
begin
CaptionStr:='';
if not InputQuery('Добавить подэлемент', 'Введите заголовок подэлемента', CaptionStr) then exit;
//разница лишь в том, что при добавлении нового элемента мы используем метод //AddChild, т.е. добавляем дочерний элемент
NewNode:=Treeview1.Items.AddChild(Treeview1.Selected, CaptionStr);
if newnode.Parent<>nil then newnode.ImageIndex:=1;
end;
//при закрытии программы сделаем возможность сохранения данных дерева
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
treeview1.SaveToFile(ExtractFilePath(Application.ExeName)+'tree.dat');
end;
//при открытии программы сделаем возможность загрузки данных из дерева
procedure TForm1.FormShow(Sender: TObject);
begin
if FileExists(ExtractFilePath(Application.ExeName)+'tree.dat') then
TreeView1.LoadFromFile(ExtractFilePath(Application.ExeName)+'tree.dat');
end;
//при нажатии на элемент дерева
procedure TForm1.TreeView1Click(Sender: TObject);
begin
memo1.Clear;
//если файл существует, то данные добавляются в файл
if FileExists(IntToStr(TreeView1.Selected.AbsoluteIndex)) then
begin
AssignFile(f,inttostr(treeview1.Selected.AbsoluteIndex));
//открыть файл для чтения
reset(f);
while not EOF(f) do
Begin
//прочитать строку из файла
readln (f,s);
memo1.Lines.Add(s)end;
closefile(f) end else
//иначе, если файл не существует, то создаем новый
begin
memo1.Clear;
AssignFile(f,IntToStr(TreeView1.Selected.AbsoluteIndex));
Rewrite(f);
reset(f);
while not EOF(f) do
begin
readln (f,s);
memo1.Lines.Add(s)end ;
closefile(f) end;end;
//кнопка «Добавить описание»
procedure TForm1.Button9Click(Sender: TObject);
begin
memo1.SetFocus;
//в memo можно редактировать данные (информацию)
Memo1.ReadOnly:=false;
end;
//кнопка «Сохранить описание»
//сохраняем введенные в memoданные (информацию) в файл tree.dat
procedure TForm1.Button10Click(Sender: TObject);
begin
AssignFile(f,inttostr(treeview1.Selected.AbsoluteIndex));
rewrite(f);
for i:=0 to memo1.Lines.Count do
writeln(f, memo1.lines[i]); //записываем текст в него из МЕМО
closefile(f); //и закрываем
TreeView1.SaveToFile('tree.dat');
//memo доступен только для чтения
Memo1.ReadOnly:=true;
end;
end.
Другие работы по теме:
работа
Кинематографы создают удивительные спецэффекты или полностью анимированные фильмы. В последние годы широкое распространение получили также компьютерные игры, максимально использующие трехмерную графику для создания виртуальных миров
Вычисление значения функции y(x)
Особенности применения компьютерных программ Pascal, Excel, MathCAD и Delphi для вычисления значения функции y(x) с заданным промежутком и шагом. Виды результатов вычислений, их сравнение и вывод. Изображение блок-схемы алгоритма решения задания.
Визуальное программирование
Визуализация - это процесс графического отображения сложных процессов (в данном случае построения) на экране компьютера в виде графических примитивов (графических фигур).
Анимация без лишних усилий
Отличные результаты можно получить используя только функции WinAPI или возможности Delphi. Я рассмотрю несколько таких необычных возможностей, причем самый большой пример будет состоять из менее чем 10 (!) строк кода.
Описание файлов, создаваемых Дельфи
Вы когда ни будь задумывались о том, что создает Дельфи в папке с исходниками проекта? Да и нужен ли весь этот абсолютно бесполезный, для рядового программиста, "мусор"? Пора призадуматься. В этой мини-статье я расскажу о назначении таких файлов.
Установка компонентов в Дельфи
Если после установки компонента на форму возникли проблемы с компиляцией проекта, то это значит, что Delphi не может найти .pas файл компонента.
Реестр: записьчтение
Работа с системным реестром в Delphi достаточно простая. Использование реестра имеет некоторые преимущества перед INI-файлами. Они заключаются в том, что реестр - более стабильный, и у него нет ограничения на размер.
Магический квадрат в среде delphi
Министерство образования и науки Российской Федерации Федеральное агентство по образованию Государственное образовательное учреждение высшего профессионального образования
Разработка программы-советчика
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ ГОУ «ЧЕРЕПОВЕЦКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ» Институт информационных технологий Кафедра Автоматизации и систем управления
Математична модель вимірювальної системи в середовищі Delphi
Курсова робота Математична модель вимірювальної системи в середовищі Delphi АНОТАЦІЯ Опис програми містить загальний опис алгоритмів головної програми та допоміжних на рівні блок-схем, а також більш детальний опис розробленої програми на рівні програмного коду.
Створення таблиць за допомогою SQL-запитів в середовищі DELPHI
Створення таблиць за допомогою запитів в середовищі DELPHI Середовище Delphi широко використовується для програмування баз даних. Найчастіше, бази даних як певний підбір даних, організовані за допомогою таблиць. В реляційних базах даних таблиці представляють інформацію про об”єкти одного типу.
Программа на Delphi
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations }
Середовище програмування DELPHI 2 0
СЕРЕДОВИЩЕ ПРОГРАМУВАННЯ DELPHI 2.0 Зміст Основні елементи середовища 1. Головне вікно 2. Вікно форми 3. Вікно коду 4. Інспектор об’єктів Управління файлами проекту Delphi
Анімація в Delphi 7 0
КУРСОВИЙ ПРОЕКТ з дисципліни Основи програмування та алгоритмічних мов На тему „Анімація в Delphi 7 ” Зміст 1.Вступ 2.Характеристика предметної області
Середовище програмування DELPHI 20
СЕРЕДОВИЩЕ ПРОГРАМУВАННЯ DELPHI 2.0 Зміст 5.Основні елементи середовища 2 a.1. Головне вікно 2 a.2. Вікно форми 2 a.3. Вікно коду 3 a.4. Інспектор об’єктів 3
Визуальное программирование в Delphi
Изучение методов визуального программирования в Delphi. Задание: Построить графики функций ; ; Текст программы: unit Graph; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Создание приложения Клавиатурный тренажер
Министерство образования и науки Украины Луганский национальный университет имени Тараса Шевченко Ровеньковский факультет Кафедра информационных технологий и систем
Oedipus Free Will Essay Research Paper The
Oedipus Free Will Essay, Research Paper The characters in the story are free to make their own choices in life. Laios, upon being told that his son will kill him and marry his wife, chooses to have him killed. If Laios had not been told this
Oedipus Rex Essay Research Paper Oedipus RexOedipus
Oedipus Rex Essay, Research Paper Oedipus Rex Oedipus was not composed by his fate; he was responsible for his own conduct. From his very birth Oedipus was predetermined to marry his mother and murder his father. His situation was inevitable. Although Apollo exhorted the prophecy in Delphi, this event only drove Oedipus to fulfill his destiny.
Oedipus Essay Research Paper The Excruciating Truth
Oedipus Essay, Research Paper The Excruciating Truth of Oedipus Oedipus is a man of integrity and passion whose goal in life was to seek the raw truth. Throughout the story, he constantly tried to obtain that
Interpretations Of Socrates
’s Definition Of Wisdom Essay, Research Paper . he went to Delphi at one time and ventured to ask the oracle he asked if any man was wiser than I, and the Pythian replied that no one was wiser 21b
Oedipus The Irony Essay Research Paper Oedipus
Oedipus The Irony Essay, Research Paper Oedipus the Irony In Sophocles’s Oedipus The King, Oedipus’s life was set for him. He learned through the Oracle of Apollo at Delphi, that during the span of his lifetime that he would kill his father and marry his mother. He was obviously concerned by this. Laius also received the same Oracle from Apollo.
Oedipus The King And His Fate Essay
, Research Paper Oedipus The King, by Sophocles, is a play about how Oedipus lives up his fate that he will kill his father and marry his mother, both of which are extremely bad in the Greek society, even though he thinks he is getting away from it. Despite the Greek notions of supreme power of the gods and fate, Oedipus’ downfall is primarily the result of King Laius? and his own actions and attempts to defy the gods, consequently Sophocles says that prophecies from the gods of someone?s fate should not be ignored.
Oedipus Rex Essay Research Paper In Sophocles 2
Oedipus Rex Essay, Research Paper In Sophocles? Oedipus Rex, dramatic irony is often present in Oedipus? long speeches. Oedipus constantly sees things incorrectly, and is in denial that he
Oedipus The King Essay Research Paper Even
Oedipus The King Essay, Research Paper Even though Oedipus the King didn?t detail all of Oedipus? adventures, I thought it was a good book. I think it was smart of Sophocles to pick out the most
Apollo 2 Essay Research Paper ApolloTable of
Apollo 2 Essay, Research Paper Apollo Table of Contents 1. Title Page 2. Table of Content 3. Apollo Report 4. Apollo Report 5. Story of apollo 6. Temple of Apollo ( Didyma, Turkey )