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

@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 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

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

	Записная книжка 05.12.2014, 21:41. Показов 4139. Ответов 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