list index out of bounds (0) ошибка EStringList

@methanoljj · Регистрация: 24.02.2013

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

Всем привет!
У меня возникла проблема

Раньше программа работала без проблем но сейчас почемуто выдает такую ошибку: class EStringListError with msg 'List index out of bounds (0)' Process stopped. Не понимаю как ее можно решить.. Ктото встречался с подобной проблемой?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
void __fastcall TForm1::FormCreate(TObject *Sender){
 
char strog [255];
GetEnvironmentVariable("appdata", strog, -1);
Memo1->Text = strog;
 
 
TStringList *sl = new TStringList;
 
if(FileExists(Memo1->Text+"/Quest/log.txt") == true){
sl->LoadFromFile(Memo1->Text+"/Quest/log.txt");
}
 
if(sl->Strings[0].Length() != 0 && sl->Strings[1].Length() != 0 ){
Edit1->Text = sl->Strings[0];
Edit2->Text = sl->Strings[1];
delete sl;
}
 
}

За ранее спасибо!

@kzru_hunter · 05.08.2013, 03:53

Видимо файл пустой. Сделай проверку на количество записей в файле через stringlist->count

@methanoljj · 05.08.2013, 13:31 **[ТС]**

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

Видимо файл пустой. Сделай проверку на количество записей в файле через stringlist->count

спасибо за ответ, но файл не пуст а вот программа думает иное ... при запуске появляется окошко с проблемой а в компеляторе указывает на project.bcd файл что там какаято проблема но ничего не пишет а просто выделяет строку где Application->Run();

хелпппп

@ivan.-94 · 05.08.2013, 14:05

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

при запуске появляется окошко с проблемой а в компиляторе указывает на project.bcd файл что там какая то проблема но ничего не пишет а просто выделяет строку где Application->Run();

Может быть многое.
Просмотрите весь проект тщательно, все ли используемые файлы подключены...

@Sasha · 05.08.2013, 14:21

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

спасибо за ответ, но файл не пуст а вот программа думает иное ... при запуске появляется окошко с проблемой а в компеляторе указывает на project.bcd файл что там какаято проблема но ничего не пишет а просто выделяет строку где Application->Run();
хелпппп

пройдись дебагером по коду посмотри что заносишь в StringList

Добавлено через 10 минут
А есчё лучше сделай вот так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void __fastcall TForm1::FormCreate(TObject *Sender){
 
char strog [255];
GetEnvironmentVariable("appdata", strog, -1);
Memo1->Text = strog;
 
 
TStringList *sl = new TStringList;
 
if(FileExists(Memo1->Text+"/Quest/log.txt") == true){
sl->LoadFromFile(Memo1->Text+"/Quest/log.txt");
ShowMessage(sl->Text);
}
 
if(sl->Strings[0].Length() != 0 && sl->Strings[1].Length() != 0 ){
Edit1->Text = sl->Strings[0];
Edit2->Text = sl->Strings[1];
delete sl;
}
 
}

@methanoljj · 05.08.2013, 14:23 **[ТС]**

ошибка открывается теперь 2 раза так как я во всем коде лишь 2 раза использую StringList

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
char strog [255];
GetEnvironmentVariable("AppData", strog, 0);
Memo2->Text = strog;
 
TStringList *sl;
sl = new TStringList;
 
if(FileExists(Memo2->Text+"//Quest//log.txt") == true){
sl->LoadFromFile(Memo2->Text+"//Quest//log.txt");
}
 
if(sl->Strings[0] != "Log" && sl->Strings[1] != "Log" ){
Edit1->Text = sl->Strings[0];
Edit2->Text = sl->Strings[1];
}
else{
//nothing
}

@methanoljj · 05.08.2013, 14:25 **[ТС]**

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

пройдись дебагером по коду посмотри что заносишь в StringList

Добавлено через 10 минут
А есчё лучше сделай вот так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
void __fastcall TForm1::FormCreate(TObject *Sender){
 
char strog [255];
GetEnvironmentVariable("appdata", strog, -1);
Memo1->Text = strog;
 
 
TStringList *sl = new TStringList;
 
if(FileExists(Memo1->Text+"/Quest/log.txt") == true){
sl->LoadFromFile(Memo1->Text+"/Quest/log.txt");
ShowMessage(sl->Text);
}
 
if(sl->Strings[0].Length() != 0 && sl->Strings[1].Length() != 0 ){
Edit1->Text = sl->Strings[0];
Edit2->Text = sl->Strings[1];
delete sl;
}
 
}

сообщения выводится!) Спасибо огромное!

@Sasha · 05.08.2013, 14:32

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

Спасибо огромное!

так что ошибка ушла?

@methanoljj · 05.08.2013, 14:38 **[ТС]**

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

так что ошибка ушла?

Да, проблема была в неправельно построенном мною запросе для проверки файла ты сделал это очень разумно по длине!

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@kzru_hunter 1124 / 795 / 101 Регистрация: 01.02.2011 Сообщений: 1,887 Записей в блоге: 1
	05.08.2013, 03:53
	Видимо файл пустой. Сделай проверку на количество записей в файле через stringlist->count 1