Главная

Библиотека компонент Polaris Library
Процедуры и функции

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.

Procs.pas

Различные функции и процедуры, не связанные с БД (Свалка).

Даты

function DaysOfMonth(Date: TDateTime): Integer

Количество дней в месяце.

function MaxDate(const D: array of TDate): TDate

Выбор максимальной даты из списка.

function MinDate(const D: array of TDate): TDate

Выбор минимальной даты из списка.

Строки

function FormatFIO(S: string): string

Форматирование полного ФИО в инициалы.

function ChangeEndStr(Dest,Delim,Source: string): string

Замена конца строки Dest после разделителя Delim на Source.

function AddSlash(Path: string): string

Добавление \ в конец строки.

function StrTrunc(Source: string; Len: Integer; TermStr: string): string

Обрезание строки Source c добавлением в конец строки TermStr до длины Len.

Числа

function TestNum(Num: Integer): Integer

Определение попадания числа Num в диапазон TCurrencyNames.

function NumInWords(Sum: Extended; Gender: TGenders): string

Преобразование целой части числа Sum в строку прописью. Gender - род числительного (например, ОДНА ложка, но ОДИН стакан).

function MoneyInWords(Sum: Extended; MainCur, SecCur: TCurrencyNames; Gender: TGenders; Decimals: Integer): string

Представление денежной суммы Sum прописью с точностью до Decimals дробных знаков, причем MainCur - старшая валюта, SecCur - младшая ден.единица. Gender - род старшей валюты.

Окна

function ExecuteForm(Form: TForm): TModalResult

Вызов и уничтожение модального окна.

function CheckMDIForm(Parent: TForm;ChildName: string): Boolean

Проверка MDI окна с именем ChildName на его существование в форме Parent.

function rMsgBox(Text: string; Flags: Longint): Integer

Выдает стандартное окно сообщения MessageBox.

function ConfirmCancel(Caption: string): Boolean

Предупреждение об отмене изменений.

Разное

function IIF(Switch: Boolean; Var1,Var2: Variant): Variant;
function IIF(Switch: Boolean; Var1,Var2: String): String;

Выбор из двух значений. Если Switch=True, то возвращается первое.

procedure ActiveControls(Owner: TWinControl; Active: Boolean)

Смена активности (Enabled:=Active) элементов управления владельца Owner.

procedure AppHint(StrHint: string)

Принудительное отображение Hint.

function GetVersionInfo(VerList: TStrings; FileName: String): Boolean

Загрузка VersionInfo в VerList из файла FileName.

procedure DrawImage(Canvas: TCanvas; Rect: TRect; Images: TImageList; Index: Integer)

Отрисовка картинки с индексом Index из ImageList'a в Rect канвы Canvas.

function GetRealIndex(Items: TStrings; FirstIndex: Integer; S: string): Integer

Определение правильного индекса в списке Items строки S с учетом регистра символов, начиная с индекса FirstIndex.

rDBUtils.pas

Различные функции и процедуры связанные с БД (без BDE).

procedure ChangeFilter(DataSet: TDataSet; NewFilter: string)

Смена фильтра у DataSet.

procedure DBErrorEHProc(E: Exception; Handler: TErrorHandler)

Обработчик ошибок типа EDatabaseError для компонента TErrorHandler.

function DeleteMessage(Multi: Boolean): Boolean

Предупреждение об удалении записи (или записей при Multi=True).

function DoAction(DataSet: TDataSet; Field: TField; Action: TrDBAction): Boolean

Выполнение действия Action на DataSet и Field. Возвращает True при успешном завершении.

procedure FormatFIOField(Field: TStringField)

Форматирование колонки ФИО.

procedure FormatNameField(Field: TStringField)

Форматирование значения колонки наименования с отсечением пробелов и перевода первой буквы в прописную.

procedure ReCalcField(DataSet: TDataSet)

Принудительный пересчет вычислимых полей.

procedure SetDBFilter(AModule: TComponent; Reg: TRegistry; ARegKey: String)

Устанавливает значение в компоненту AModule из реестра Reg из раздела ARegKey (для настройки фильтра).

function TestOptions(DataSet: TDataSet; Field: TField; PositiveOptions,NegativeOptions: TrDBOptionSet): Boolean

Проверка условий PositiveOptions и NegativeOptions на Dataset и Field.

rBDEUtils.pas

Различные функции и процедуры связанные с БД через BDE.

procedure AssignParam(Param: TParam; Value: Variant)

Присваивание значения Value параметру Param (даже NULL).

procedure BDEErrorEHProc(E: Exception; Handler: TErrorHandler)

Обработчик ошибок типа EDBEngineError для компонента TErrorHandler.

function DBSysDate(ADatabase: TDatabase; WithTime: Boolean): TDateTime

Системная дата/время на сервере БД (только Interbase или локальная БД).

procedure ExecStoredProc(StoredProc: TStoredProc; DB: TDatabase)

Выполнение хранимой процедуры StoredProc внутри транзакции.

procedure ExecuteSQL(ADatabase: TDatabase; SQL: string)

Выполнение SQL запроса SQL в базе данных ADatabase.

function GetUser(DB: TDatabase): string

Имя пользователя в БД DB или в Windows, если БД не открыта.


Copyright © 2000 Polaris Software