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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не работает код (((, подскажите как будет правильно 
V
    Опции темы
WERITAS
Дата 12.4.2007, 18:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


********
**


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

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


TLV, LLS, LLS1, LL2: TList;
Bil: MyClass;
.........................................................................
procedure TForm1.Button1Click(Sender: TObject);
var
  obj: TStruct;
begin
     for i:= 0 to ListBox1.Count-1 do
      begin
        LLS.Add(TComponent(TStruct.Create(ListBox1.Items.Strings[i],0,0,0,0)));
      end;

     Label7.Caption:= IntToStr(LLS.Count);
     for i:= 0 to LLS.Count-1 do
      ListBox2.Items.Add(TStruct(LLS.Items[i]).AdName);

{     TLV.Add(TComponent(TExamPaperList.Create(MemoQ.Text,
                                              StrToIntDef(SpinEdit1.Text,0),
                                              Label5.Caption,
                                              LLS, LLS1, LLS2)));    {   *БЛОК #1* }
}
     Bil.Create(MemoQ.Text,
                     StrToIntDef(SpinEdit1.Text,0),
                     Label5.Caption,
                     LLS, LLS1, LLS2);  
    TLV.Add(BiletL);  {   *БЛОК #2* }
 
end;

Он при выполнении вылетает с ошибой :( А если разкомментировать БЛОК1, а БЛОК2 закомментировать, то всё работает. В чём тут дело и как правильней нужно создать объект Bil?


M
Alexeis		Модератор: Название темы должно отражать ее суть!


Это сообщение отредактировал(а) Alexeis - 12.4.2007, 21:14


--------------------
Арт-менеджер клуба, разрешивший концерт Алексея Глызина, уволен с формулировкой "Мудак"
PM MAIL   Вверх
S.A.G.
Дата 12.4.2007, 19:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


не эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1339
Регистрация: 20.7.2006
Где: in ad equate

Репутация: нет
Всего: 19
А какая ошибка вылетает?


--------------------
Вот она задачка: спасти себя от себя самого © Cube
Sometimes good people do evil things © A Simple Plan
PM   Вверх
MetalFan
Дата 12.4.2007, 19:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128
что за....

Цитата(WERITAS @  12.4.2007,  18:53 Найти цитируемый пост)
Bil.Create(MemoQ.Text,
                     StrToIntDef(SpinEdit1.Text,0),
                     Label5.Caption,
                     LLS, LLS1, LLS2);  

кто ж так в делфе объекты создает?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
WERITAS
Дата 12.4.2007, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


********
**


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

Репутация: нет
Всего: 5
А как надо? smile


--------------------
Арт-менеджер клуба, разрешивший концерт Алексея Глызина, уволен с формулировкой "Мудак"
PM MAIL   Вверх
mr.Anderson
Дата 12.4.2007, 21:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

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

...
var LMy: TLabel;
...
LMy := TLabel.Create( Form1 );
LMy.Parent := Form1;

не проверял


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Beltar
Дата 13.4.2007, 07:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 0
Всего: 7
Со мной такой анекдот был, создавал в компоненте вложенный класс и на автомате F.Create; Ну а если человек не видит такое сразу, то сколько бы он не смотрел на код, он этого не увидит никогда. Так что я умудрился даже на DelphiKingdom написать. Хотелось бы мне знать, что подумал модератор, получив такую глупость от человека делающего компоненту. smile


2 WERITAS

Что-то у тебя код какой-то очень вычурный. ИМХО. Я бы такие вложенности городить не стал.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.
PM MAIL   Вверх
WERITAS
Дата 13.4.2007, 10:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


********
**


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

Репутация: нет
Всего: 5
Кажись смекнул.... Ща попробую Bil:=MyClass.Create


--------------------
Арт-менеджер клуба, разрешивший концерт Алексея Глызина, уволен с формулировкой "Мудак"
PM MAIL   Вверх
WERITAS
Дата 13.4.2007, 11:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


********
**


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

Репутация: нет
Всего: 5
Млин((( ТАкая дурацкая ошибка была ( Главное до этого все объекты я создавал правильно, а тут бес попутал. Всем спасибо. Как сказал Пушкин: "Вот и исчерпан парадокс" smile


--------------------
Арт-менеджер клуба, разрешивший концерт Алексея Глызина, уволен с формулировкой "Мудак"
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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