Написание файлового менеджера: добавление заголовочных файлов к проекту, а также прямая и обратная совместимость кода в

@БузинВладимир · Регистрация: 21.08.2017

Студворк — интернет-сервис помощи студентам

Добрый день! Я пишу в шестом билдере файловый менеджер для курсовой работы как оконное приложение и не могу понять, в какой версии Borland C++ Builder или Embracadero разрабатывался этот код. Будет ли программа, написанная в старой версии, работать в новой и наоборот? А также как создавать новые заголовочные или cpp-файлы для текущего проекта?
Я пробовал использовать «Project -> Add To Project» для чернового консольного приложения, но в результате открывается окно проводника, который может только открыть уже существующий файл, а не создать новый. В итоге я создал на диске D папку с будущим проектом и через «File -> New -> Other… -> Cpp File» создал два cpp-файла перед созданием проекта, из-за чего возникли проблемы с компиляцией. По-хорошему, я по ходу работы в проекте кликаю правой клавишей по древовидной структуре, выбираю пункт «Создать -> Файл CPP» после чего среда сама подключает нужные библиотеки и после компиляции нужные заголовочные файлы «встают» сами. Файлы PropertyFile.cpp и PropertyDrive.cpp сами компилироваться не захотели, ссылаясь на ошибку
Error: Field Form1->ImageList2 does not have a corresponding component. Remove the declaration? (Yes/No/Cancel/Help)
и заголовочные файлы не «подтянулись». Придётся делать всё вручную и самому создавать недостающие заголовочные файлы. Какие библиотеки я должен подключить в двух вышеупомянутых файлах CPP и нужны ли первые девять строк в файле Unit1.h? Чтобы скомпилировать файл, не запуская его, я шёл в Project -> Compile Unit. И тут вопрос: после этой команды скомпилируется весь проект или только открытый в данный момент времени файл?

Извините за огромное количество вопросов, просто курс визуального программирования я «проспал» и без помощи со стороны или хотя бы списка литературы с подробными объяснениями я в этом обилии форм, кнопок и свойств «заблужусь».

В какой версии билдера или эмбракадеры лучше писать этот код? Где и какие библиотеки нужно добавить или убрать? Как добавить к проекту header- или cpp-файл непосредственно в ходе работы с ним и как скомпилировать отдельную подпрограмму, не запуская весь проект? Работаю в Borland C++ Builder 6.

Unit1.h

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
 
enum {ImageWindows, ImageFloppy, ImageDrive, ImageCD, ImageMyComp,ImageCloseFolder, ImageOpenFolder};
void strcat0(char * &dest,char *source); //Ñîåäèíåíèå ñòðîê ñ îñòàâëåíèåì íóëåâîãî ñèìâîëà
void finstr(char *dest);
unsigned int lengthfinstr(char *dest);
 
