[08:31:13] <geniepro> Путин: - А у нас в России газ! А у вас?

Янукович: - А у нас переворот, вот.

Лукашенко: - а у нас переворот не допустит наш народ!

Путин: - А у нас Олимпиада. Что еще для счастья надо? И ликует весь народ. Вот!

Янукович: - А у нас переворот. Вот...

Лукашенко:- А зато у нас в стране Благодаря, конечно, мне Нет ни бедных, ни богатых, Все живут лишь на зарплату.

Путин: - А у нас на лыжах в Сочи Каждый сможет отдыхать. И чиновник, и рабочий. Вот такая благодать!

Янукович: - А у нас переворот... Вот.

Обама: - Ну, а мне вообще все страны Шлют картошку, газ, бананы. Кто бананы не пришлет – У того переворот. Вот...
[11:52:34] <vаlexey> http://blogs-images.forbes.com/markadomanis/files/2014/02/Russia-Ukraine-Population-Change.png
[12:11:51] <Kemet> [[
[12:30:01] <vаlexey> .
[21:11:46] <Jordan> divan Привет. Ты delphi понимаешь?
[21:12:23] <divan> писал на нем саааамую малость, поэтому честный ответ --- нет
[21:12:55] <Jordan> Пример
[21:12:59] <Jordan> TYPE
 TList = Class
 type
   PList = ^AList;
   AList = record
   Next : PList;
   Data : POINTER;
 end;
var
 First: PList;
 Last : PList;
 
 PROCEDURE Init();
 PROCEDURE PushFront(v: POINTER);
END;

implementation

PROCEDURE TList.PushFront(v: POINTER);
var
 p: PList;
BEGIN
 New(P);
 P^.Data := V;
 P^.Next := First;
 First := P;
END;
[21:13:32] <Jordan> При вызове PushFront падает с ошибкой 216, проблема с памятью.
[21:14:52] <Jordan> Вызываю так
[21:14:54] <Jordan> TYPE
 PRect = ^TRect;
 TRect = RECORD
   X, Y, W, H: INTEGER;
 END;

VAR
 L: SCL.TList;
 M: PRect;

BEGIN
 New(M);
 M^.X := 5;
 L.Create;
 L.PushFront(M);
END.
[21:15:27] <Jordan> Хотел сделать, список но не в виде массива, а списка указателей
[21:15:52] <Jordan> Может какие мысли есть?
[21:16:59] <Jordan> POINTER это аналог ANYREC
[21:18:46] <Jordan> Я на форуме free pascal спрошу.
[21:19:26] <divan> P^.Next := First;  тут First может указывать куда угодно... больше нет идей, а в delphi может быть какое-нибудь копирование...  может надо так P^.Next := First^
[21:20:04] <divan> или так ^First
[21:20:59] <divan> я в эти шляпы не очень въезжаю, но кто-то из них разыменовывание, а кто-то указатель, и тут часто могут быть ошибки у новичков с памятью
[21:21:15] <divan> в Обероне нет этой маяты
[21:22:15] <Jordan> проинициализировал при создании
[21:22:16] <Jordan> PROCEDURE TList.Init();
BEGIN
First := NIL;
END;
[21:22:43] <Jordan> Та же ошибка, ^First или ^First синтаксическая ошибка.
[21:23:05] <divan> тогда не подскажу, больше нет иле
[21:23:07] <divan> идей
[21:23:25] <Jordan> Ок
[21:23:53] <divan> набери в гугле delphi список и будет счастье
[21:24:13] <divan> структура более чем стандартная
[21:24:43] <Jordan> Я знаю как сделать список. Мне нужно его засунуть в класс.
[22:02:03] <vаlexey> http://lenta.ru/news/2014/02/28/data/