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

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

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

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

@gumi250 · 06.12.2014, 17:39

По моему вы себе смутно представляете что вообще должна делать ваша прога.
Я бы сделал так.

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
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <iostream.h>
#include <string>
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonAddClick(TObject *Sender)
{
ComboBox1->Items->Add(Edit1->Text);
ComboBox1->Text=Edit1->Text;
ButtonEditClick(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonEditClick(TObject *Sender)
{
    String FileName=ExtractFileDir(Application->ExeName)+"\\"+ComboBox1->Text;
    Memo1->Lines->SaveToFile(FileName+".txt");
    Image1->Picture->SaveToFile(FileName+".bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonDelClick(TObject *Sender)
{
    String FileName=ExtractFileDir(Application->ExeName)+"\\"+ComboBox1->Text;
    if(FileExists(FileName+".txt"))
        DeleteFile(FileName+".txt");
    if(FileExists(FileName+".bmp"))
        DeleteFile(FileName+".bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonExitClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
    String FileName=ExtractFileDir(Application->ExeName)+"\\"+ComboBox1->Text;
    Memo1->Lines->LoadFromFile(FileName+".txt");
    Image1->Picture->LoadFromFile(FileName+".bmp");
}
/

Осталось только при загруске проги сканировать папку на файлы и добавлять их в комбобокс.

Добавлено через 4 минуты
Еще наверно нужна проверка при добавлении что в комбобокс нет такой записи, а при удалении нужно удалять запись еще из комбобокса. А можно просто каждый раз перезаполнять комбобокс сканируя файлы заново.

@ArxangelXA · 06.12.2014, 18:29 **[ТС]**

gumi250,
Задача изначально была создать записную книжку используя memo, combobox, edit, 3 кнопки :удалить, добавить, редактировать.

А по вашему варианту не удаляет почему то(

А функций сканирования папки и загрузка изображений все равно не понятна(

Добавлено через 16 минут
Нашел вот такое в принципе подходит, только когда я пытаюсь заменить memo на combobox ругается

C++
1
2
3
4
5
6
7
void __fastcall TForm2::Button1Click(TObject *Sender)
{
  TSearchRec sr;
  for(int r=FindFirst("C:\\*.txt*",faDirectory,sr);!r;r=FindNext(sr))
  Memo1->Lines->Add(sr.Name);
  FindClose(sr);
}

@gumi250 · 06.12.2014, 18:49

Ну както так. Удалет то что написано в комбобоксе.

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
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    LoadComboBox();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonAddClick(TObject *Sender)
{
    ComboBox1->Items->Add(Edit1->Text);
    ComboBox1->Text=Edit1->Text;
    ButtonEditClick(Sender);
    LoadComboBox();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonEditClick(TObject *Sender)
{
    String FileName=ExtractFileDir(Application->ExeName)+"\\"+ComboBox1->Text;
    Memo1->Lines->SaveToFile(FileName+".txt");
    Image1->Picture->SaveToFile(FileName+".bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonDelClick(TObject *Sender)
{
    String FileName=ExtractFileDir(Application->ExeName)+"\\"+ComboBox1->Text;
    if(FileExists(FileName+".txt"))
        DeleteFile(FileName+".txt");
    if(FileExists(FileName+".bmp"))
        DeleteFile(FileName+".bmp");
    LoadComboBox();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonExitClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
    String FileName=ExtractFileDir(Application->ExeName)+"\\"+ComboBox1->Text;
    if(FileExists(FileName+".txt"))
        Memo1->Lines->LoadFromFile(FileName+".txt");
    if(FileExists(FileName+".bmp"))
        Image1->Picture->LoadFromFile(FileName+".bmp");
}
//---------------------------------------------------------------------------
void TForm1::LoadComboBox()
{
    ComboBox1->Clear();
    String FFrom=ExtractFileDir(Application->ExeName)+"\\*.txt";
    TSearchRec sr;
    for(int r=FindFirst(FFrom,faDirectory,sr);!r;r=FindNext(sr))
        ComboBox1->Items->Add(ChangeFileExt(sr.Name,""));
    FindClose(sr);
}
//---------------------------------------------------------------------------

@ArxangelXA · 06.12.2014, 19:00 **[ТС]**

написал

C++
1
2
3
4
5
6
7
void __fastcall TForm2::Button1Click(TObject *Sender)
{
  TSearchRec sr;
  for(int r=FindFirst("C:\\*.txt*",faDirectory,sr);!r;r=FindNext(sr))
  ComboBox1->Items->Add(sr.Name);
  FindClose(sr);
}

подгружает только при выборе файла выдает ошибку((

так же написал

C++
1
2
3
4
5
6
#include <jpeg.hpp>
#include <GIFImg.hpp>
void __fastcall TForm2::ButtonUploadClick(TObject *Sender)
{
Image1->Picture->LoadFromFile("1.jpeg");
}

но при нажатий выдает тоже ошибку

Добавлено через 4 минуты
gumi250, А откуда обработчик void TForm1::LoadComboBox()

Добавлено через 1 минуту
говорит ошибка

C++
1
LoadComboBox();

@gumi250 · 06.12.2014, 19:05

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

gumi250, А откуда обработчик void TForm1::LoadComboBox()

дополнительный метод
Какую ошибку выдает, в какой строке? Ваши Бмп какието странные, их имедж не грузит, я другие взял, с другими у меня все ок.

Добавлено через 1 минуту
Ну так вы код который я выще приводил с LoadComboBox(); себе перепешите.

@ArxangelXA · 06.12.2014, 19:15 **[ТС]**

gumi250,
именно ваш код и загрузил, я просто все с нуля создал

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

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
#include <vcl.h>
#pragma hdrstop
#include <iostream.h>
#include <string>
#include "Unit2.h"
#include <jpeg.hpp>
#include <GIFImg.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
LoadComboBox();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ButtonAddClick(TObject *Sender)
{
   ComboBox1->Items->Add(Edit1->Text);
   ComboBox1->Text=Edit1->Text;
   ButtonEditClick(Sender);
   LoadComboBox();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ButtonEditClick(TObject *Sender)
{
    String FileName=ExtractFileDir(Application->ExeName)+"\\"+ComboBox1->Text;
    Memo1->Lines->SaveToFile(FileName+".txt");
    Image1->Picture->SaveToFile(FileName+".bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ButtonDelClick(TObject *Sender)
{
String FileName=ExtractFileDir(Application->ExeName)+"\\"+ComboBox1->Text;
    if(FileExists(FileName+".txt"))
        DeleteFile(FileName+".txt");
    if(FileExists(FileName+".bmp"))
        DeleteFile(FileName+".bmp");
    LoadComboBox();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ComboBox1Change(TObject *Sender)
{
 String FileName=ExtractFileDir(Application->ExeName)+"\\"+ComboBox1->Text;
    if(FileExists(FileName+".txt"))
        Memo1->Lines->LoadFromFile(FileName+".txt");
    if(FileExists(FileName+".bmp"))
        Image1->Picture->LoadFromFile(FileName+".bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ButtonExitClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
 
/* void __fastcall TForm2::ButtonScanClick(TObject *Sender)
{
  TSearchRec sr;
  for(int r=FindFirst("C:\\*.txt*",faDirectory,sr);!r;r=FindNext(sr))
  ComboBox1->Items->Add(sr.Name);
  FindClose(sr);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::ButtonUploadClick(TObject *Sender)
{
Image1->Picture->LoadFromFile("1.jpeg");
}      */
//---------------------------------------------------------------------------
void TForm1::LoadComboBox()
{
    ComboBox1->Clear();
    String FFrom=ExtractFileDir(Application->ExeName)+"\\*.txt";
    TSearchRec sr;
    for(int r=FindFirst(FFrom,faDirectory,sr);!r;r=FindNext(sr))
        ComboBox1->Items->Add(ChangeFileExt(sr.Name,""));
    FindClose(sr);
}

это просто вставил не знаю как такой обработчик вызвать(

C++
1
void TForm1::LoadComboBox()

ошибка

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

[bcc32 Error] Unit2.cpp(18): E2268 Call to undefined function 'LoadComboBox'
Full parser context
Unit2.cpp(16): parsing: _fastcall TForm2::TForm2(TComponent *)
[bcc32 Error] Unit2.cpp(26): E2268 Call to undefined function 'LoadComboBox'
Full parser context
Unit2.cpp(22): parsing: void _fastcall TForm2::ButtonAddClick(TObject *)
[bcc32 Error] Unit2.cpp(43): E2268 Call to undefined function 'LoadComboBox'
Full parser context
Unit2.cpp(37): parsing: void _fastcall TForm2::ButtonDelClick(TObject *)
[bcc32 Error] Unit2.cpp(75): E2090 Qualifier 'TForm1' is not a class or namespace name
[bcc32 Error] Unit2.cpp(75): E2040 Declaration terminated incorrectly
Failed

Добавлено через 4 минуты
А bmp я просто урезал что бы были маленькие или он сам размер подгоняет под область?
А jpg можно?

@gumi250 · 07.12.2014, 02:32

А в h файл LoadComboBox() добавлять А.С. Пушкин будет?

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
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.Dialogs.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <jpeg.hpp>
#include <GIFImg.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TEdit *Edit1;
    TMemo *Memo1;
    TButton *ButtonAdd;
    TButton *ButtonEdit;
    TButton *ButtonDel;
    TComboBox *ComboBox1;
    TLabel *Label1;
    TButton *ButtonExit;
    TLabel *Label2;
    TSaveDialog *SaveDialog1;
    TImage *Image1;
    void __fastcall ButtonAddClick(TObject *Sender);
    void __fastcall ButtonEditClick(TObject *Sender);
    void __fastcall ButtonDelClick(TObject *Sender);
    void __fastcall ButtonExitClick(TObject *Sender);
    void __fastcall ComboBox1Change(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    void LoadComboBox();
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

и jpg можно. Инклуды добавлять нужно в h-файл. Вы хоть немножко книги по С++ почитайте.

@ArxangelXA · 07.12.2014, 15:07 **[ТС]**

gumi250, Да я искал что подключить не нашел. Да и все равно почему то не работает(
Projects.rar

@gumi250 · 07.12.2014, 15:19

Хоть чуток про С++ почитайте. Я же ведь уже готовый код даже написал, вы его даже скопировать толком не можете. В h-файл нужно добавить строку void LoadComboBox(); (35 строка в коде выше). В cpp фале в 85 строке void TForm1::LoadComboBox() заменить TForm1 на TForm2.

@ArxangelXA · 07.12.2014, 15:56 **[ТС]**

gumi250, Большое спасибо все работает)) Очень вам благодарен за помощь. Теперь сам постараюсь разобраться с изображениями.

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

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

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

@ArxangelXA 43 / 13 / 1 Регистрация: 20.08.2012 Сообщений: 788
	07.12.2014, 15:07 [ТС]
	gumi250, Да я искал что подключить не нашел. Да и все равно почему то не работает( Projects.rar 0

@gumi250 435 / 402 / 57 Регистрация: 06.02.2012 Сообщений: 1,384
	07.12.2014, 15:19
	Хоть чуток про С++ почитайте. Я же ведь уже готовый код даже написал, вы его даже скопировать толком не можете. В h-файл нужно добавить строку void LoadComboBox(); (35 строка в коде выше). В cpp фале в 85 строке void TForm1::LoadComboBox() заменить TForm1 на TForm2. 1

@ArxangelXA 43 / 13 / 1 Регистрация: 20.08.2012 Сообщений: 788
	07.12.2014, 15:56 [ТС]
	gumi250, Большое спасибо все работает)) Очень вам благодарен за помощь. Теперь сам постараюсь разобраться с изображениями. 0

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

Решение

Решение