struct DROPFILES {
 DWORD pFiles; // offset of file list
 POINT pt; // drop point (client coords)
 BOOL fNC; // is it on NonClient area
 // and pt is in screen coords
 BOOL fWide; // WIDE character switch
};
 
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
 TImageList *ImageList2;
 void __fastcall TreeView1Expanding(TObject *Sender,
 TTreeNode *Node, bool &AllowExpansion);
 void __fastcall TreeView1Compare(TObject *Sender, TTreeNode *Node1,
 TTreeNode *Node2, int Data, int &Compare);
 void __fastcall TreeView1Expanded(TObject *Sender,
 TTreeNode *Node);
 void __fastcall TreeView1Collapsing(TObject *Sender,
 TTreeNode *Node, bool &AllowCollapse);
 void __fastcall TreeView1Editing(TObject *Sender, TTreeNode *Node,
 bool &AllowEdit);
 void __fastcall ListView1Compare(TObject *Sender, TListItem *Item1,
 TListItem *Item2, int Data, int &Compare);
 void __fastcall ListView1DblClick(TObject *Sender);
 void __fastcall ListView1MouseDown(TObject *Sender,
 TMouseButton Button, TShiftState Shift, int X, int Y);
 void __fastcall TreeView1DragOver(TObject *Sender, TObject *Source,
 int X, int Y, TDragState State, bool &Accept);
 void __fastcall TreeView1DragDrop(TObject *Sender, TObject *Source,
 int X, int Y);
 void __fastcall TreeView1MouseDown(TObject *Sender,
 TMouseButton Button, TShiftState Shift, int X, int Y);
 void __fastcall NPropertyClick(TObject *Sender);
 void __fastcall NOpenClick(TObject *Sender);
 void __fastcall NExitClick(TObject *Sender);
 void __fastcall NDeleteClick(TObject *Sender);
 void __fastcall TBDeleteClick(TObject *Sender);
 void __fastcall TBPropertyClick(TObject *Sender);
 void __fastcall TBExitClick(TObject *Sender);
 void __fastcall NViewClick(TObject *Sender);
 void __fastcall NPanelClick(TObject *Sender);
 void __fastcall NStatusBarClick(TObject *Sender);
 void __fastcall TBUpClick(TObject *Sender);
 void __fastcall TreeView1Edited(TObject *Sender, TTreeNode *Node,
 AnsiString &S);
 void __fastcall ListView1Edited(TObject *Sender, TListItem *Item,
 AnsiString &S);
 void __fastcall NRenameClick(TObject *Sender);
 void __fastcall TBRenameClick(TObject *Sender);
 void __fastcall NIconClick(TObject *Sender);
 void __fastcall NSmallIconClick(TObject *Sender);
 void __fastcall NListClick(TObject *Sender);
 void __fastcall NReportClick(TObject *Sender);
 void __fastcall ListView1DragOver(TObject *Sender, TObject *Source,
 int X, int Y, TDragState State, bool &Accept);
 void __fastcall ListView1DragDrop(TObject *Sender, TObject *Source,
 int X, int Y);
 void __fastcall TBUpdateClick(TObject *Sender);
 void __fastcall TreeView1Click(TObject *Sender);
 void __fastcall TBPasteClick(TObject *Sender);
 void __fastcall TBCopyClick(TObject *Sender);
 void __fastcall TBCutClick(TObject *Sender);
 void __fastcall NUpdateClick(TObject *Sender);
 void __fastcall NCutClick(TObject *Sender);
 void __fastcall NPasteClick(TObject *Sender);
 void __fastcall NCopyClick(TObject *Sender);
 void __fastcall NSelectAllClick(TObject *Sender);
 void __fastcall ListView1ColumnClick(TObject *Sender,
 TListColumn *Column);
 void __fastcall NSort0Click(TObject *Sender);
 void __fastcall NCreateFolderClick(TObject *Sender);
 void __fastcall NFileClick(TObject *Sender);
 void __fastcall NEditClick(TObject *Sender);
 void __fastcall ListView1ContextPopup(TObject *Sender,
 TPoint &MousePos, bool &Handled);
 void __fastcall TreeView1ContextPopup(TObject *Sender,
 TPoint &MousePos, bool &Handled);
 
