freepascal.ru

В 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.