Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Конвертация строк


Добавить код в данный раздел
 Преобразование строки в Float с очисткой. Пример '10 000 руб . 10 коп' = '10000.10'

function GetErrorStrForNumber(ErrStr:string; Decimals:integer = 2):real;

Прислал: Black_Phoenix (Алматы) ( 4 июля 2008 г. )
Количество просмотров: 307


 Окончание существительного в зависимости от количества: 0 штук, 1 штука, 2 штуки, N штук...

function lsvGetWordNumber(Kol_vo: longint; myStr: string): string;

Прислал: Alex_soldier (Москва) ( 20 февраля 2007 г. )
Количество просмотров: 987


 преобразование даты типа TDateTime в дату прописью

function ConvertDateToString(Date: TDateTime): string;

Прислал: LexusR (Novosibirsk) ( 12 декабря 2003 г. )
Количество просмотров: 1727


 перекодировка строк из одной кодировки в другую

function CodeConversion(const SourceStr, VectorCodeConv: PChar): PChar;

Прислал: default ( 3 ноября 2003 г. )
Количество просмотров: 2809


 Универсальное и быстрое перекодирование строки из кодировок ANSI, KOI8-R, KOI8-U, OEM/DOS, ISO

function ConvertEncoding(sIn: string; sCoding: string): string;

Прислал: VEG (Республика Беларусь - Слуцк) ( 31 октября 2003 г. )
Количество просмотров: 3017


 Сумма и количество прописью, работа с падежами

unit sumstr;

Прислал: Eda (Архангельск) ( 13 июня 2003 г. )
Количество просмотров: 2463


 StrToInt и IntToStr вне модуля SysUtils...

function InStr(I: Integer): string;

Прислал: LENIN INC (Kiev) ( 22 февраля 2003 г. )
Количество просмотров: 2090


 Проверка значения строки

function CheckString(const Value: string): TTypeStr;

Прислал: Separator (Алматы) ( 6 января 2003 г. )
Количество просмотров: 2213


 Транслитерация кириллицы в латынь

Function TranslitRus2Lat(const Str: String): String;

Прислал: Дмитриев Сергей (Мурманск) ( 18 декабря 2002 г. )
Количество просмотров: 2540


 Конвертирует строку из кодировки DOS в кодировку Windows и обратно

function WinToDos(St:string):string;

Прислал: Сергей (Краснодар) ( 11 сентября 2002 г. )
Количество просмотров: 2892


 Делит строку аStr на три строки St1,St2,St3 длиной Long1,Long2,Long3

procedure DivPart(aStr:string;var St1,St2,St3:string;Long1,Long2,Long3:byte);

Прислал: Сергей (Краснодар) ( 11 сентября 2002 г. )
Количество просмотров: 2038


 Округление денежного значения

function RoundCurrency(value:currency):currency;

Прислал: Сергей (Краснодар) ( 11 сентября 2002 г. )
Количество просмотров: 2086


 Функция возвращает true если сторока st содержится в списке строк Stlist

function ListContained(st:string;StList:TStrings):boolean;

Прислал: Сергей (Краснодар) ( 11 сентября 2002 г. )
Количество просмотров: 2014


 Функция преобразует текстовую строку, задающую название месяца, в номер месяца

function NumMonth(SMonth:string):word;

Прислал: Сергей (Краснодар) ( 11 сентября 2002 г. )
Количество просмотров: 1923


 Конвертация PWideChar в String

function PWideToString(pw : PWideChar) : string;

Прислал: Gua (Simferopol) ( 18 июля 2002 г. )
Количество просмотров: 2428


 Конвертация String в PWideChar

function StringToPWide( sStr: string; var iNewSize: integer ): PWideChar;

Прислал: Gua (Simferopol) ( 18 июля 2002 г. )
Количество просмотров: 2505


 Функция, представляющая вещественные числа словами

unit Num2Text;

Прислал: reonid (Москва) ( 15 июля 2002 г. )
Количество просмотров: 2575


 Перекодировка текста из Win кодировки в КОИ-8 и обратно

function WinToKoi; function KoiToWin

Прислал: Balu (Харьков) ( 26 июня 2002 г. )
Количество просмотров: 2607


 Преобразование целого числа в набор битов и обратно

function IntToRBin32(Value:Cardinal):String;

Прислал: Delirium (Москва) ( 29 мая 2002 г. )
Количество просмотров: 2363


 Преобразование целого числа в строку с добавлением ведущих нулей по заданной ширине

Function _IntToStr(i, Wide:Cardinal):string;

Прислал: Cobalt (Москва) ( 14 мая 2002 г. )
Количество просмотров: 2293


 Конвертация : Римские -> арабские ; Арабские->Римские

Function ArabicToRoman(N : Integer) : String; //Арабские в римские, Function RomanToArabic(S : String) : Integer; //Римские в арабские

Прислал: Gua (Simferopol) ( 03 мая 2002 г. )
Количество просмотров: 2390


 Заполнение списка (TargetList) словами из строки (Text), с возможностью укзания множества разделителей

Function GetWordListFromText(Text, WordDeviders:String; TargetList:TStrings; ReturnWordPlace, ReturnWordDeviders:Boolean):Integer;

Прислал: VID (Махачкала) ( 02 мая 2002 г. )
Количество просмотров: 2404


 Преобразование строки с разделителями в StringList.

procedure StrBreakApart(const S, Delimeter : string; Parts : TStrings);

Прислал: Игорь Шевченко (Москва) ( 30 апреля 2002 г. )
Количество просмотров: 3076


 Преобразование набора чисел, предопределённых символом "#" в строку

function ASCIIToStr(AsciiString:String):String;

Прислал: VID (Махачкала) ( 26 апреля 2002 г. )
Количество просмотров: 2363


 Сумма прописью

unit SpellingD;

Прислал: fnatali (Березники) ( 27 апреля 2002 г. )
Количество просмотров: 2661


 Преобразование строки S в набор её чисел, где каждое число представляет каждый символ строки

function StrToAscii(S:String):String;

Прислал: VID (Махачкала) ( 25 апреля 2002 г. )
Количество просмотров: 2562




Добавить код в данный раздел

Наверх ▲    

casino Malaysia