Исходники: Модули

:: Delphi - Модули

Страницы: 1 2 3 4 5 6

spelling.zip  (2059 байт)
Посмотреть содержимое

TStas : 2005-09-18 19:53:45

Переводит число цифрами в пропись.
Может писать для любых единиц измерения, но для долларов, рублей и евро есть все готовое.

Скачать

Комментарии (0) 1423 скачиваний

sqlite3lib.zip  (43648 байт)
Посмотреть содержимое

dnavirus : 2009-09-15 18:33:15

SQLite 3.x Windows DLL API header in Delphi
низкоуровневая библиотека (не компоненты)
поддерживаемые версии SQLite: 3.3, 3.5 и 3.6 (до 3.6.18)

Скачать

Комментарии (0) 639 скачиваний

squallregistry.zip  (1370 байт)
Посмотреть содержимое

Squall : 2008-01-01 20:04:52

Модуль, существенно облегчающий работу с реестром. Понимает относительные пути к реестру.
Пример. Вы можете использовать стандартный модуль Registry, и тогда код добавления ключа в реестр будет следующим.

procedure TForm1.Button1Click(Sender:TObject);
var reg: TRegistry.Create;
begin
reg := TRegistry.Create;
reg.RootKey := hkey_local_machine;
reg.OpenKey('Software\MyCompany\MyApplication',True);
reg.WriteString('TestKey','TestValue');
reg.CloseKey;
reg.Free;
end;

Тоже самое можно сделать, используя SquallRegistry так:

procedure TForm1.Button1Click(Sender:TObject);
begin
RegWriteString('HKLM\Software\MyCompany\MyApplication\TestKey',TestValue);
end;

Любая операция с реестром выполняется одним методом. В модуле следующие методы:
function RegGetRoot(regpath: string): hkey;
function RegValueName(regpath: string):string;
function RegValueExists(regpath: String):Boolean;
function RegDeleteValue(regpath: string): Boolean;
function RegWriteString(regpath: String; value: String):Boolean;
function RegWriteInt(regpath: String; value: Longint):Boolean;
function RegWriteBool(regpath: String; value: boolean):Boolean;
function RegReadInt(regpath: String; def:Int64):Int64;
function RegReadBool(regpath: String; def:Boolean):Boolean;
function RegReadString(regpath: String; def: String):String;
function RegGetValueNames(regpath: string; strings: TStrings):Boolean;
function RegGetKeyNames(regpath: string; strings: TStrings):Boolean;
function RegGetDataType(regpath: string): TRegDataType;

Путь реестра - это путь к ключу или параметру в реестре. Задается он следующим образом:
[rootkey]/[mainkey]/[valuename]
В качестве rootkey используется не полное название, а сокращение. Вот сокращения всех корневых ключей:
HKLM = HKEY_LOCAL_MACHINE
HKCU = HKEY_CURRENT_USER
HKCR = HKEY_CLASSES_ROOT
HKU = HKEY_USERS
HKPD = HKEY_PERFORMANCE_DATA
HKCC = HKEY_CURRENT_CONFIG
HKDD = HKEY_DYN_DATA

E-mail: Squall2007@yandex.ru

Скачать

Комментарии (0) 1483 скачиваний

storage.zip  (12672 байт)
Посмотреть содержимое

Набережных_С : 2005-02-15 22:52:00

Обертка для структурированных хранилищ. Прилагается утилита для просмотра Structured Storage Files в качестве примера использования.

Скачать

Комментарии (0) 1154 скачиваний

time2str.zip  (1044 байт)
Посмотреть содержимое

Darksoftware : 2005-11-01 12:02:07

Авторские функции перевода времени в строку.

Скачать

Комментарии (0) 1291 скачиваний

tools_arrays.zip  (2411 байт)
Посмотреть содержимое

moonter : 2005-02-19 04:31:00

Модуль, который организовует динамический массив. Причём можно его при создании легко организовать как в памяти, так и на диске. Можно цеплять под него и свои типы данных, только не к базовому класу, а к TPointerArray.

Скачать

Комментарии (0) 988 скачиваний

tools_graph.zip  (2911 байт)
Посмотреть содержимое

moonter : 2005-02-19 04:35:00

Модуль для работы с графикой, да тут многого нет, но основное внимание отведенно градиентной заливке и накладыванию рисунка один на одного. Да, этот модуль эксперементален, и работа над ним идёт. Так что, если не компилится, подправьте.

Скачать

Комментарии (0) 1352 скачиваний

ufunction.zip  (14484 байт)
Посмотреть содержимое

Maxggg : 2008-07-13 11:22:06

Модуль для работы с функциями. Распознает функцию y=f(x) из строки и производит вычисление. Принцип работы: создается "рассчетная схема" (однонаправленный циклический список). Благодаря этой схеме строка каждый раз при изменении x не анализируется, что делает вычисления очень быстрыми.

Скачать

Комментарии (0) 1124 скачиваний

uincday.zip  (783 байт)
Посмотреть содержимое

Kerk : 2005-07-06 11:14:12

function IncDay(const DateTime: TDateTime; NumberOfDays: Integer): TDateTime;

Функция предназначена для изменения даты (DateTime) путем добавления количества дней (NumberOfDays). Значение NumberOfDays может быть отрицательным.

Скачать

Комментарии (3) 1004 скачиваний

verylongmath.zip  (22245 байт)
Посмотреть содержимое

TStas : 2006-01-28 11:13:09

Модуль VeryLongMath.
В этом модуле определен тип: VeryLongInt - целые знаковые числа и математика для них. Это числа по модулю 100. Состоят из модуля, в котором задом наперед записаны разряды и знака (True - знак есть, т. е. число меньше нуля). Если числа не инициализированы, то ошибки не возникает, они автоматически инициализируются при обращении к функциям и им присваивается 0.

Оптимизация скорости выполнения: при переводе в строку длинна строки расчитывается сразу и устанавливается один раз. При переводе строки в число части строки только копируются. При умножении длинна результата также устанавливается один раз. Возведение в степень производится с минимальным числом умножений, см. код функции. Так, например при возведении в степень 100 будет произведено не 100, а только 8 операций умножения. Есть функция извлечения корня, которая возвращает точный ли он, а если неточный, то ближайшее целое.

TProgressEvent - процедурный тип, с помощью которого можно отображать процесс извлечения корня или вычисления НОК и НОД, а также остановить процесс. Умеет считать НОК и НОД для двух длинных чисел. При ошибках (деление на 0, корень из отрицательного числа) возбуждаются исключения.

Второй модуль - NumericParser. Использует VeryLongMath.
В этом модуле определен класс парсера. Парсер принимает строку и, возможно, процедуру TErrorEvent, с помощью которой он может указать место ошибки, если таковая возникла. Чтобы он парсил, нужно вызвать метод Parse. Понимает переменные, если создать TStrings и в свойства Objects записать длинные числа в виде TNumericObj, и записать полученный TStrings в свойство VarList. Понимает выражения двух типов - длинные числа или логичекие. Есть свойство ResultType, в котором записано, получилось ли парсить, а если - да, то каков тип выражения. Есть свойство Corrected, в котором записано, корректна ли выражение. Парсер понимает комментарии, которые находятся внутри фигурных скобок. Регистронезависим. Понимает функции Abs, Sqr, Sqrt, GCD (НОК), lcm (НОД), логические константы true и false. На основе парсера есть функция Eval, которая принимает строку и возвращает результат ее выполнения в виде строки.

Имеется тестовый проект в виде калькулятора.

Скачать

Комментарии (3) 1085 скачиваний

Страницы: 1 2 3 4 5 6