Не сохраняются данные в файл из функции

@Euggeze · Регистрация: 04.04.2019

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

Добрый вечер, сделал я функцию, но вот никак не пойму, почему данные не заносятся в файл. Суть его в том, что если будет счет лучше, чем 10 человека в таблице, то введутся данные нового игрока.(Сравнивает оно все хорошо, все в порядке) list->SaveToFile(Records); не сохраняет данные так. time,time1 - это просто временные переменные если что, просто фантазия плохая)

C++

void RecFromFile(){
TStringList *list=new TStringList;
    list->LoadFromFile(Records); //загрузка с файла
    try
    {
if (StrToInt(list[0][19])<=levels[level]) {
list[0][19]=IntToStr(levels[level]);
list[0][18]=InputBox("Рекорд!", "Введите Ваше имя", "noname");
list->SaveToFile(Records);
}
for (int i = 19; i > 0; i=i-2) {
if (list[0][i]>=list[0][i-2]) { AnsiString time,time1;
time=list[0][i-2];list[0][i-2]=list[0][i];list[0][i]=time;
time1=list[0][i-3];list[0][i-3]=list[0][i-1];list[0][i-1]=time1;
list->SaveToFile(Records);
if (list[0][1]<=list[0][3]) {
time=list[0][3];list[0][3]=list[0][1];list[0][1]=time;
time1=list[0][2];list[0][4]=list[0][2];list[0][4]=time1;
list->SaveToFile(Records);
return;
}
} else return;
}
  }
        catch (Exception *e) //обработка исключительных ситуаций
    {
        ShowMessage("Ошибка чтения файла!");
 
     }
    }

@D1973 · 06.05.2019, 16:25

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

Сравнивает оно все хорошо, все в порядке

Вот в этом я как-то не уверен... Что вот это за конструкция у Вас: list[0][19]
list Вы объявили, как TStringList... И что Вы имеете в виду под этой записью? 19-й символ 1-й строки списка или что?

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

list->SaveToFile(Records); не сохраняет данные

Если бы Вы использовали отступы и нормальное оформление кода, а не лепили все в одну кучу - Вы бы сами увидели причину:

C++

for (int i = 19; i > 0; i=i-2)
 {
    if (list[0][i] > = list[0][i-2]) 
      { 
         AnsiString time, time1;
         time=list[0][i-2];
         list[0][i-2] = list[0][i];
         list[0][i]=time;
         time1=list[0][i-3];
         list[0][i-3]=list[0][i-1];
         list[0][i-1]=time1;
         list->SaveToFile(Records);
         if (list[0][1]<=list[0][3]) 
          {
             time=list[0][3];list[0][3]=list[0][1];list[0][1]=time;
             time1=list[0][2];list[0][4]=list[0][2];list[0][4]=time1;
             list->SaveToFile(Records);
             return;
          }
      } 
    else return;

Если условие if (list[0][i] > = list[0][i-2]) не выполнилось у Вас на первой же итерации цикла - Вы просто покидаете процедуру - всего и делов...

	06.05.2019, 16:25

Опции темы