Какая-то чуднАя ошибка в 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..." не может быть )))

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