Записная книжка

@ArxangelXA · Регистрация: 20.08.2012

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

Подскажите как сделать так что бы я записывал допустим имя в Edit подробности в memo и фотку в image нажимал на кнопку создать и это все записывалось в текстовый документ уже заранее созданный в корне программы, а потом в combobox можно было бы выбрать какую то запись из этого текстового документа и и информация подгружалась бы в нужные поля.
конечно можно и сохранение сделать, но что то не клеиться вообще ничего
Помогите это реализовать

@ArxangelXA · 05.12.2014, 22:03 **[ТС]**

Пока получились вот такие жалкие попытки
код

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <iostream.h>
#include <string>
 
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
int i;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button6Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
int a;
int i=3;
ComboBox1->Items->Add(StrToInt(Edit1->Text));
String Path = Edit1->Text+".txt";
Memo1->Lines->SaveToFile(Path);
i++;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button3Click(TObject *Sender)
{
int x;
String b;
String Paths;
if (ComboBox1->ItemIndex!=-1) {x=ComboBox1->ItemIndex;
ComboBox1->Items->Delete(ComboBox1->ItemIndex);
ComboBox1->Items->Insert(x,"Выполнено");
b=StrToInt(x+1);
Paths = b+".txt";
Memo1->Lines->Clear();
Memo1->Lines->SaveToFile(Paths);
}
}
//---------------------------------------------------------------------------

как сделать редактирование не понятно, да еще и надпись выполнить так и остается(можно конечно пробел оставить но тоже не вариант), по поводу memo и картинок вообще не знаю как написать.
Я вообще так то чайник)

@ArxangelXA · 05.12.2014, 22:09 **[ТС]**

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

@gumi250 · 06.12.2014, 02:57

1. Как у вас картинка будет сохранятся в текстовый документ? Текстовый документ это текст, а не картинки.
2. Откуда на форме возьмется картинка? Загрузится, вы ее нарисуете и т.д. ?
3. Вариант сохранения в базу данных не рассматривали?
4. Можно на каждую запись хранить свой тхт файл и свой файл с картинкой.
5. Можно все записи свести в 1 файл, а картинки хранить в отдельных файлах.

@ArxangelXA · 06.12.2014, 08:26 **[ТС]**

gumi250, я хотел сделать так что бы просто на эти записи картинки загружались из определенной папки. Они назывались бы 1 2 3... И автоматом подгружается к 1 записи 1 картинка и все, даже если бы я удалял запись то эта 1 картинка все равно крепилась бы к следующей первой записи.

Можно конечно что бы в один тхт писалось бы, но у меня уже создаются отдельные файлы на каждую запись так что пусть остается так.

Только я не знаю как сделать редактирование

@gumi250 · 06.12.2014, 09:31

Сообщение от ArxangelXA

Только я не знаю как сделать редактирование

Что подразумевается под редактированием?

@Winorun · 06.12.2014, 10:24

Сообщение от gumi250

1. Как у вас картинка будет сохранятся в текстовый документ? Текстовый документ это текст, а не картинки.

base64? не неслышали.

@ArxangelXA · 06.12.2014, 11:38 **[ТС]**

Сообщение от gumi250

Что подразумевается под редактированием?

Я выбираю в combobox элемент(получается один из текстовых документов которые есть в корне) его содержимое подгружается в memo я редактирую memo и нажимаю на редактировать и документ пересохраняется что ли.

Сообщение от Winorun

base64? не неслышали.

ладно обойдусь без картинки

@gumi250 · 06.12.2014, 12:08

Я не понимаю чем кнопка "Сохранить" отличается от кнопки "Редактировать"? Напишите код в кнопку "Редактировать":

C++
1
2
Memo1->Lines->SaveToFile(FileNameTxt);
Image1->Picture->SaveToFile(FileNameBmp);

И вы достигните требуемого.

@ArxangelXA · 06.12.2014, 12:17 **[ТС]**

