Показать сообщение отдельно
  #11  
Старый 17.11.2013, 13:18
IRorshachI IRorshachI вне форума
Прохожий
 
Регистрация: 11.11.2013
Сообщения: 13
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Если убрать выделенную строку, то, при использовании публичной переменной, будет вылетать ошибка: Access Violation at adress..... Проблема в том, что данная процедура заново загружает все переменные с текстового файла, которые уже были загружены на 1-й форме.

Код:
procedure TForm2.FormShow(Sender: TObject);
begin
<<<<<<<<<<<<<<<<<<<<
 Core:=TCore.Create;     <
<<<<<<<<<<<<<<<<<<<<
       if Core.Conf.MaxMem='-Xmx256m' then ComboBox1.ItemIndex:=0
 else if Core.Conf.MaxMem='-Xmx512m' then ComboBox1.ItemIndex:=1
 else if Core.Conf.MaxMem='-Xmx1g' then ComboBox1.ItemIndex:=2
 else if Core.Conf.MaxMem='-Xmx2g' then ComboBox1.ItemIndex:=3
 else if Core.Conf.MaxMem='-Xmx4g' then ComboBox1.ItemIndex:=4;
end;
Ответить с цитированием