привет всем

← →
nika_ufc © (2002-10-06 12:55) [0]

Я пишу в Console.Этот код у меня выдает ошибку там где текст являеться жирным

program Rectangle; {$APPTYPE CONSOLE} uses SysUtils, Classes; type TMas=array of array of integer; var Matrix:TMas; i,j :integer; SL :TStringList; begin Write("Go and enter Matrix into Rectangle.txt"); SL:=TStringList.Create; SL.LoadFromFile("D:\Documents and Settings\Nika k\My Documents\_MyDelphi Projects_\Olimpiada\2_Finding_A_Rectangle\Rectangle.txt"); for i:=0 to SL.Count-1 do begin for j:=0 to Length(SL[i])-1 do begin // какой то код end end end.

← →
McSimm © (2002-10-06 13:05) [1]

Неплохо бы еще узнать текст сообщения об ошибке...

← →
nika_ufc © (2002-10-06 13:22) [2]

вот такой Error:

Project Rectangle.exe raised exception class EStringListError with message "List index out if bounds(5)" Process stoped.Use Step or Run to Continue
Помагите чайнику.

← →
Itap © (2002-10-06 14:25) [3]

Теоретический всё должно работать, единственное что непонятно - это строка
>Write("Go and enter Matrix into Rectangle.txt");
потом ещё посмотри что у тебя в цикле j

← →
kull © (2002-10-06 14:28) [4]

> for j:=0 to Length(SL[i])-1 do

Непонятная строка...

Может лучше так?
for j:=1 to Length(SL[i]) do

← →
BOA_KAA © (2002-10-06 14:36) [5]

> kull © (06.10.02 14:28)
> Может лучше так?
> for j:=1 to Length(SL[i]) do

Упаси Господи тебя от такой строки:-)))

Беда внутри цикла, я проверил:-)

← →
kull © (2002-10-06 14:40) [6]

> BOA_KAA © (06.10.02 14:36)
>
> > kull © (06.10.02 14:28)
> > Может лучше так?
> > for j:=1 to Length(SL[i]) do
>
> Упаси Господи тебя от такой строки:-)))

А что тебе не нравится в этой строке?

← →
Itap © (2002-10-06 14:45) [7]

>kull
>Может лучше так?
>for j:=1 to Length(SL[i]) do
Да, в этом ты прав.

Скорее всего внутри цикла j какието проблемы

Ошибка в "// какой то код"

привет всем Найти похожие ветки