Ошибки list index out of bounds(7) и I/O error 103

@pa1n · Регистрация: 04.01.2010

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

Ошибка I/O error 103 вылазит при закрытии файла, т.е. когда выполняется CloseFile(q). Вылазит она не всегда, но если раз 10 нажать на кнопку, то выскочит хоть раз.
list index out of bounds(7) - может появляться при нажатии на кнопку, а может и не появится, но тоже при нажатии на кнопку раз 10-20 появляется.

Давно ничего не писал, так что прошу помощи. Может кто найдет ошибки. Вот код

Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
var i,x,k:integer;
l,m:tstringlist;
begin
x:=1000000;
for i := 1 to x do  progressbar1.Position:=Round(100*i/x);
 
  if FileExists('Темы.txt') then
  begin
  AssignFile(t,'Темы.txt');
    FileMode:=0;
    reset(t);
    k:=0;
    while not(eof(t)) do
      begin
        readln(t);
        inc(k);
      end;
  end
  else application.MessageBox(Pchar('Файл с темами не найден!'),'Ошибка!',MB_OK);
 
Randomize;
t1:=Random(k)+1;
if (t1=t2) or (t1=t3) then
begin repeat t1:=Random(k)+1
until (t1<>t2) or (t1<>t3)
end
else begin
 
l:=tstringlist.create;
l.LoadFromFile('Темы.txt');
label1.Caption:=l.Strings[t1-1];
l.Free;
 
  if FileExists(ExtractFilePath(Application.ExeName)+'\'+inttostr(t1)+'\Вопросы.txt') then
  begin
  AssignFile(q,ExtractFilePath(Application.ExeName)+'\'+inttostr(t1)+'\Вопросы.txt');
    FileMode:=0;
    reset(q);
    k:=0;
    while not(eof(q)) do
      begin
        readln(q);
        inc(k);
      end;
  end
else application.MessageBox(Pchar('Файл с вопросами не найден!'),'Ошибка!',MB_OK);
end;
 
Randomize;
v1:=Random(k)+1;
m:=tstringlist.create;
m.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+inttostr(t1)+'\Вопросы.txt');
label2.Caption:=m.Strings[v1-1];
if FileExists(ExtractFilePath(Application.ExeName)+'\'+inttostr(t1)+'\'+inttostr(v1)+'.jpg') then
image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+inttostr(t1)+'\'+inttostr(v1)+'.jpg')
else
image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Нет картинки.jpg');
 
 
CloseFile(t);
CloseFile(q);
progressbar1.Position:=0;
end;

@FIL · 20.11.2014, 18:37

А ты знаешь толк в извращениях))
Что мешает сразу загрузить файл в StringList?
У StringList есть св-во Count, содержащее кол-во эл-тов в списке на текущий момент.

@pa1n · 20.11.2014, 19:39 **[ТС]**

Да я многое не помню просто. Ща попробую сделать как ты сказал, мб поисчезают ошибки.

Добавлено через 46 минут
Изменил вот так

Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
var i,x:integer;
l,m:tstringlist;
begin
x:=1000000;
for i := 1 to x do  progressbar1.Position:=Round(100*i/x);
 
  if FileExists('Темы.txt') then
  begin
  l:=tstringlist.create;
  l.LoadFromFile('Темы.txt');
  end
  else application.MessageBox(Pchar('Файл с темами не найден!'),'Ошибка!',MB_OK);
 
Randomize;
t1:=Random(l.Count+1)+1;
if (t1=t2) or (t1=t3) then
begin repeat t1:=Random(l.Count+1)+1
until (t1<>t2) or (t1<>t3)
end
else begin
 
 
label1.Caption:=l.Strings[t1-1];
l.Free;
 
  if FileExists(ExtractFilePath(Application.ExeName)+'\'+inttostr(t1)+'\Вопросы.txt') then
  begin
  m:=tstringlist.create;
  m.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+inttostr(t1)+'\Вопросы.txt');
  end
else application.MessageBox(Pchar('Файл с вопросами не найден!'),'Ошибка!',MB_OK);
end;
 
Randomize;
v1:=Random(m.count+1)+1;
label2.Caption:=m.Strings[v1-1];
m.Free;
if FileExists(ExtractFilePath(Application.ExeName)+'\'+inttostr(t1)+'\'+inttostr(v1)+'.jpg') then
image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+inttostr(t1)+'\'+inttostr(v1)+'.jpg')
else
image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Нет картинки.jpg');
 
progressbar1.Position:=0;
end;

Ошибка list index out of bounds(7) все еще появляется.
+ еще появилась одна обычно в строке v1:=Random(m.count+1)+1;
Текст ошибки такой "Project Project1.exe raised exeption class EAcessViolation with message...."

@FIL · 20.11.2014, 20:09

С индексами путаешь. Они с 0 начинаются, если что.
Должно быть что-то вроде этого:

Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
var i,x:integer;
l,m:tstringlist;
begin
x:=1000000;
for i := 1 to x do  progressbar1.Position:=Round(100*i/x);
 
  if not FileExists(ExtractFilePath(Application.ExeName)+'Òåìû.txt') then
  begin
    application.MessageBox(Pchar('Ôàéë ñ òåìàìè íå íàéäåí!'),'Îøèáêà!',MB_OK);
    Exit;
  end;
 
  Randomize;
  l:=tstringlist.create;
  l.LoadFromFile(ExtractFilePath(Application.ExeName)+'Òåìû.txt');
 
  repeat
    t1:=Random(l.Count)
  until (t1<>t2) and (t1<>t3);
 
label1.Caption:=l.Strings[t1];
inc(t1);
  if not FileExists(ExtractFilePath(Application.ExeName)+'\'+inttostr(t1)+'\Âîïðîñû.txt') then
  begin
    l.Free;
    application.MessageBox(Pchar('Ôàéë ñ âîïðîñàìè íå íàéäåí!'),'Îøèáêà!',MB_OK);
    Exit;
  end;
 
  l.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+inttostr(t1+1)+'\Âîïðîñû.txt');
 
v1:=Random(l.count);
label2.Caption:=l.Strings[v1];
l.Free;
inc(v1);
if FileExists(ExtractFilePath(Application.ExeName)+'\'+inttostr(t1)+'\'+inttostr(v1)+'.jpg') then
image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+inttostr(t1)+'\'+inttostr(v1)+'.jpg')
else
image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Íåò êàðòèíêè.jpg');
 
progressbar1.Position:=0;
end;

@pa1n · 20.11.2014, 20:52 **[ТС]**

Благодарю за помощь все прекрасно теперь работает.

Новые блоги и статьи Все статьи Все блоги /
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 и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	20.11.2014, 18:37
	А ты знаешь толк в извращениях)) Что мешает сразу загрузить файл в StringList? У StringList есть св-во Count, содержащее кол-во эл-тов в списке на текущий момент. 0

@pa1n 0 / 0 / 0 Регистрация: 04.01.2010 Сообщений: 36
	20.11.2014, 20:52 [ТС]
	Благодарю за помощь все прекрасно теперь работает. 0