Сохранение в txt файл

@borodakrolika · Регистрация: 29.10.2016

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

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

C++
1
2
Memo1->Text = Label7->Caption+" Ïîáåä:"+Label4->Caption+" Ïîðàæåíèé:"+Label6->Caption+" Âèíðåéò:"+Label2->Caption+"%";
Memo1->Lines->SaveToFile("Statistic.txt");

@starkiron · 01.11.2016, 00:56

borodakrolika,

по вашей логике же, все просто, сначала открываем потом дополняем

C++
1
2
3
Memo1->Lines->LoadFromFile("Statistic.txt");
Memo1->Text =Memo1->Text+ Label7->Caption+" ГЏГ®ГЎГҐГ¤:"+Label4->Caption+" ГЏГ®Г°Г*Г¦ГҐГ*ГЁГ©:"+Label6->Caption+" Г‚ГЁГ*Г°ГҐГ©ГІ:"+Label2->Caption+"%";
Memo1->Lines->SaveToFile("Statistic.txt");

что то вроде этого...

@dstar · 01.11.2016, 01:26

по вашей логике же, все просто, сначала открываем потом дополняем

Не лучшее решение, например если у Вас идет сохранение некоторого лога и файл имеет не малый объем данных, следовательно, подгрузка данных потребует определенного времени и памяти. Как вариант, можно использовать функцию fopen с атрибутами "ab". Ну а дальше используя fwrite догружаем данные в файл.

@volvo · 01.11.2016, 10:12

В новых версиях Дельфи/Билдера для этого есть AppendAllText, то есть, просто:

C++
1
2
3
#include <System.IOUtils.hpp>
// ...
TFile::AppendAllText("Statistic.txt", Memo1->Text);

@djelmik777 · 01.11.2016, 10:47

В Данном примере данные записывались из Edit. Надеюсь вам поможет

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
if(Edit1->Text.Length() != 0)
    {
 
        AnsiString file = "Server.txt";
        AnsiString temp = Edit1->Text;
        TStringList *list1 = new TStringList;
        list1->Add(temp);
        if (FileExists(file) == false)
        {
            list1->SaveToFile(file);
        }
        else
        {
            TStringList *list2 = new TStringList;
            list2->LoadFromFile(file);
            //list2->Add("***************************************");
            list2->Text = list2->Text + list1->Text;
            list2->SaveToFile(file);
            delete list2;
        }
        delete list1;
  }
  {
    Memo1->Lines->LoadFromFile("Server.txt");
   }

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .