Страница 1 из 1

RxAppUtils, rxdbutils

СообщениеДобавлено: 24.04.2018 12:48:55
alexs
В RxAppUtils добавил сервисные функции
Код: Выделить всё
]procedure InfoBox(const S:string); overload;
procedure InfoBox(const S:string; Params:array of const); overload;

procedure WarningBox(const S:string); overload;
procedure WarningBox(const S:string; Params:array of const); overload;

procedure ErrorBox(const S:string);
procedure ErrorBox(const S:string; Params:array of const);

Они отображают информацию в окнах соответствующих сообщения и пишут её в лог

Для логирования предназначена функция
Код: Выделить всё
procedure RxDefaultWriteLog( ALogType:TEventType; const ALogMessage:string);

Процедура
Код: Выделить всё
procedure InitRxLogs;

включает подсистему логирования

Лог по умолчанию пишется во временную папку с именем исполняемого файла и расширением log


В rxdbutils добавил процедура по формированию условия WHERE SQL запроса - добавление через AND или OR
Простейшие функции - но часто использую.
Код: Выделить всё
procedure AddSQLExpressionAnd(var MacroStr:string; const MacroWhere:string); overload;
procedure AddSQLExpressionAnd(var MacroStr:string; const MacroWhere:string; Params:array of const); overload; inline;
procedure AddSQLExpressionOr(var MacroStr:string; const MacroWhere:string);


Добавлено спустя 4 часа 45 минут 30 секунд:
В RxAppUtils новая функция
Код: Выделить всё
function RxGetKeyboardLayoutName:string;

Вернёт название текущей раскладки на клавиатуре
Реализовано для Windows и Linux.