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

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

EInvalidPointer после выхода из функции. [D7, WinXP]

granulated ©   (2010-06-23 17:12:00) 

Появляется Invalid Pointer Operation, не могу понять почему.
Вызываю GetCombination, и сразу после выхода из нее происходит ошибка.

type TCardArray = array of Integer;
function GetCombination(var a, b:TCArray):Integer;
var
 All:TCArray;
 temp:Integer;
begin
 SetLength(All, Length(a)+Length(b));
 Move(Hand[0], AllCard[0], Length(a)*SizeOf(Integer));
 Move(Board[0], All[Length(a)], Length(b)*SizeOf(Integer));
...
 temp := Find(All);
 if temp <> -1 then
 begin
   Result := 20+temp;
   Exit; // <-- тут после выхода появляется ошибка
 end;

---

granulated   (2010-06-23 19:34:00) [1]

Все, уже решил, проблема была в обращении к несуществующим данным

---

Anatoly Podgoretsky   (2010-06-23 19:17:00) [2]

Ошибка в FIND

---

Leonid Troyanovsky   (2010-06-23 18:10:00) [3]

> granulated   (23.06.10 17:12)  

> Вызываю GetCombination, и сразу после выхода из нее происходит ошибка.

Чего-то ты не договариваешь.
А зачем тут TCardArray?

--
Regards, LVT.

---

Игорь Шевченко   (2010-06-23 17:54:00) [4]

> не могу понять почему


Я тоже не могу. Предлагаешь поработать отладчиком вместо тебя ?

---

Наверх