rUtils.pas |
Различные функции и процедуры, не связанные с БД. |
Даты |
function AdaptedDateStr(Date: TDateTime): string |
Строка даты с заменой имени месяца на род. падеж. |
Строки |
function Stuff(S: string; Index,Count: Integer; Source: string): string | Вставка подстроки Source в строку S с заменой Count символов, начиная с Index. |
function ConvertCodes(Source: string): string | Преобразование \n, \r, \t, \NNN в соответсвующие символы.
|
function ConvertSymbols(S, Source, Target: string): string | Замена символов в строке S из одного набора (Source) на символы из другого (Target). |
function GetDelimCount(S: String; Delims: TCharSet): Integer | Количество разделителей Delim в строке S. |
function PosR(C: Char; S: String): Integer |
Позиция символа C в строке S, начиная с последнего |
function PosWordDelims(Srch, S: String; Delims: TCharSet): Integer | Позиция обрамленной разделителями Delims подстроки Srch в строке S |
function AddFirstToList(List, S: String; Delim: String): String | Добавление элемента S в начало строки-списка List c разделителем Delim. |
function ListToStr(List: TList; Delim: String): String | Преобразование TList в строку с разделителем Delim. |
function StrToDateFix(const S: string): TDateTime; function StrToTimeFix(const S: string): TDateTime; function
StrToDateTimeFix(const S: string): TDateTime; function DateToStrFix(Date: TDateTime): string; function TimeToStrFix(Time: TDateTime): string; function DateTimeToStrFix(DateTime: TDateTime): string; function StrToFloatFix(const S: string): Extended; function FloatToStrFix(Value: Extended): string; function FormatFloatFix(const Format: string; Value: Extended): string; |
Семейство функций для преобразования дат и чисел в строки и наоборот, но без учета текущих настроек Windows. Используются разделители DateSeparatorFix, TimeSeparatorFix, ShortDateFormatFix, ShortTimeFormatFix, DecimalSeparatorFix. |
Числа |
function IncCycle(var Value: Integer;const Offset, MinValue, MaxValue: Integer): Integer | Циклический инкремент Value с шагом Offset в пределах диапазона [MinValue, MaxValue]. |
function Sign
(Value: Extended): Integer | Знак числа. 1 - >0, 0 =0, -1 - <0. |
function RaisePower(Value,Power: Integer): Integer |
Возведение числа Value в степень Power. |
function fPower(Value, Power: Extended): Extended |
function fRound(X: Extended; Precision: Integer): Extended | Округление числа Value до Precision знаков. Если Precision - отрицательный, то округляется целая часть. |
function SoftRound(X: Extended; Precision: Integer): Extended | Округление как и fRound, но если получается 0,
то остается исходное число. |
Окна |
procedure RestoreWindow(Control: TWinControl) | Достает наверх уже показанную форму. |
procedure RefreshWindow(Control: TWinControl; Rect: Pointer) | Перерисовывет оконный объект. |
Ресурсы |
function FindResourceInModules(var Module: THandle; const ResName, ResType: PChar): HRSRC | Ищет ресурс ResName типа ResType в массиве RHandles (в первую очередь в Module). |
procedure CorrectResName(var ResName: string) | Исправляет имя ресурса. |
function RLoadPicture(RHandle: THandle; ResName: string; ResKind: TBitmapResKind): THANDLE | Загрузка картинки из ресурса ResName типа ResKind из модуля RHandle. |
procedure LoadBitmapFromResource(Bitmap: TBitmap; RHandle: THandle; ResName: string; ResKind: TBitmapResKind) |
Загружает картинку из ресурса ResName типа ResKind из модуля RHandle с преобразованием в битмап Bitmap. |
function LoadToImage(Handle: THandle; ResName: PChar; ResKind: TBitmapResKind; Image: TImageList): Boolean | Загрузка Bitmap'а в Image из ресурса
ResName типа ResKind из модуля Handle. |
Разное |
function RegReadValue(Reg: TRegistry; Name: string; Default: TYPE): TYPE |
Чтение значения параметра Name реестра Reg. Для D4,D5 - TYPE = (String, Integer, Extended, TDateTime), для D3 - TYPE = String. |
function GetOSUser: string | Имя текущего пользователя Windows. |
function CompareVar(Var1, Var2: Variant): Integer | Сравнение двух Variant'ов. 1 - Var1>Var2, 0 - Var1=Var2, -1 - Var1<Var2. Следует учитывать, что varEmpty < varNull. |