private:    // User declarations
public:     // User declarations
 __fastcall TForm1(TComponent* Owner);
 void ShowDrives();
 void ViewChild(TTreeNode *child);
 void DeleteChild(TTreeNode *Node);
 void ViewFailAndFolderInListView(AnsiString dir);
 void ExpandTreeForFile(AnsiString FileName);
 int FileAndFolderOperation(char *frombuf, char *tobuf, unsigned int operation);
 TTreeNode* AddChildInNodeTree(TTreeNode *Node, AnsiString Dir);
 TListItem *AddItemInListView(TSearchRec sr,AnsiString dir);
 void ViewProperty();
 void OpenFileOrFolder(); //Îòêðûòü â Listview ôàéë èëè ïàïêó
 void DeleteFileOrFolder();
 void PrepareBufForOperationInListView(char * &frombuf);
 AnsiString RenameFileOrFolder(AnsiString);
 void RecursTree(TTreeNode *node,bool); //Ðåêóðñèâíîå îáíîâëåíèå äåðåâà
 void UpdateTreeView(bool); //Ôóíêöèÿ çàïóñêà ðåêóðñèâíîãî îáíîâëåíèÿ äåðåâà
 void UpdateListView(bool); //Ôóíêöèÿ îáíîâëåíèÿ listview
 void UpdateAll(bool);
 void PasteFileFromClipboard(); //Âñòàâèòü èç áóôåðà
 void CopyFileToClipboard(bool); //Êîïèðîâàòü ôàéëû â áóôåð
 void CreateFol();
 void UpdateLabel();
 
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

PropertyFile.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
TFPropertyFile *FPropertyFile;
//---------------------------------------------------------------------------
__fastcall TFPropertyFile::TFPropertyFile(TComponent* Owner)
 : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void TFPropertyFile::Set_Change(AnsiString Name,WIN32_FILE_ATTRIBUTE_DATA &attr)
 {
 if (ENameFile->Modified) //Ñîõðàíåíèå èçìåíåíèé
 { //Åñëè èçìåííåî èìÿ ôàéëà ïàïêè
 if((FileGetAttr(Name) & faDirectory)!=0)
 Name.SetLength(Name.Length()-1);
 char frombuf[1000]={'\0'}, tobuf[1000]={'\0'};
 strcpy(frombuf,Name.c_str());
 strcpy(tobuf,(ExtractFilePath(Name)+ENameFile->Text).c_str());
 Form1->FileAndFolderOperation(frombuf,tobuf,FO_RENAME); //Ïåðåèìåíîâûâàåì
 }
 //Ñîõðàíåíèå àòðèáóòîâ
 if(CBArchiv->Checked) attr.dwFileAttributes |= FILE_ATTRIBUTE_ARCHIVE;
 else attr.dwFileAttributes &= ~FILE_ATTRIBUTE_ARCHIVE;
 if(CBReadOnly->Checked) attr.dwFileAttributes |= FILE_ATTRIBUTE_READONLY;
 else attr.dwFileAttributes &= ~FILE_ATTRIBUTE_READONLY;
 if(CBHide->Checked) attr.dwFileAttributes |= FILE_ATTRIBUTE_HIDDEN;
 else attr.dwFileAttributes &= ~FILE_ATTRIBUTE_HIDDEN;
 if(CBSystem->Checked) attr.dwFileAttributes |= FILE_ATTRIBUTE_SYSTEM;
 else attr.dwFileAttributes &= ~FILE_ATTRIBUTE_SYSTEM;
 SetFileAttributes(Name.c_str(),attr.dwFileAttributes); //Óñòàíîâêà
 ENameFile->Modified=false;
 }
 
void TFPropertyFile::Get_Size_Folder(AnsiString dir)
 {
 TSearchRec sr;
 if(FindFirst(dir+"*",faAnyFile,sr)!=0) //Ïðîñìîòð ïàïîê â äåòÿõ
 return;
 do
 {
 int Attr=FileGetAttr(dir+sr.Name);
 if(Attr==-1 || sr.Name=="." || sr.Name=="..")
 continue; //Ïðîâåðêà íà îòñóòñòâóþùèå â äåéñòâèåòåëüíîñòè ïàïêè
 if(sr.Attr & faDirectory)
 {
 num_folder++;
 Get_Size_Folder(dir+sr.Name+"\\"); //Ñîõðàíåíèå ïîëíîãî èìåíè äëÿ äîñòóïà
 }
 else
 {
 num_files++;
 size+=sr.Size;
 unsigned long temp;
 temp=sr.Size;
 if((temp/byte_in_cluster*byte_in_cluster)!=temp) //Ïðîâåðêà âëåçàíèÿ ôàéëà
 temp=(temp/byte_in_cluster+1)*byte_in_cluster;
 size_on_disk+=temp;
 }
 }
 while(FindNext(sr)==0);
 FindClose(sr);
 }
 
