Текущий архив: 2009.11.15;
Скачать: CL | DM;

Вниз

Какая-то чуднАя ошибка в Application.CreateForm   Найти похожие ветки 

← →
mfender   (2009-10-02 09:59) [0]

Кто-нибудь может подсказать, что за беда случилась?

Сначала компилятор при компиляции выдавать стал Internal Error. Что характерно, если делать Build - нет такого. Удалил DCU, убрал всё из Implementation, сделал чистые процедуры (Ctrl+Shift+C). Запускаю.

Application.CreateForm просто пролетает мимо, и выкидывает EReadError с текстом: "Error reading frmMain.OnCreate: Invalid property value".

Что это может быть и почему так случилось?

---

← →
mfender   (2009-10-02 11:57) [1]

Ой я лохопет! Ларчик просто раскрывался. Это ж надо было такую порчу напейсать:

private
   function GetLogs: TLogs;
   procedure SetLogs(const Value: TLogs);
public
   property Log: TLogs read GetLogs write SetLogs;

implementation

procedure TfrmMain.FormCreate(Sender: TObject);
begin
 GetRegistry;
 Log := TLogs.Create(Reg.ReadString("LogsDirectory") + "\" +
   "agregator_" + FormatDateTime("yyyymmdd", Now) + ".log");
//Вот это, сдаётся мне, было совсем лишним...
 Log.OnLog := LogEvent;
end;

function TfrmMain.GetLogs: TLogs;
begin
 if not Assigned(FLog) then
   FLog := TLogs.Create(Reg.ReadString("LogsDirectory") + "\" +
   "agregator_" + FormatDateTime("yyyymmdd", Now) + ".log");
 Result := FLog;
end;


В результате получался объект с совершенно непонятными свойствами и отсюда EReadError - файла с удивительным именем, типа "^h+2..." не может быть )))

---

Страницы: 1 вся ветка

Текущий архив: 2009.11.15;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.01 c