FErrorLogLevel gehört zu Tt4rCore.
Und der Rest zu dem Codeausschnitt:
Delphi-Quellcode:
procedure Tt4rCore.Log(Msg: String; Loglevel: Integer);
var LogFlag: String;
begin
LogFlag := T4R_FLAG_ERROR;
case Loglevel of
T4R_LOGLEVEL_ERRORS: LogFlag := T4R_FLAG_ERROR;
T4R_LOGLEVEL_INFOS: LogFlag := T4R_FLAG_INFO;
end;
if (Loglevel<=FErrorLogLevel) then
ErrorLogWrite(LogFlag, Msg);
end;