Какая-то чуднАя ошибка в Application.CreateForm [D7]
mfender © (2009-10-02 09:59:00)
Кто-нибудь может подсказать, что за беда случилась?
Сначала компилятор при компиляции выдавать стал Internal
Error. Что характерно, если делать Build - нет такого. Удалил DCU,
убрал всё из Implementation, сделал чистые процедуры
(Ctrl+Shift+C). Запускаю.
Application.CreateForm просто пролетает мимо, и выкидывает
EReadError с текстом: "Error reading frmMain.OnCreate: Invalid
property value".
Что это может быть и почему так случилось?
mfender (2009-10-02 11:57:00) [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..." не может быть )))
Наверх 
ЧАТ |
Орешник |
|
