IsakovAI
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Нет в 17 строке всё правильно 
Ночью не смог сообразить как лучше вставить код. Думал, можно прикрепить файл.
Код моего ежедневника
Код:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.Grids,
Vcl.DBGrids, Data.DB, Data.Win.ADODB, Vcl.DBCtrls, Vcl.ExtCtrls,
Vcl.Buttons, Vcl.ImgList;
type
TTreeViewForm = class(VCL.Forms.TForm)
TreeView1: TTreeView;
lblTree: TLabel;
DBGrid1: TDBGrid;
DBMemo1: TDBMemo;
Label1: TLabel;
cmdNewRec: TButton;
Button3: TButton;
cmdAbout: TButton;
Label2: TLabel;
MonthCalendar1: TMonthCalendar;
Label3: TLabel;
Button5: TButton;
DBNavigator1: TDBNavigator;
AddButton: TBitBtn;
AddChildButton: TBitBtn;
DelButton: TBitBtn;
EditButton: TBitBtn;
ImageList1: TImageList;
procedure AddButtonClick(Sender: TObject);
procedure DelButtonClick(Sender: TObject);
procedure EditButtonClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure AddChildButtonClick(Sender: TObject);
procedure cmdAboutClick(Sender: TObject);
procedure cmdNewRecClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TreeViewForm: TTreeViewForm;
implementation
{$R *.dfm}
uses Unit2, ABOUT, Unit4;
procedure TTreeViewForm.AddButtonClick(Sender: TObject);
var
CaptionStr:String;
NewNode:TTreeNode;
begin
CaptionStr:='';
if not InputQuery('Ввод имени ветки', 'Введите заголовок ветки',CaptionStr) then exit;
NewNode:=TreeView1.Items.Add(TreeView1.Selected, CaptionStr);
if NewNode.Parent<>nil then
NewNode.ImageIndex:=1;
end;
procedure TTreeViewForm.AddChildButtonClick(Sender: TObject);
var
CaptionStr:String;
NewNode:TTreeNode;
begin
CaptionStr:='';
if not InputQuery('Ввод имени веточки', 'Введите заголовок веточки',CaptionStr) then exit;
NewNode:=TreeView1.Items.AddChild(TreeView1.Selected, CaptionStr);
if NewNode.Parent<>nil then
NewNode.ImageIndex:=1;
end;
procedure TTreeViewForm.cmdAboutClick(Sender: TObject);
begin
AboutBox.Show
end;
procedure TTreeViewForm.cmdNewRecClick(Sender: TObject);
begin
Form4.Show;
end;
procedure TTreeViewForm.DelButtonClick(Sender: TObject);
begin
if TreeView1.Selected<>nil then
TreeView1.Items.Delete(TreeView1.Selected);
end;
procedure TTreeViewForm.EditButtonClick(Sender: TObject);
var
CaptionStr:String;
begin
CaptionStr:='';
if not InputQuery('Ввод имени элемента дерева', 'Введите заголовок элемента дерева',CaptionStr) then exit;
TreeView1.Selected.Text:=CaptionStr;
end;
procedure TTreeViewForm.FormShow(Sender: TObject);
var
i:Integer;
begin
if FileExists(ExtractFilePath(Application.ExeName)+'tree.txt') then
TreeView1.LoadFromFile(ExtractFilePath(Application.ExeName)+'tree.txt');
for i:=0 to TreeView1.Items.Count-1 do
begin
if TreeView1.Items[i].Parent=nil then
TreeView1.Items[i].ImageIndex:=0
else
TreeView1.Items[ i].ImageIndex:=1;
end;
end;
procedure TTreeViewForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
TreeView1.SaveToFile(ExtractFilePath(Application.ExeName)+'tree.txt');
end;
end. |
|
