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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с TObjectList, Ошибка 
:(
    Опции темы
2211
  Дата 17.11.2009, 20:59 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Есть код
Код

  numb:= random(CountCelinders);
  files:=MyFile.Create;
  files.name:=str;
  files.number:=numb;
  //MyObjectList.Add(files);
  files.Destroy;


Если разкомментировать строку, то выдает ошибку Аксесс виалэйшен. Помогите разобраться.

files это мой объект моего класса, который является наследником Tobject + имеет два дополнительных поля имени и номера.
PM MAIL   Вверх
Frees
Дата 17.11.2009, 21:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 16
Всего: 54
а где ты создаешь MyObjectList


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


Новичок



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

Репутация: нет
Всего: нет
Создаю в конструкторе:

Код

procedure TMainForm.FormCreate(Sender: TObject);
begin
MyObjectList:= TObjectList.Create;
count:= 0;

end;
PM MAIL   Вверх
2211
Дата 17.11.2009, 21:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Все спят??  :((
PM MAIL   Вверх
Демо
Дата 17.11.2009, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 7
Всего: 50
2211, 
Проверяй, где у тебя теряется (либо уничтожается, либо переменная переписывается) MyObjectList.


--------------------
    
PM MAIL ICQ Skype   Вверх
2211
  Дата 17.11.2009, 23:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
у меня кода кот наплакал. никаких особых манипуляций с переменной не делаю.

Код

unit UMainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Math, UMyFiles, contnrs;

type
  TMainForm = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    MyObjectList: TObjectList;
    files: MyFile;
    CountCelinders: integer;
    count: integer;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
MyObjectList:= TObjectList.Create;
count:= 0;
end;

procedure TMainForm.Timer2Timer(Sender: TObject);
var
str: string;
length, i, j, numb: integer;
begin
for j:=0 to random(4) do
begin

  length:=random(10)+1;
  SetLength(str,length+6);
  for i:=0 to length do
    str[i]:=Chr(RandomRange(97,122));
  str[length+1]:='.';
  for i:=length+2 to length+4 do
    str[i]:=Chr(RandomRange(97,122));
  str[Length+5]:=#0;
  numb:= random(CountCelinders);
  files:=MyFile.Create;
  files.name:=str;
  files.number:=numb;
  //MyObjectList.Add(files); <----- ОШИБКА!!!!!!!!!!
  //files.Destroy;
  count:=count+1;

end;

end;

end. 


Это сообщение отредактировал(а) 2211 - 17.11.2009, 23:15
PM MAIL   Вверх
Демо
Дата 17.11.2009, 23:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 7
Всего: 50
Цитата(2211 @  17.11.2009,  23:15 Найти цитируемый пост)
у меня кода кот наплакал. никаких особых манипуляций с переменной не делаю.


У тебя таймер срабатывает раньше, чем TObjectList создаётся.


--------------------
    
PM MAIL ICQ Skype   Вверх
Christoph
Дата 18.11.2009, 01:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11
А разве такое может быть?По-моему после FormCreate начинают обрабатываться события компонентов


--------------------
user posted image
PM MAIL ICQ   Вверх
Демо
Дата 18.11.2009, 03:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 7
Всего: 50
Цитата(2211 @  17.11.2009,  23:15 Найти цитируемый пост)
TMainForm = class(TForm)
    Timer1: TTimer;


Цитата(2211 @  17.11.2009,  23:15 Найти цитируемый пост)
procedure TMainForm.Timer2Timer(Sender: TObject);


Так и должно быть? - Timer1, но Timer2Timer


--------------------
    
PM MAIL ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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