Текущий архив: 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
