что то нашел может пригодится
Код:
Как определить, является ли символ буквой русского алфавита, буквой английского алфавита, является ли символ цифрой?
Как определить, является ли символ буквой русского алфавита?
function isAlphaRu( c: Char ): boolean;
begin
Result := Ord( c ) in [168,184,192..223,224..255];
end;
Как определить, является ли символ буквой английского алфавита?
function isAlphaEn( c: Char ): boolean;
begin
Result := Ord( c ) in [65..90,97..122];
end;
Как определить, является ли символ цифрой?
function isDigit( c: Char ): boolean;
begin
Result := Ord( c ) in [48..57];
end;
Код:
procedure Inc(var i: Integer; incr: Integer = 1)
Инкремент
procedure Dec(var i: Integer; decr: Integer = 1)
Декремент
procedure RaiseException(Param: String)
Генерация исключения
procedure ShowMessage(Msg: Variant)
Вывод сообщения
procedure Randomize
Инициализация генератора псевдослучайных чисел
function Random: Extended
Генерация псевдослучайного числа
function ValidInt(cInt: String): Boolean
Проверка валидности целого в строке
function ValidFloat(cFlt: String): Boolean
Проверка валидности цисла с плавающей запятой в строке
function ValidDate(cDate: String): Boolean
Проверка валидности даты в строке
function CreateOleObject(ClassName: String): Variant
Создание OLE-объекта
function VarArrayCreate(Bounds: Array; Typ: Integer): Variant
Создание динамического массива