void TFPropertyFile::Prepare(AnsiString Name)
 {
 //Ïîäãîòîâêà äàííûõ è ïîêàç ñâîéñòâ ôàéëà
 unsigned long int byte_in_sector,sector_in_cluster;
 GetDiskFreeSpace((ExtractFileDrive(Name)+"\\").c_str(),&sector_in_cluster,
 &byte_in_sector,NULL,NULL);
 byte_in_cluster=sector_in_cluster*byte_in_sector;
 Name_File=Name;
 GetFileAttributesEx(Name.c_str(),GetFileExInfoStandard,&attr);
 FILETIME ft;
 SYSTEMTIME st;
 AnsiString date;
 TDateTime dt;
 
 
 if((FileGetAttr(Name) & faDirectory)!=0) //Åñëè ñâîéñòâà ïàïêè
 {
 Graphics::TBitmap *i=new Graphics::TBitmap; //Çàãðóçêà èêîíêè ïàïêè
 Form1->ImageList3->GetBitmap(ImageCloseFolder,i);
 IIconFile->Picture->Bitmap->Assign(i);
 delete i;
 ENameFile->Text=ExtractFileName(Name.SubString(1,Name.Length()-1));
 LTypeFile->Caption="Ïàïêà"; //Çàãðóçêà íàçâàíèÿ
 LFolder->Caption=ExtractFilePath(Name.SubString(1,Name.Length()-1));
 num_files=num_folder=size=size_on_disk=0; //Çàïóñê ðåêóðñèâíîé ôóíêöèè ñ÷èòàþùåé
 Get_Size_Folder(Name); //ðàçìåð ïàïêè êîë-âî ôàéëîâ è ïàïîê â íåé
 LSize->Caption=AnsiString(FormatFloat("#,##0", size/1024))+" KB ("+AnsiString(FormatFloat("#,##0", size))+ " áàéò)";
 LOnDisk->Caption=AnsiString(FormatFloat("#,##0", size_on_disk/1024))+" KB ("+AnsiString(FormatFloat("#,##0", size_on_disk))+ " áàéò)";
 LName->Caption="Ñîäåðæèò :";
 LOpen->Caption=AnsiString("Ôàéëîâ: ")+num_files+" ; Ïàïîê: "+num_folder;
 
 }
 else //Åñëè ñâîéñòâà ôàéëà
 {
 SHFILEINFO sfi; //Ñòðóêòóðà ñîäåðæàùàÿ èíôó î ôàéëå
 ZeroMemory(&sfi,sizeof(sfi)); //Î÷èñòêà
 SHGetFileInfo(Name.c_str(),FILE_ATTRIBUTE_NORMAL,&sfi,sizeof(sfi),
 SHGFI_USEFILEATTRIBUTES|SHGFI_TYPENAME|SHGFI_ICON | SHGFI_LARGEICON    ); //Ïîëó÷åíèå äàííûõ
 TIcon *icon=new TIcon(); //Ñîçäàíèå äèíàìè÷åñêîé èêîíêè
 icon->Handle=sfi.hIcon; //Çàãðóçêà â íåå äåñêðèïòîðà íóæíîé èêîíêè
 IIconFile->Picture->Icon->Assign(icon); //Çàíåñåíèå äåñêðèïòîðà â imagelist
 delete icon;
 ENameFile->Text=ExtractFileName(Name);
 LTypeFile->Caption=(AnsiString)(sfi.szTypeName);//Çàíåñåíèå èìåíè òèïà
 LFolder->Caption=ExtractFilePath(Name); //Çàíåñåíèå êàòàëîãà
 
 
 //----------------------------------------------
 //Ïîëó÷åíèå àòðèáóòîâ - äàò ðàçìåðà àòðèáóòîâ
 
 unsigned long int size=attr.nFileSizeHigh<<16 | attr.nFileSizeLow;
 //Âûâîä ðàçìåðîâ
 LSize->Caption=AnsiString(size/1024)+" KB ("+AnsiString(size)+ " áàéò)"; //ðàçìåðà
 if((size/byte_in_cluster*byte_in_cluster)!=size) //Ïðîâåðêà âëåçàíèÿ ôàéëà
 size=(size/byte_in_cluster+1)*byte_in_cluster; //â êëàñòåðû è íàëè÷èÿ ñâîáîäíîãî ìåñòà â íèõ
 LOnDisk->Caption=AnsiString(size/1024)+" KB ("+AnsiString(size)+ " áàéò)";
 LName->Caption="Îòêðûò :";
 //----------------------------------------------------
 //Îïðåäåëåíèå äàò
 //Äàòû äîñòóïà
 FileTimeToLocalFileTime(&(attr.ftLastAccessTime), &ft);
 FileTimeToSystemTime( &ft, &st);
 dt=SystemTimeToDateTime(st);
 DateTimeToString(date,"d mmm yyyy ã.",dt);
 LOpen->Caption=date; //Çàïèñü äàòû äîñòóïà
 //----------------------------------------
 }
 //Äàòû ñîçäàíèÿ
 FileTimeToLocalFileTime(&(attr.ftCreationTime), &ft);
 FileTimeToSystemTime( &ft, &st);
 dt=SystemTimeToDateTime(st);
 DateTimeToString(date,"d mmm yyyy ã., hh:nn:ss",dt);
 LCreate->Caption=date; //Çàïèñü äàòû ñîçäàíèÿ
 ///Äàòû èçìåíåíèÿ
 FileTimeToLocalFileTime(&(attr.ftLastWriteTime), &ft);
 FileTimeToSystemTime( &ft, &st);
 dt=SystemTimeToDateTime(st);
 DateTimeToString(date,"d mmm yyyy ã., hh:nn:ss",dt);
 LWrite->Caption=date; //Çàïèñü äàòû èçìåíåíèÿ
 
 CBArchiv->Checked=attr.dwFileAttributes & FILE_ATTRIBUTE_ARCHIVE;
 CBReadOnly->Checked=attr.dwFileAttributes & FILE_ATTRIBUTE_READONLY;
 CBHide->Checked=attr.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN;
 CBSystem->Checked=attr.dwFileAttributes & FILE_ATTRIBUTE_SYSTEM;
 
 ENameFile->Modified=false;
 if(FPropertyFile->ShowModal()==mrOk) //Ïîêàç ôîðìû
 Set_Change(Name,attr);
 
 
 }
 
