Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Динамический массив в классе 
:(
    Опции темы
Staraus
Дата 15.9.2009, 00:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 4.12.2008

Репутация: нет
Всего: нет
Всем привет, в классе объявил динамический массив, и при попытке установить длину динамического массива вылетает с ошибкой EAccessViolation with message 'Access violation at address 00404c1c in module 'Project2.exe'. Read of address 00000004. process stopped. Use Strp or Run to continue. В чем проблема, и как можно использовать динамический массив в классе?

Код

  TCredit = class
     Day: array of Integer;
  end;

var
  Form1: TForm1;
  Credit: TCredit;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(Credit.Day, 100);
end;
PM MAIL   Вверх
NightmareZ
Дата 15.9.2009, 04:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


[хакер]
**


Профиль
Группа: Участник
Сообщений: 699
Регистрация: 10.8.2006

Репутация: -1
Всего: 13
Credit у тебя случайно не nil?


--------------------
NightmareZ.net - мой блог и сайт, мои проекты и прочий трэш
Ely-Art.ru - наша маленькая домашняя арт-студия
mugcraft.ru - кружки на любой вкус
PM WWW ICQ Skype GTalk AOL YIM   Вверх
Frees
Дата 15.9.2009, 07:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54
Код

  SetLength(Self.Day, 100);



--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Staraus
Дата 15.9.2009, 09:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 4.12.2008

Репутация: нет
Всего: нет
Да credit = nil
PM MAIL   Вверх
pseud
Дата 15.9.2009, 09:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  Credit := TCredit.Create;
  SetLength(Credit.Day, 100);
end;



--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
Staraus
Дата 15.9.2009, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 12
Регистрация: 4.12.2008

Репутация: нет
Всего: нет
А как использовать динамический массив в классе, чтобы не выдавало ошибки??
PM MAIL   Вверх
pseud
Дата 15.9.2009, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
а вообще создание дин. массива надо бы делать в конструкторе класса, им владеющем, удялять - в деструкторе.
должно быть что-то типа:
[исправленное]
Код

type
  TArrayOfInteger = array of Integer;

type
  TCredit = class
  public
    FDay: TArrayOfInteger;
    constructor Create(ALength: Integer = 0); reintroduce;
    destructor Destroy; override;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    FCredit: TCredit;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TCredit }

constructor TCredit.Create(ALength: Integer = 0);
begin
  if ALength >= 0 then
    SetLength(FDay, ALength)
  else
    raise Exception.Create('Айайай');
end;

destructor TCredit.Destroy;
begin
  SetLength(FDay, 0);
end;

{TForm1}

procedure TForm1.Button1Click(Sender: TObject);
begin
  FCredit := TCredit.Create(100);
  try
    {работаем с FCredit}
  finally
    FCredit.Free;
  end;
end;



Это сообщение отредактировал(а) pseud - 15.9.2009, 09:58


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
NightmareZ
Дата 15.9.2009, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


[хакер]
**


Профиль
Группа: Участник
Сообщений: 699
Регистрация: 10.8.2006

Репутация: -1
Всего: 13
Цитата(Staraus @ 15.9.2009,  09:21)
Да credit = nil

Ну вот потому и падает.


--------------------
NightmareZ.net - мой блог и сайт, мои проекты и прочий трэш
Ely-Art.ru - наша маленькая домашняя арт-студия
mugcraft.ru - кружки на любой вкус
PM WWW ICQ Skype GTalk AOL YIM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0466 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.