gumi250,
bcc32 command line for "Unit5.cpp"
c:\program files (x86)\embarcadero\studio\15.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39\boost\tr1\tr1";"C:\Program
Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39";"c:\program files (x86)\embarcadero\studio\15.0\include";" c:\program files
(x86)\embarcadero\studio\15.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\crtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\rtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\fmx";"C:\Program Files
(x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32" -y -Q -k -r- -c -tR -tM -tU -tW -C8 -o.\Win32\Debug\Unit5.obj -w-par
-Od -v -vi- -H=.\Win32\Debug\Project4.pch -H Unit5.cpp
[bcc32 Error] Unit5.cpp(52): E2451 Undefined symbol 'FileNameTxt'
Full parser context
Unit5.cpp(51): parsing: void _fastcall TForm5::Button2Click(TObject *)
[bcc32 Error] Unit5.cpp(53): E2451 Undefined symbol 'FileNameBmp'
Full parser context
Unit5.cpp(51): parsing: void _fastcall TForm5::Button2Click(TObject *)
Failed
Elapsed time: 00:00:00.2

Я сделал вот так конечно это не совсем правильно

Кликните здесь для просмотра всего текста

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <iostream.h>
#include <string>
 
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
int i;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button6Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
int a;
int i=3;
ComboBox1->Items->Add(StrToInt(Edit1->Text));
String Path = Edit1->Text+".txt";
Memo1->Lines->SaveToFile(Path);
i++;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button3Click(TObject *Sender)
{
int x;
String b;
String Paths;
if (ComboBox1->ItemIndex!=-1) {x=ComboBox1->ItemIndex;
ComboBox1->Items->Delete(ComboBox1->ItemIndex);
ComboBox1->Items->Insert(x," ");
b=StrToInt(x+1);
Paths = b+".txt";
Memo1->Lines->Clear();
Memo1->Lines->SaveToFile(Paths);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button2Click(TObject *Sender)
{
if(SaveDialog1->Execute()){
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm5::Memo1Change(TObject *Sender)
{
int a;
String b;
String Paths;
if (ComboBox1->ItemIndex>2) { a=ComboBox1->ItemIndex+1;
b=StrToInt(a);
Paths = b+".txt";
Memo1->Lines->LoadFromFile(Paths);}
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm5::Button4Click(TObject *Sender)
{
Image1->Picture->LoadFromFile("1.bmp");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm5::FormCreate(TObject *Sender)
{
Invalidate();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm5::RadioButton1Click(TObject *Sender)
{
if(RadioButton1->Checked){
Image1->Picture->LoadFromFile("1.bmp");
}}
//---------------------------------------------------------------------------
 
void __fastcall TForm5::RadioButton2Click(TObject *Sender)
{
if(RadioButton2->Checked){
Image1->Picture->LoadFromFile("2.png");
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm5::RadioButton3Click(TObject *Sender)
{
if(RadioButton3->Checked){
Image1->Picture->LoadFromFile("3.png");
}
}

1) правда почему то у меня картинки не меняются, вообще не появляются.
2) список текстовых документов не подгружается
3) файлы которые сразу создаю меняю их, а инфа в мемо не меняется относительно документов.

@ArxangelXA · 06.12.2014, 12:24 **[ТС]**

@gumi250 · 06.12.2014, 12:40

1. В моем примере вместо FileNameTxt и FileNameBmp нужно вставить правильные пути.
2. Назовите кнопки осмысленно. ButtonSave, ButtonLoad, ButtonEdit и т.д. что у вас Button1, Button2 мне не ясно.

Добавлено через 43 секунды

C++
1
2
3
4
void __fastcall TForm5::FormCreate(TObject *Sender)
{
Invalidate();
}

это ненужно

Добавлено через 3 минуты
Где обработчик OnChange для ComboBox1?

@ArxangelXA · 06.12.2014, 14:34 **[ТС]**

gumi250,
Для combobox вот "ComboBox1Change"
А как конкретный путь прописать? у меня картинки и тхт находятся в корне
"C:\Users\пользователь\Documents\Embarca dero\Studio\Projects\Win32\Debug"

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <iostream.h>
#include <string>
 
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
int i;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::ButtonExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::ButtonAddClick(TObject *Sender)
{
int a;
int i=3;
ComboBox1->Items->Add(StrToInt(Edit1->Text));
String Path = Edit1->Text+".txt";
Memo1->Lines->SaveToFile(Path);
i++;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::ButtonDelClick(TObject *Sender)
{
int x;
String b;
String Paths;
if (ComboBox1->ItemIndex!=-1) {x=ComboBox1->ItemIndex;
ComboBox1->Items->Delete(ComboBox1->ItemIndex);
ComboBox1->Items->Insert(x," ");
b=StrToInt(x+1);
Paths = b+".txt";
Memo1->Lines->Clear();
Memo1->Lines->SaveToFile(Paths);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::ButtonEditClick(TObject *Sender)
{
Memo1->Lines->SaveToFile(FileNameTxt);
Image1->Picture->SaveToFile(FileNameBmp);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm5::Memo1Change(TObject *Sender)
{
int a;
String b;
String Paths;
if (ComboBox1->ItemIndex>2) { a=ComboBox1->ItemIndex+1;
b=StrToInt(a);
Paths = b+".txt";
Memo1->Lines->LoadFromFile(Paths);}
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm5::ComboBox1Change(TObject *Sender)
{
int a;
String b;
String Paths;
if (ComboBox1->ItemIndex>2) { a=ComboBox1->ItemIndex+1;
b=StrToInt(a);
Paths = b+".txt";
Memo1->Lines->LoadFromFile(Paths);}
}

@gumi250 · 06.12.2014, 16:41

Как то так:

C++
1
2
3
4
5
6
void __fastcall TForm5::ButtonEditClick(TObject *Sender)
{
String FileName=ExtractFileDir(Application->ExeName)+"\\"+Edit1->Text;
Memo1->Lines->SaveToFile(FileName+".txt");
Image1->Picture->SaveToFile(FileName+".bmp");
}

@ArxangelXA · 06.12.2014, 16:43 **[ТС]**

gumi250,
ошибка
Compiling Project4.cbproj (Debug, Win32)
bcc32 command line for "Unit5.cpp"
c:\program files (x86)\embarcadero\studio\15.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39\boost\tr1\tr1";"C:\Program
Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39";"c:\program files (x86)\embarcadero\studio\15.0\include";" c:\program files
(x86)\embarcadero\studio\15.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\crtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\rtl";"c:\program files
(x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\fmx";"C:\Program Files
(x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32" -y -Q -k -r- -c -tR -tM -tU -tW -C8 -o.\Win32\Debug\Unit5.obj -w-par
-Od -v -vi- -H=.\Win32\Debug\Project4.pch -H Unit5.cpp
ilink32 command line
c:\program files (x86)\embarcadero\studio\15.0\bin\ilink3 2.exe -G8 -L.\Win32\Debug;"c:\program files (x86)\embarcadero\studio\15.0\lib\win32\ release";
"c:\program files (x86)\embarcadero\studio\15.0\lib\Win32\ debug";"c:\program files (x86)\embarcadero\studio\15.0\lib\win32\ release";"c:\program files
(x86)\embarcadero\studio\15.0\lib\win32\ release\psdk";"C:\Program Files (x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32";
C:\Users\Public\Documents\Embarcadero\St udio\15.0\DCP -j.\Win32\Debug;"c:\program files (x86)\embarcadero\studio\15.0\lib\win32\ release";"c:\program
files (x86)\embarcadero\studio\15.0\lib\Win32\ debug";"c:\program files (x86)\embarcadero\studio\15.0\lib\win32\ release";"c:\program files
(x86)\embarcadero\studio\15.0\lib\win32\ release\psdk";"C:\Program Files (x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32";
C:\Users\Public\Documents\Embarcadero\St udio\15.0\DCP -l.\Win32\Debug -v
-GA"C:\Users\GURU\AppData\Local\Temp\vfs7 C91.tmp"="C:\Users\GURU\Documents\Embarc adero\Studio\Projects\Unit5.dfm" -aa -V5.0 -Tpe c0w32w rtl.bpi
vcl.bpi memmgr.lib sysinit.obj .\Win32\Debug\Project4.obj .\Win32\Debug\Unit5.obj , .\Win32\Debug\Project4.exe , .\Win32\Debug\Project4.map ,
import32.lib cp32mti.lib , , Project4.res
[ilink32 Error] Error: Unresolved external '__fastcall TForm5::FormCreate(System::TObject *)' referenced from C:\USERS\GURU\DOCUMENTS\EMBARCADERO\STUD IO\PROJECTS\WIN32\DEBUG\UNIT5.OBJ
[ilink32 Error] Error: Unable to perform link
Failed
Elapsed time: 00:00:01.2

@gumi250 · 06.12.2014, 16:48

Выложите проект, так будет проще.

@ArxangelXA · 06.12.2014, 17:02 **[ТС]**

gumi250, Прошло запускается, только я не понял это

C++
1
Image1->Picture->SaveToFile(FileName+".bmp");

для редактирования картинки? а как ее для начала вставить когда создаю запись?

И насчет редактирования не совсем понял как оно должно работать? я выбрал запись в комбо прописал новое в мемо нажал редактировать, а в текстовом все равно ни чего не изменилось.

И как сделать что бы при запуске проги в комбо сразу подгружались название всех тхт которые есть в корне программы?

@ArxangelXA · 06.12.2014, 17:09 **[ТС]**

Projects.rar

@gumi250 · 06.12.2014, 17:20

Мой код просто сохраняет содержимое мемо и имиджа в файлы.
Вы бы написали для себя тех задание. Т.е. что должна делать каждая кнопка, откуда чего брать и т.д. Мой код берет имя файла из Edit1, но вы можете брать из комбобокса.
Чтобы загрузить список в комбобокс, логично будет посмотреть список файлов в папке.

Добавлено через 8 минут
Зачем это?: void __fastcall TForm5::Memo1Change(TObject *Sender)

@ArxangelXA · 06.12.2014, 17:25 **[ТС]**

Сообщение от gumi250

Чтобы загрузить список в комбобокс, логично будет посмотреть список файлов в папке.

Я спросил потому что не знаю как это сделать((

Сообщение от gumi250

Зачем это: void __fastcall TForm5::Memo1Change(TObject *Sender)

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

И так же как при созданий еще выбирать картинки?

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@ArxangelXA 43 / 13 / 1 Регистрация: 20.08.2012 Сообщений: 788

	Записная книжка 05.12.2014, 21:41. Показов 4174. Ответов 29 Метки нет (Все метки) Подскажите как сделать так что бы я записывал допустим имя в Edit подробности в memo и фотку в image нажимал на кнопку создать и это все записывалось в текстовый документ уже заранее созданный в корне программы, а потом в combobox можно было бы выбрать какую то запись из этого текстового документа и и информация подгружалась бы в нужные поля. конечно можно и сохранение сделать, но что то не клеиться вообще ничего Помогите это реализовать 0

@ArxangelXA 43 / 13 / 1 Регистрация: 20.08.2012 Сообщений: 788
	05.12.2014, 22:09 [ТС]
	то есть он пишет в мемо и получается отдельный документ с записями которые были в мемо, пусть так. кнопка сохранить тогда не нужна. И кнопка открыть если бы они автоматический подгружались в комбобокс списком 0

@gumi250 435 / 402 / 57 Регистрация: 06.02.2012 Сообщений: 1,384
	06.12.2014, 02:57
	1. Как у вас картинка будет сохранятся в текстовый документ? Текстовый документ это текст, а не картинки. 2. Откуда на форме возьмется картинка? Загрузится, вы ее нарисуете и т.д. ? 3. Вариант сохранения в базу данных не рассматривали? 4. Можно на каждую запись хранить свой тхт файл и свой файл с картинкой. 5. Можно все записи свести в 1 файл, а картинки хранить в отдельных файлах. 1

@ArxangelXA 43 / 13 / 1 Регистрация: 20.08.2012 Сообщений: 788
	06.12.2014, 08:26 [ТС]
	gumi250, я хотел сделать так что бы просто на эти записи картинки загружались из определенной папки. Они назывались бы 1 2 3... И автоматом подгружается к 1 записи 1 картинка и все, даже если бы я удалял запись то эта 1 картинка все равно крепилась бы к следующей первой записи. Можно конечно что бы в один тхт писалось бы, но у меня уже создаются отдельные файлы на каждую запись так что пусть остается так. Только я не знаю как сделать редактирование 0

@ArxangelXA 43 / 13 / 1 Регистрация: 20.08.2012 Сообщений: 788
	06.12.2014, 12:24 [ТС]
	0

@ArxangelXA 43 / 13 / 1 Регистрация: 20.08.2012 Сообщений: 788
	06.12.2014, 16:43 [ТС]
	gumi250, ошибка Compiling Project4.cbproj (Debug, Win32) bcc32 command line for "Unit5.cpp" c:\program files (x86)\embarcadero\studio\15.0\bin\bcc32. exe -D_DEBUG -DUSEPACKAGES -n.\Win32\Debug -I"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"C:\Program Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39\boost\tr1\tr1";"C:\Program Files (x86)\Embarcadero\Studio\15.0\include\bo ost_1_39";"c:\program files (x86)\embarcadero\studio\15.0\include";" c:\program files (x86)\embarcadero\studio\15.0\include\di nkumware";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\crtl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\sdk";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\rtl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\vcl";"c:\program files (x86)\embarcadero\studio\15.0\include\wi ndows\fmx";"C:\Program Files (x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32" -y -Q -k -r- -c -tR -tM -tU -tW -C8 -o.\Win32\Debug\Unit5.obj -w-par -Od -v -vi- -H=.\Win32\Debug\Project4.pch -H Unit5.cpp ilink32 command line c:\program files (x86)\embarcadero\studio\15.0\bin\ilink3 2.exe -G8 -L.\Win32\Debug;"c:\program files (x86)\embarcadero\studio\15.0\lib\win32\ release"; "c:\program files (x86)\embarcadero\studio\15.0\lib\Win32\ debug";"c:\program files (x86)\embarcadero\studio\15.0\lib\win32\ release";"c:\program files (x86)\embarcadero\studio\15.0\lib\win32\ release\psdk";"C:\Program Files (x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32"; C:\Users\Public\Documents\Embarcadero\St udio\15.0\DCP -j.\Win32\Debug;"c:\program files (x86)\embarcadero\studio\15.0\lib\win32\ release";"c:\program files (x86)\embarcadero\studio\15.0\lib\Win32\ debug";"c:\program files (x86)\embarcadero\studio\15.0\lib\win32\ release";"c:\program files (x86)\embarcadero\studio\15.0\lib\win32\ release\psdk";"C:\Program Files (x86)\FastReports\LibD21";"C:\Program Files (x86)\Raize\CS5\Lib\RS-XE7\Win32"; C:\Users\Public\Documents\Embarcadero\St udio\15.0\DCP -l.\Win32\Debug -v -GA"C:\Users\GURU\AppData\Local\Temp\vfs7 C91.tmp"="C:\Users\GURU\Documents\Embarc adero\Studio\Projects\Unit5.dfm" -aa -V5.0 -Tpe c0w32w rtl.bpi vcl.bpi memmgr.lib sysinit.obj .\Win32\Debug\Project4.obj .\Win32\Debug\Unit5.obj , .\Win32\Debug\Project4.exe , .\Win32\Debug\Project4.map , import32.lib cp32mti.lib , , Project4.res [ilink32 Error] Error: Unresolved external '__fastcall TForm5::FormCreate(System::TObject *)' referenced from C:\USERS\GURU\DOCUMENTS\EMBARCADERO\STUD IO\PROJECTS\WIN32\DEBUG\UNIT5.OBJ [ilink32 Error] Error: Unable to perform link Failed Elapsed time: 00:00:01.2 0

@gumi250 435 / 402 / 57 Регистрация: 06.02.2012 Сообщений: 1,384
	06.12.2014, 16:48
	Выложите проект, так будет проще. 1

@ArxangelXA 43 / 13 / 1 Регистрация: 20.08.2012 Сообщений: 788
	06.12.2014, 17:09 [ТС]
	Projects.rar 0

@gumi250 435 / 402 / 57 Регистрация: 06.02.2012 Сообщений: 1,384
	06.12.2014, 17:20
	Мой код просто сохраняет содержимое мемо и имиджа в файлы. Вы бы написали для себя тех задание. Т.е. что должна делать каждая кнопка, откуда чего брать и т.д. Мой код берет имя файла из Edit1, но вы можете брать из комбобокса. Чтобы загрузить список в комбобокс, логично будет посмотреть список файлов в папке. Добавлено через 8 минут Зачем это?: void __fastcall TForm5::Memo1Change(TObject *Sender) 1