void __fastcall TFPropertyFile::BtApplyClick(TObject *Sender)
{ //Ùåë÷îê íà ïðèìåíèòü
 Set_Change(Name_File,attr); //Âûçîâ ôóíêöèè ñîõðàíåíèÿ èçìåíåíèé
}
//---------------------------------------------------------------------------

PropertyDrive.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
TFPropertyDrive *FPropertyDrive;
//---------------------------------------------------------------------------
__fastcall TFPropertyDrive::TFPropertyDrive(TComponent* Owner)
 : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void TFPropertyDrive::Prepare(AnsiString Name)
 {
 Name_Drive=Name;
 Graphics::TBitmap *i=new Graphics::TBitmap; //Çàãðóçêà èêîíêè ïàïêè
 
 Caption="Ñâîéñòâà: Äèñê "+Name.SubString(1,2);
 switch(GetDriveType(Name.c_str())) //Çàãðóçêà image
 {
 case DRIVE_REMOVABLE:
 LType->Caption="Äèñêîâîä";
 Form1->ImageList3->GetBitmap(ImageFloppy,i);
 break;
 case DRIVE_FIXED:
 case DRIVE_RAMDISK:
 LType->Caption="Æåñòêèé äèñê";
 Form1->ImageList3->GetBitmap(ImageDrive,i);
 break;
 case DRIVE_CDROM:
 LType->Caption="CD-äèñêîâîä";
 Form1->ImageList3->GetBitmap(ImageCD,i);
 break;
 default:
 LType->Caption="Íåèçâåñòíûé äèñêîâîä";
 Form1->ImageList3->GetBitmap(ImageWindows,i);
 break;
 }
 IIconDisk->Picture->Bitmap->Assign(i);
 delete i;
 char volume[20],filesystem[20];
 if(GetVolumeInformation(Name.c_str(),volume,20,NULL,NULL,NULL,filesystem,20))
 {
 ELabelDisk->Text=volume;
 LFileSystem->Caption=filesystem;
 }
 else
 {
 ELabelDisk->Text="";
 LFileSystem->Caption="";
 }
 __int64 FreeSpace,TotalSpace,TakenSpace;
 
 Chart1->Series[0]->Clear();
 if(Sysutils::GetDiskFreeSpaceEx(Name.c_str(),NULL,TotalSpace,&FreeSpace))
 {
 double c=10.0;
 TakenSpace=TotalSpace-FreeSpace;
 LTaken1->Caption=AnsiString(FormatFloat("#,##0", TakenSpace))+" áàéò";
 LTaken2->Caption=AnsiString(((TakenSpace*10)/1024/1024/1024)/c)+" ÃÁ";
 LFree1->Caption=AnsiString(FormatFloat("#,##0", FreeSpace))+" áàéò";
 LFree2->Caption=AnsiString(((FreeSpace*10)/1024/1024/1024)/c)+" ÃÁ";
 LCapacity1->Caption=AnsiString(FormatFloat("#,##0", TotalSpace))+" áàéò";
 LCapacity2->Caption=AnsiString(((TotalSpace*10)/1024/1024/1024)/c)+" ÃÁ";
 Image1->Canvas->Brush->Color=clRed;
 Image1->Canvas->FillRect(Rect(0,0,Image1->Width,Image1->Height));
 Chart1->Series[0]->Add(TakenSpace,"1",clRed);
 Image2->Canvas->Brush->Color=clGreen;
 Image2->Canvas->FillRect(Rect(0,0,Image2->Width,Image2->Height));
 Chart1->Series[0]->Add(FreeSpace,"2",clGreen);
 Chart1->View3DOptions->Elevation=290;
 }
 else
 {
 LTaken1->Caption="0 áàéò";
 LTaken2->Caption="0 áàéò";
 LFree1->Caption="0 áàéò";
 LFree2->Caption="0 áàéò";
 LCapacity1->Caption="0 áàéò";
 LCapacity2->Caption="0 áàéò";
 Image1->Canvas->Brush->Color=clRed;
 Image1->Canvas->FillRect(Rect(0,0,Image1->Width,Image1->Height));
 Chart1->Series[0]->Add(100,"1",clRed);
 Image2->Canvas->Brush->Color=clGreen;
 Image2->Canvas->FillRect(Rect(0,0,Image2->Width,Image2->Height));
 Chart1->View3DOptions->Elevation=290;
 }
 ELabelDisk->Modified=false;
 if(FPropertyDrive->ShowModal()==mrOk)
 {
 if(ELabelDisk->Modified)
 SetVolumeLabel(Name.c_str(),ELabelDisk->Text.c_str());
 }
 }
 
