Новый вопрос №82754

Четверг, 01 Января 1970 г. 03:00 + в цитатник

Добрый день. Вот код:

code:type
  TlistCell = record
    id: integer;
    name: ShortString;
  end; 
...
  TImform_cross = class
  private
    TYPE_CW_array: array of TlistCell;
...
  public
    procedure filter_TYPE_CW_load();
...
procedure TImform_cross.filter_TYPE_CW_load();
begin
  valCount:=6;

  SetLength(TYPE_CW_array,valCount);

на последней строчке кода при выполнении выскакивает ошибка: "Access violation at ..." Скажите пожалуйста, что тут не правильно опи ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82754