| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

привет всем [D6, Win2k]

nika_ufc ©   (2002-10-06 12:55:00) 

Я пишу в 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.

---

Anatoly Podgoretsky   (2002-10-06 15:02:00) [1]

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

---

Itap   (2002-10-06 14:53:00) [2]

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

---

BOA_KAA   (2002-10-06 14:47:00) [3]

> kull © (06.10.02 14:40)

Извини, меня зрение подводит:-( Строка правильная:-))) Но ошибка все равно не здесь

---

Itap   (2002-10-06 14:45:00) [4]

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

---

kull   (2002-10-06 14:40:00) [5]

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

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

---

BOA_KAA   (2002-10-06 14:36:00) [6]

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


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

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

---

kull   (2002-10-06 14:28:00) [7]

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

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

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

---

Itap   (2002-10-06 14:25:00) [8]

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

---

nika_ufc   (2002-10-06 13:22:00) [9]

вот такой Error:

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

---

McSimm   (2002-10-06 13:05:00) [10]

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

---

Наверх