void __fastcall TFPropertyDrive::BtApplyClick(TObject *Sender)
{
 
 if(ELabelDisk->Modified)
 SetVolumeLabel(Name_Drive.c_str(),ELabelDisk->Text.c_str());
 ELabelDisk->Modified=false;
}
//---------------------------------------------------------------------------

@БузинВладимир · 05.05.2019, 14:45 **[ТС]**

nick42, а откуда Вы взяли оператор сложения, из какой библиотеки? Он случайно не из класса string?

@nick42 · 05.05.2019, 15:39

БузинВладимир, вы сейчас говорите не на моём лексиконе. Я не изучал программирование и не штудировал спец.литературу по этому предмету. Поэтому я избегаю давать советы там, где студенты ожидают теоретически грамотной рекомендации. Мой совет помог исправлению ошибки? ОК; а объяснять своему преподавателю почему так, а не иначе..., ну - это ваша головная боль.
Не нужно было спать на лекциях

@D1973 · 06.05.2019, 16:13

Сообщение от БузинВладимир

а откуда Вы взяли оператор сложения

Обычная конкатенация паскалевских строк... БузинВладимир, это C++ Builder, а не чистый С++ - не забывайте про это... Тут зачастую гораздо удобнее и эффективнее оперировать родными для Билдера, а не для С++, классами...

