Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 5 247

Раздел: Delphi » Общие вопросы по программированию
/ вопрос закрыт /

Delphi & ini & error.
Приветствую уважаемые программисты!:)
Вообщем есть программа, в процессе пришлось работать с ини файлами, но тут как-бы все окей. Но когда пишу отдельную процедуру где есть вот такая строка- 

 if 1=IniFile.ReadInteger('SELECTED','Low',lo) then lowgroup.Visible:=false;
(идет сравнение: равняется ли в файле ини значение "Low" то есть переменная 'lo' единице).
Выдает ошибку, укзывая на промежуток между then и выражением readinteger выше.
Пишет: "(" expected but ")" found.
Также просмотрел дебаггером дельфи эту строку - пишет что выражение слишко сложное 0_о, хотя некоторыми процедурами ранее она была! И там никаких проблем, тот же код.
Как такое решить? Я уже запоролся, не хочет запускать процедуру и еррор...
Если-что скрин нижнней части кода есть в прикреплении. И исходный код процедуры с работающей процедурой (первая), и второй с ругающимися ошибками.

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Приложение:
  1.  
  2. interface
  3.  
  4. uses
  5. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  6. Dialogs, xpman, jpeg, ExtCtrls, pngimage, StdCtrls, GIFImage, acPNG,
  7. sGroupBox, sSkinManager, sButton, sPanel, ComCtrls, sPageControl,
  8. sCheckBox, sLabel, iniFiles;
  9.  
  10. type
  11. TForm1 = class(TForm)
  12. Background: TImage;
  13. logoSWG: TImage;
  14. Label1: TLabel;
  15. low: TImage;
  16. medium: TImage;
  17. high: TImage;
  18. low_hover: TImage;
  19. medium_hover: TImage;
  20. high_hover: TImage;
  21. Label2: TLabel;
  22. staticblur: TImage;
  23. configurebg: TImage;
  24. Timer1: TTimer;
  25. sSkinManager1: TsSkinManager;
  26. sPanel1: TsPanel;
  27. sButton1: TsButton;
  28. sLabelFX1: TsLabelFX;
  29. basics: TsGroupBox;
  30. Checkweapon: TsCheckBox;
  31. Checkmenu: TsCheckBox;
  32. Checkanims: TsCheckBox;
  33. CheckGFX: TsCheckBox;
  34. Checkjaplus: TsCheckBox;
  35. CheckFull: TsCheckBox;
  36. lowgroup: TsGroupBox;
  37. CheckGlow: TsCheckBox;
  38. CheckHD: TsCheckBox;
  39. Checkclient: TsCheckBox;
  40. procedure logo(Sender: TObject);
  41. procedure h(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  42. procedure hm(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  43. procedure hl(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  44. procedure cls(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  45. procedure open_menu_low(Sender: TObject);
  46. procedure open_menu_medium(Sender: TObject);
  47. procedure high_hoverClick(Sender: TObject);
  48. procedure t(Sender: TObject);
  49. procedure timing(Sender: TObject);
  50. procedure Full(Sender: TObject);
  51. procedure japlus(Sender: TObject);
  52. procedure SWGclient(Sender: TObject);
  53. procedure submit(Sender: TObject);
  54. procedure menumd(Sender: TObject);
  55. procedure writebasic(Sender: TObject);
  56. procedure writelow(Sender: TObject);
  57. private
  58. { Private declarations }
  59. public
  60. { Public declarations }
  61. end;
  62.  
  63. var
  64. Form1: TForm1;
  65.  
  66. implementation
  67.  
  68. {$R *.dfm}
  69.  
  70.  
  71.  
  72. procedure TForm1.open_menu_low(Sender: TObject);
  73. var lo,med,hi,l:integer; IniFile : TIniFile;
  74. begin
  75. l:=1;
  76. lo:=1;med:=0;hi:=0;
  77. IniFile := TIniFile.Create('ini\choosen.ini');
  78. IniFile.WriteInteger('SELECTED','Low',lo);
  79. IniFile.WriteInteger('SELECTED','Medium',med);
  80. IniFile.WriteInteger('SELECTED','High',hi);
  81. staticblur.Picture.LoadFromFile('bgframes/1.bmp');staticblur.Visible:=true;
  82. background.Visible:=false;high.Visible:=false;high_hover.Visible:=false;low_hover.Visible:=false;medium_hover.Visible:=false;low.Visible:=false;medium.Visible:=false;logoSWG.Visible:=false;
  83. sleep(2000);timer1.enabled:=true;
  84. configurebg.picture.LoadFromFile('Configure.png');configurebg.Width:=1;configurebg.Visible:=true;sPanel1.visible:=true;
  85. {if l=IniFile.ReadInteger('SELECTED','Low',lo) then lowgroup.Visible:=true;}
  86. IniFile.Free;
  87. end;
  88.  
  89.  
  90.  
  91.  
  92. procedure TForm1.writelow(Sender: TObject);
  93. Var IniFile : TIniFile;
  94. begin
  95.  
  96. IniFile := TIniFile.Create('ini\choosen.ini');
  97. if 1=IniFile.ReadInteger( 'SELECTED','Low',lo ) then lowgroup.Visible:=false;
  98. IniFile.Free;
  99. end;


Zionter Вопрос закрыт (ответы не принимаются, мини-форум закрыт)

Вопрос задал: Zionter (статус: Посетитель)
Вопрос отправлен: 30 апреля 2011, 23:06
Состояние вопроса: закрыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 30 апреля 2011, 23:23; участников в обсуждении: 2.
Zionter

Zionter (статус: Посетитель), 30 апреля 2011, 23:15 [#1]:

Приношу глубокие извинения всем, я нашел в чем проблема!) Переменная "lo" не была указана. Можете удалять тему, ее раз прошу прощения.
min@y™

min@y™ (статус: Доктор наук), 30 апреля 2011, 23:23 [#2]:

Дичайший жуткий код. Просто ужос. Я бы на месте компилятора проблевался.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

30 апреля 2011, 23:24: Вопрос закрыт (решение принял min@y™): Жалко нету прав удалить.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 31 октября 2025, 19:05
Выполнено за 0.02 сек.