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

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

Почему это не работает

Страницы:   < 1 2 3 4 >

_koha ©   (2008-08-19 13:49:00) 

Компилируется без ошибок, но при работе "падает".

//..............................
var
 Conter: integer;
 N: array of integer;
 buf: array of integer;

//..................................
procedure TForm2.Button3Click(Sender: TObject);
Var
 num:integer;
begin
 Num:=Length(N);
 SetLength(Buf,Num);
 Move(N, Buf, Num);
 Inc(Num);
 setlength(N, Num);
 move(Buf, N, Num-1);
 N[Num]:=num;
 for num:=0 to Length(N)-1 do
   memo1.Lines.Add(IntToStr(N[num]));
 memo1.Lines.Add('----------------------------');
end;

---

oldman   (2008-08-19 14:05:00) [61]

> Юрий Зотов ©   (19.08.08 13:56) [3]
> Первая же строчка:
> Num := Length(N);


Учитывая, что
N: array of integer;

действительно
"Компилируется без ошибок"?

---

Palladin   (2008-08-19 14:03:00) [62]

троянописец млин :)

---

Vlad Oshin   (2008-08-19 14:01:00) [63]

N[Num-1]:=num;

---

Юрий Зотов   (2008-08-19 13:56:00) [64]

Первая же строчка:
Num := Length(N);
Чему будет равно Num?

А вообще-то, почему бы не пройти отладчиком и не выяснить точную причину?

---

Medbe}I{onok XML   (2008-08-19 13:56:00) [65]

move(Buf, N, Num-1);

и многое другое тоже изучай.

---

Германн   (2008-08-19 13:55:00) [66]

> Move(N[0], Buf[0], Num);

Читай книжки. Изучай динамические массивы.

---

Страницы:   < 1 2 3 4 >

Наверх