@БузинВладимир · 07.05.2019, 09:32 **[ТС]**

Я модернизировал программу: в контекстном меню создал две кнопки: Cut и Paste, а также две глобальные переменные: filepath и filename. При нажатии на первую кнопку в этих глобальных переменных запоминаются текущий путь и имя файла, а на вторую - в зависимости от выполнения команды перемещения выводится сообщение об успешности или ошибке операции. Какие ещё случаи я не предусмотрел в алгоритме перемещения? Чем MoveFile отличается от MoveFileEx или MoveFileW? И как при нажатии на кнопку вывести диалоговое окно с полем для переименования файлов и кнопками OK и Cancel, если я буду создавать кнопку Rename?

Unit1.cpp

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#include <vcl.h>
#include <string>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
System::AnsiString filepath;
System::AnsiString filename;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
FileListBox1->Mask = Edit1->Text.Trim() + "*.*";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Docs1Click(TObject *Sender)
{
Edit1->Text="*.docx";
FileListBox1->Mask="*.docx";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::JPEGImages1Click(TObject *Sender)
{
Edit1->Text="*.jpg";
FileListBox1->Mask="*.jpg";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AllFile1Click(TObject *Sender)
{
Edit1->Text="*.*";
FileListBox1->Mask="*.*";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Cut1Click(TObject *Sender)
{
filepath = FileListBox1->FileName; //Ïðè íàæàòèè íà êíîïêó "Cut" çàïîìèíàåòñÿ òåêóùèé ïóòü ê
filename = ExtractFileName(FileListBox1->FileName); //ôàéëó è åãî òåêóùåå èìÿ
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Paste1Click(TObject *Sender)
{ //ïðîâåðÿåì, áûë ëè ïåðåìåù¸í ôàéë, è, â çàâèñèìîñòè îò ðåçóëüòàòà, âûâîäèì ñîîáùåíèå îá
if(MoveFile(filepath.c_str(),(DirectoryListBox1->Directory+"/"+filename).c_str())) {
ShowMessage("File moved successfully!"); //óñïåøíîñòè èëè îøèáêå ïåðåìåùåíèÿ
} else {
ShowMessage("Error! File didn't move!");
}
}

Unit1.h

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <FileCtrl.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TDriveComboBox *DriveComboBox1;
        TDirectoryListBox *DirectoryListBox1;
        TFileListBox *FileListBox1;
        TEdit *Edit1;
        TPopupMenu *PopupMenu1;
        TMenuItem *Docs1;
        TMenuItem *JPEGImages1;
        TMenuItem *AllFile1;
        TMenuItem *Cut1;
        TMenuItem *Paste1;
        void __fastcall Edit1Change(TObject *Sender);
        void __fastcall Docs1Click(TObject *Sender);
        void __fastcall JPEGImages1Click(TObject *Sender);
        void __fastcall AllFile1Click(TObject *Sender);
        void __fastcall Cut1Click(TObject *Sender);
        void __fastcall Paste1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

@nick42 · 07.05.2019, 13:00

Сообщение от БузинВладимир

как при нажатии на кнопку вывести диалоговое окно

Мой вариант__

C++
1
2
3
4
5
6
7
void __fastcall TForm1::Rename1Click(TObject *Sender)
{
    filename = ExtractFileName(FileListBox1->FileName);
    if( !InputQuery("Переименование","Файл:",filename)) return;
    RenameFile(FileListBox1->FileName,filename); 
    FileListBox1->Update(); 
}

Добавлено через 1 час 2 минуты
И добавить в конец: FileListBox1->FileName = filename; чтоб фокус не сползал.

@БузинВладимир · 08.05.2019, 11:50 **[ТС]**

Что значит "один файл не должен быть перемещён дважды? Я в условии проверял, выполнилась ли операция перемещения и в зависимости от его выполнения выводил сообщение об успешности или ошибке. Как изменить условие проверки?

Добавлено через 3 часа 36 минут
Я решил сделать кнопки Cut и Paste неактивными по умолчанию так, чтобы кнопка Cut стала активной только когда в FileListBox будет выделен какой-нибудь элемент списка, а кнопка Paste - тогда, когда будет нажата кнопка Cut и записаны путь к файлу и его имя. Я использовал событие OnChange для FileListBox и OnClick для Cut, но первое событие не сработало, кнопка Cut всё равно активна. Как сделать так, чтобы кнопка Cut была активна или неактивна в зависимости от того, был ли выбран файл в FileListBox или нет?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
void __fastcall TForm1::Cut1Click(TObject *Sender)
{
filepath = FileListBox1->FileName; //При нажатии на кнопку "Cut" запоминается текущий путь к
filename = ExtractFileName(FileListBox1->FileName); //файлу и его текущее имя
Paste1->Enabled = true; //Делаем кнопку Paste активной, так как по умолчанию она неактивна
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Paste1Click(TObject *Sender)
{ //Проверяем, был ли перемещён файл, и, в зависимости от результата, выводим сообщение об
if(MoveFile(filepath.c_str(),(DirectoryListBox1->Directory+"/"+filename).c_str())) {
ShowMessage("File moved from\n"+filepath+"to\n"+DirectoryListBox1->Directory+"/"+filename); //успешности или ошибке перемещения
Paste1->Enabled = false;
FileListBox1->Update();
} else {
ShowMessage("Error! File didn't move!");
Paste1->Enabled = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FileListBox1Change(TObject *Sender)
{ //Если какой-нибудь элемент из списка файлов был выделен, делаем кнопку Cut активной,
if(ExtractFileName(FileListBox1->FileName) != NULL) { //так как по умолчанию она неактивна
Cut1->Enabled = true;
} else {
Cut1->Enabled = false;
}
}

@nick42 · 08.05.2019, 14:03

Сообщение от БузинВладимир

Как сделать так, чтобы кнопка Cut была активна или неактивна в зависимости

C++
1
Cut1->Enabled = FileListBox1->ItemIndex >=0;

Новые блоги и статьи Все статьи Все блоги /
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .	сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры. anaschu 12.07.2026 Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .	сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .

@БузинВладимир 0 / 0 / 4 Регистрация: 21.08.2017 Сообщений: 208
	05.05.2019, 14:45 [ТС]
	nick42, а откуда Вы взяли оператор сложения, из какой библиотеки? Он случайно не из класса string? 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	05.05.2019, 15:39
	БузинВладимир, вы сейчас говорите не на моём лексиконе. Я не изучал программирование и не штудировал спец.литературу по этому предмету. Поэтому я избегаю давать советы там, где студенты ожидают теоретически грамотной рекомендации. Мой совет помог исправлению ошибки? ОК; а объяснять своему преподавателю почему так, а не иначе..., ну - это ваша головная боль. Не нужно было спать на лекциях 0