Сохранение из Edit-ов в текстовый файл

@Stylik · Регистрация: 11.10.2012

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

AntonChik, Помогите пожалуйста!!!Можно как-то сделать чтобы вот это

C
1
2
3
4
TStringList* sl= new TStringList();
sl->Add(Edit1->Text);
sl->SaveToFile("result.txt");
delete sl;

Записывало 1ое слово в файли из 1го едита.

C
1
2
3
4
TStringList* sl= new TStringList();
sl->Add(Edit2->Text);
sl->SaveToFile("result.txt");
delete sl;

Это записывало в тот же файл слово из 2го эдита,но не удаляла 1ое слово.

Короче чтобы получилось в итоге..все что я вводил в эдиты..вышло в текстовом файле.

@demon_7 · 21.05.2014, 15:57

Stylik, Так что Вам мешает сделать

C++
1
2
3
4
5
6
7
8
TStringList* sl= new TStringList();
sl->Add(Edit1->Text);
sl->Add(Edit2->Text);
sl->Add(Edit3->Text);
sl->Add(Edit4->Text);
sl->Add(Edit5->Text); // и так что угодно, переменные, и прочее
sl->SaveToFile("result.txt");
delete sl;

@Stylik · 21.05.2014, 16:40 **[ТС]**

demon_7, Спасибо,помогло.НО.Все равно когда я 1ый раз ввожу данные они вносятся в текстовый документ.Потом стираю их и пишу другую информацию в Эдиты. В текстовом документе старая информация пропадает.а новая появляется..Как сделать чтобы после каждой записи..он сохранял старую информацию,а новую выводил ниже?

@Gremlin · 21.05.2014, 16:44

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

он сохранял старую информацию,а новую выводил ниже?

соседняя тема
Записывать данные из нескольких Edit в файл

@demon_7 · 21.05.2014, 16:45

Stylik, Ну либо не удаляйте Ваш StringList, уберите из алгоритма эту строку

C++
1
delete sl;

Либо после создания StringList загружайте в него информацию с файла

C++
1
2
TStringList* sl= new TStringList();
sl->LoadFromFile("result.txt");

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

@Stylik · 21.05.2014, 16:48 **[ТС]**

Gremlin, Там слишком наворочено как-то...Я уже 4 часа с этим бредом сижу.Мозги не соображают.

C
1
2
3
4
5
6
7
8
TStringList* sl= new TStringList();
sl->Add(Edit1->Text);
sl->Add(Edit2->Text);
sl->Add(Edit3->Text);
sl->Add(Edit4->Text);
sl->Add(Edit5->Text); // и так что угодно, переменные, и прочее
sl->SaveToFile("result.txt");
delete sl;

Что добавить сюда чтобы он сохранял старую?

@demon_7 · 21.05.2014, 16:52

Делайте так

C++
1
2
3
4
5
6
7
TStringList* sl= new TStringList();
sl->Add(Edit1->Text);
sl->Add(Edit2->Text);
sl->Add(Edit3->Text);
sl->Add(Edit4->Text);
sl->Add(Edit5->Text); // и так что угодно, переменные, и прочее
sl->SaveToFile("result.txt");

не совсем корректно, но думаю с Вашими операциями нагрузка на память не велика )

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

C++
1
2
3
4
5
6
7
8
9
TStringList* sl= new TStringList();
sl->LoadFromFile("result.txt");
sl->Add(Edit1->Text);
sl->Add(Edit2->Text);
sl->Add(Edit3->Text);
sl->Add(Edit4->Text);
sl->Add(Edit5->Text); // и так что угодно, переменные, и прочее
sl->SaveToFile("result.txt");
delete sl;

только у Вас всегда должен быть данный файл в рабочем каталоге.

@Stylik · 21.05.2014, 16:53 **[ТС]**

demon_7, Спасибо огромное)
Все работает.Получилось!)Ура)

@Stylik · 29.05.2014, 22:20 **[ТС]**

Ребята!!А можно как-нибудь при нажатии на новую кнопку,чтобы все,что сохранилось в файл выводилось обратно в Edit?

Добавлено через 1 час 43 минуты

C
1
2
3
4
5
6
7
void __fastcall TForm1::Button6Click(TObject *Sender)
{
if(OpenDialog1->Execute());
    {
        Edit1->Text = TFile::ReadAllText(OpenDialog1->"Çàêàçû.txt");
    }
}

Не работает....пишет [C++ Error] Unit1.cpp(118): E2451 Undefined symbol 'OpenDialog1'

@volvo · 29.05.2014, 22:32

Stylik, вопросы не дублируй... Вывод текста из файла

@Stylik · 29.05.2014, 22:37 **[ТС]**

UI, Просто нигде не отвечают(
Завтра сдавать ..все сделал осталось только это.

@volvo · 29.05.2014, 23:11

Ты сам делаешь всё возможное, чтобы тебе не отвечали. По крайней мере, в отношении меня ты этого уже добился.

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Stylik 1 / 1 / 0 Регистрация: 11.10.2012 Сообщений: 20
	21.05.2014, 16:40 [ТС]
	demon_7, Спасибо,помогло.НО.Все равно когда я 1ый раз ввожу данные они вносятся в текстовый документ.Потом стираю их и пишу другую информацию в Эдиты. В текстовом документе старая информация пропадает.а новая появляется..Как сделать чтобы после каждой записи..он сохранял старую информацию,а новую выводил ниже? 0

@Stylik 1 / 1 / 0 Регистрация: 11.10.2012 Сообщений: 20
	21.05.2014, 16:53 [ТС]
	demon_7, Спасибо огромное) Все работает.Получилось!)Ура) 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	29.05.2014, 22:32
	Stylik, вопросы не дублируй... Вывод текста из файла 0

@Stylik 1 / 1 / 0 Регистрация: 11.10.2012 Сообщений: 20
	29.05.2014, 22:37 [ТС]
	UI, Просто нигде не отвечают( Завтра сдавать ..все сделал осталось только это. 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	29.05.2014, 23:11
	Ты сам делаешь всё возможное, чтобы тебе не отвечали. По крайней мере, в отношении меня ты этого уже добился. 0