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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка при добавлении MainMenu, недостаточно памяти для обработки команд 
V
    Опции темы
dize
Дата 16.10.2009, 16:34 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Возникла необходимость добавить компонент MainMenu не на пустой форме. После его добавления на этапе компиляции проекта возникает ошибка "Недостаточно памяти для обработки команды". Читал подобные сабжи в инете, никакого решения так и не нашел.
--------------------
- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.
PM MAIL   Вверх
CodeMonkey
Дата 16.10.2009, 17:37 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 38
Всего: 89
Ошибка в 13-й строке.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
dize
Дата 16.10.2009, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Вот содержание юнита в который пытаюсь добавить, но сомневаюсь, что это хоть что-нибудь даст.
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, DB, ADODB, sSkinManager,
  sPageControl, ExtCtrls, Menus;

type
  Tmainmenu = class(TForm)
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    ADOConnection1: TADOConnection;
    kotirovki: TADOTable;
    DataSource1: TDataSource;
    dengi: TADOTable;
    limits: TADOTable;
    sdelki: TADOTable;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    Button1: TButton;
    grob: TADOTable;
    Button7: TButton;
    ADOQ_ordersdel: TADOQuery;
    sSkinManager1: TsSkinManager;
    PageControl1: TsPageControl;
    TabSheet1: TsTabSheet;
    TabSheet2: TsTabSheet;
    TabSheet3: TsTabSheet;
    TabSheet4: TsTabSheet;
    TabSheet5: TsTabSheet;
    TabSheet6: TsTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    DBGrid6: TDBGrid;
    TabSheet7: TsTabSheet;
    killza: TADOTable;
    DBGrid7: TDBGrid;
    DataSource7: TDataSource;
    orders: TADOTable;
    Stop_orders: TADOTable;
    ADOQ_zayavdel: TADOQuery;
    ADOQ_stopdel: TADOQuery;
    Button8: TButton;
    Nomerr: TADOTable;
    DataSource8: TDataSource;
    DBGrid8: TDBGrid;
    DataSource9: TDataSource;
    sd: TADOTable;
    DBGrid9: TDBGrid;
    Button9: TButton;
    PageControl2: TsPageControl;
    TabSheet8: TsTabSheet;
    TabSheet9: TsTabSheet;
    TabSheet10: TsTabSheet;
    TabSheet12: TsTabSheet;
    TabSheet13: TsTabSheet;
    TabSheet14: TsTabSheet;
    DBGrid10: TDBGrid;
    DBGrid11: TDBGrid;
    DBGrid12: TDBGrid;
    DBGrid14: TDBGrid;
    DBGrid15: TDBGrid;
    DBGrid16: TDBGrid;
    DataSource10: TDataSource;
    forts: TADOTable;
    fortsid_secs: TAutoIncField;
    fortsSec_Code_class: TWideStringField;
    fortsSec_name: TWideStringField;
    fortsLot: TIntegerField;
    fortsSec_Price: TBCDField;
    fortsSec_name1: TWideStringField;
    fortsKod_bumagi: TWideStringField;
    fortsShag: TIntegerField;
    fortsSt_shag: TFloatField;
    Button10: TButton;
    Button11: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainmenu: Tmainmenu;

implementation

uses Unit3, Unit2, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}

procedure Tmainmenu.Button2Click(Sender: TObject);
begin
new_order.ShowModal;
end;

procedure Tmainmenu.Button4Click(Sender: TObject);
begin
Stop_order.ShowModal;
end;

procedure Tmainmenu.Button3Click(Sender: TObject);
begin
Kill_orders.Showmodal;
end;

procedure Tmainmenu.Button1Click(Sender: TObject);
begin
groupz.ShowModal;
end;

procedure Tmainmenu.Button6Click(Sender: TObject);
begin
TFileStream.Create('trans.tri', fmCreate or fmShareExclusive).Free;
end;

procedure Tmainmenu.Button5Click(Sender: TObject);
begin
TFileStream.Create('trans.trr', fmCreate or fmShareExclusive).Free;
TFileStream.Create('trans.tro', fmCreate or fmShareExclusive).Free;
end;

procedure Tmainmenu.Button7Click(Sender: TObject);
begin
ADOQ_ordersdel.Close;
ADOQ_ordersdel.SQL.Clear;
ADOQ_ordersdel.SQL.Text:='DELETE * FROM New_order';
ADOQ_ordersdel.ExecSQL;

ADOQ_zayavdel.Close;
ADOQ_zayavdel.SQL.Clear;
ADOQ_zayavdel.SQL.Text:='DELETE * FROM Zayavki';
ADOQ_zayavdel.ExecSQL;

ADOQ_stopdel.Close;
ADOQ_stopdel.SQL.Clear;
ADOQ_stopdel.SQL.Text:='DELETE * FROM Stop_zayavki';
ADOQ_stopdel.ExecSQL;

  mainmenu.orders.Active:=false;
  mainmenu.orders.Active:=true;
  mainmenu.killza.Active:=false;
  mainmenu.killza.Active:=true;
  mainmenu.Stop_orders.Active:=false;
  mainmenu.Stop_orders.Active:=true;
end;

//обновление таблиц
procedure Tmainmenu.Button8Click(Sender: TObject);
begin
limits.Requery();
dengi.Requery();
kotirovki.Requery();
Nomerr.Requery();
sd.Requery();
sdelki.Requery();
orders.Requery();
Stop_orders.Requery();
killza.Requery();
forts.Requery();
end;

//смена площадки
procedure Tmainmenu.Button9Click(Sender: TObject);
begin
if button9.Caption='ММВБ' then
begin
PageControl1.Visible:=false;
PageControl2.Visible:=true;
button9.Caption:='ФОРТС';
button2.Visible:=false;
button10.Visible:=true;
end
else
begin
PageControl1.Visible:=true;
PageControl2.Visible:=false;
button9.Caption:='ММВБ';
button2.Visible:=true;
button10.Visible:=false;
end
end;

procedure Tmainmenu.FormCreate(Sender: TObject);
begin
button2.Visible:=true;
end;

procedure Tmainmenu.Button10Click(Sender: TObject);
begin
new_order_forts.showmodal;
end;

procedure Tmainmenu.N2Click(Sender: TObject);
begin
Report.QuickRep1.Preview;
end;

procedure Tmainmenu.Button11Click(Sender: TObject);
begin
Report.QuickRep1.Preview;
end;

end.

--------------------
- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.
PM MAIL   Вверх
Frees
Дата 16.10.2009, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 9
Всего: 54
а может дествительно памяти мало для компилятора?


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


Эксперт
****


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

Репутация: 20
Всего: 58
Frees, что-то не верится.
dize, а где в этом коде создание меню и строка с ошибкой?


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 16.10.2009, 23:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Т.е. если на форму добавить MainMenu и нажать <F9>, то прога откажется запускаться - я так понимаю? 

А конфликта из-за имени класса быть не может - Tmainmenu = class(TForm) ? 

Это сообщение отредактировал(а) Данкинг - 16.10.2009, 23:26


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Keeper89
Дата 16.10.2009, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 20
Всего: 58
Данкинг, а я и не увидел такое имя класса формы  smile 


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 16.10.2009, 23:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Keeper89, я сначала тоже не понял, думаю, что за класс такой интересный. Потом обратил внимание, что конструкторов нет - и до меня дошло. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
dize
Дата 19.10.2009, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Да..так и есть, переназвал форму, все нормально заработало.. 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.0766 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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