Класс string в делфи

<р>строковый класс, который инкапсулирует несколько строковых функций
я сделал этот небольшой класс string исходя QStrings и FastStrings, таким образом, этот класс быстро и обрабатывает несколько строковых функций. Кстати, для того, чтобы скомпилировать и использовать этот класс, вам понадобится FastStrings (вы можете сделать копию в Питер Домашняя страница Моррис).
почему сделать класс string? ну хотя этот класс не хватает перегрузки операторов он мне нужен, и думал, что кто-то установочном пользу от него.
обновление: Добавлено к регистру как startswith и метода endswith и
исправлено : ошибки в влево, вправо, быстрее приложения wordcount (копируется из QStrings)

<кодекса><размер шрифта="3" лица="курьер Нью"><цвет шрифта="#000000"><б>блок IMLCommon
<б>интерфейс
использование функции
& евро & евро , и командой sysutils, Классов
<б>Тип
и & евро & евро TCharSet = В наборе чар
& евро & евро TString = <Б>класс
& евро & евро частный и
& евро & евро & евро & евро буфера: AnsiString
& евро & евро & евро & евро FWordSeparators: TCharset
& евро & евро & евро & евро и функции , и метода getlength может служить метод: число
и & евро & евро & евро & евро и функции на GetRefCount: число
и & евро & евро & евро & евро и функции на GetCharacter(<б>константный Индекс: целое число): Чар
& евро & евро & евро & евро и функции на GetWordSeparators: TCharSet
& евро & евро & евро & евро и функции на GetAsPChar: PChar
& евро & евро & евро & евро и функции в GetAsInteger: число
и & евро & евро & евро & евро и функции на GetAsWord: Слово
& евро & евро & евро & евро и функции , и GetWordCount: число
в & евро & евро & евро & евро и процедура , и обновляет(<б>константный значение: целое число)
& евро & евро & евро & евро и процедура в SetCharacter(<б>константный индекса: Целое число <б>константный значение: Тип char)
& евро & евро & евро & евро и процедура в SetWordSeparators(<б>константный значение: TCharSet)
& евро & евро & евро & евро и процедура на SetAsPChar(<б>константный значение: PChar) в
& евро & евро & евро & евро и процедура на SetAsInteger(<б>константный значение: целое число)
и & евро & евро & евро & евро и процедура на SetAsWord(<б>константный значение: слово) в
& евро & евро и защищен и
& евро & евро & евро & евро функция FindEx(<б>Константный Подстрока: <б>строка <Б>константный с учетом регистра: Булево = истина
и & евро & евро & евро & евро & евро & евро <б>константный StartPos: Целое число, = <цвет шрифта="#800080">1 <б>константный ForwardSearch: Булево = истина): число
и & евро & евро & евро & евро и функции на InternalInteger(<б>вар переменной: целое число <б>константный HighBound, LowBound: целое число): Логическое и
& евро & евро & евро & евро и функции на InternalWord(<б>Константный Индекс: целое число): текст строка
& евро & евро и общие
& евро & евро & евро & мочекаменная функции на левой(Количество: целое число): и строка
& евро & евро & евро & евро и функции , и право(Количество: целое число): текст строка
& евро & евро & евро & евро и функции в середине(<б>константный Астарт счет: целое число): и строка
& евро & евро & евро & евро и функции в верхнем регистре: и строка
& евро & евро & евро & евро и функции в Нижнем регистре: и строка
& евро & евро & евро & евро и функции отсутствуют: Логическое и
& евро & евро & евро & евро и функции , и как startswith(<б>константный строка:<б>строка
& евро & евро & евро & евро & евро & евро <б>Константный с учетом регистра: Булево = ложь): Логическое и
& евро & евро & евро & евро и функции , и метода endswith(<б>константный строка: <б>строка
& евро & евро & евро & евро & евро & евро <б>константный с учетом регистра: Булево = ложь): Логическое и
& евро & евро & евро & евро и функции найти(<б>Константный Подстрока: <б>строка <Б>константный StartPos: число, = <цвет шрифта="#800080">1
& евро & евро & евро & евро & евро & евро <б>константный с учетом регистра: Булево = истина): Целое число
& евро & евро & евро & евро и функции в FindRev(<б>Константный Подстрока: <б>строка <Б>константный StartPos: целое число = -<цвет шрифта="#800080">1
& евро & евро & евро & евро & евро & евро <б>константный с учетом регистра: Булево = истина): Целое число
& евро & евро & евро & евро и функции , и содержит(<б>константный Подстрока: <б>строка
& евро & евро & евро & евро & евро & евро <б>константный с учетом регистра: Булево = истина): Булевы функции
& евро & евро & евро & евро и функции на Ечисло: Логическое и
& евро & евро & евро & евро и функции Добавить(<б>константный значение: <б>строка): <Б>строка
& евро & евро & евро & евро и функции : в начале(<б>константный значение: <б>строка): и строка
& евро & евро & евро & евро и функции на удалить(<б>константный Индекс, Длина: целое число): <б>строка
& евро & евро & евро & евро и процедура , и Усечения(<б>константный NewLength: integer), которое в
& евро & евро & евро & евро и процедура заполнить(<б>константный на Ачар: Голец NewLength: целое число = -<цвет шрифта="#800080">1) и
& евро & евро & евро & евро и процедура Вставить(<б>константный Индекс: целое число <б>константный имеется оперативная информация: и строка в)
& евро & евро & евро & евро и свойства содержание: <б>строка в буфер <б>пишут буфер
& евро & евро & евро & евро и недвижимости на счетчик:Число и ознакомиться на GetRefCount
& евро & евро & евро & евро и свойства персонажей[<б>Константный указатель: целое]: Голец и ознакомиться на GetCharacter <б>пишут SetCharacter по умолчанию
& евро & евро & евро & евро и недвижимость слова[<б>Константный указатель: целое]: <б>строка InternalWord
& евро & евро & евро & евро и недвижимости на приложения wordcount: Число и ознакомиться , и GetWordCount
& евро & евро & евро & евро и свойства Длина: целое и ознакомиться , и метода getlength может служить метод <б>пишут обновляет и
& евро & евро & евро & евро и недвижимости на WordSeparators: TCharSet и ознакомиться на GetWordSeparators <б>пишут SetWordSeparators
& евро & евро & евро & евро и недвижимости на AsPChar: PChar и ознакомиться на GetAsPChar <б>пишут SetAsPChar
& евро & евро & евро & евро и свойства AsInteger: Число и ознакомиться на GetAsInteger <б>пишут SetAsInteger
& евро & евро & евро & евро и недвижимости в Амечом: Слово и ознакомиться в GetAsWord <б>пишут SetAsWord
& евро & евро и конец

<б>реализация
использование функции
& евро & евро <цвет шрифта="#число 0000ff"><я>{JclStrings,} FastStrings
<цвет шрифта="#число 0000ff"><я>{ TString }
Вифункции TString.Метода endswith(<б>константный строка: <б>строка
& евро & евро <б>константный с учетом регистра: Тип boolean): boolean значение
<б>начинается
& евро & евро, если с учетом регистра <б>то есть
& евро & евро & евро & евро в результате := AnsiSameStr(строка, справа(системы.Длина(строка)))
& евро & евро <б>еще и
& евро & евро & евро & евро в результате := AnsiSameText(строка,справа(системы.Длина(строка)))
<б>конец
<б>функции TString.FindEx(<б>константный Подстрока: <б>строка
& евро & евро <б>константный с учетом регистра: логическое <б>константный StartPos: integer для того,
& евро & евро <б>константный ForwardSearch: логические): целое число,
<б>начинается
& евро & евро в результате := SmartPos(Подстрока, Буфер, зависит от регистра, StartPos, ForwardSearch)
<б>конец
<б>процедура TString.Заполнить(<б>константный на Ачар: Голец NewLength: integer), которое
<б>начинается
& евро & евро, если (NewLength < <цвет шрифта="#800080">0) <б>то есть
& покупка & покупка начинается
& евро & евро & евро & евро, если Длина > <цвет шрифта="#800080">0 <б>то есть
& евро & евро & евро & евро & евро & евро FillChar(буфера[<цвет шрифта="#800080">1], Длина, ОГА(Ачар))в
& евро & евро & евро & евро <б>еще и
& евро & евро & евро & евро & евро & евро FillChar(буфера[<цвет шрифта="#800080">1], <цвет шрифта="#800080">1, ОГА(Ачар)) в
& евро & евро и конец
и & покупка & покупка еще и
& покупка & покупка начинается
& евро & евро & евро & евро , и обновляет(NewLength)
& евро & евро & евро & евро FillChar(буфера[<цвет шрифта="#800080">1], Длина, ОГА(Ачар)) в
& евро & евро и конец
<б>конец
<б>функции TString.Найти(<б>константный Подстрока: <б>строка <Б>константный StartPos: integer для того,
& евро & евро <б>константный с учетом регистра: логические): число
<б>начинается
& евро & евро в результате := FindEx(подстроки с учетом регистра, StartPos)
<б>конец
<б>функции TString.FindRev(<б>константный Подстрока: <б>строка <Б>константный StartPos: integer для того,
& евро & евро <б>константный с учетом регистра: логические): целое число
<б>вар
& евро & евро в RealStartPos: Целое число
<б>начинается
& покупка & покупка если StartPos < <цвет шрифта="#8000 0">0 итут на RealStartPos := Длина тега еще на RealStartPos := StartPos и
& евро & евро результат := FindEx(подстроки с учетом регистра, RealStartPos, накладные)
<б>конец
<б>функции TString.GetAsPChar: PChar
<б>начинается
& евро & евро в результате := PChar(буфер)
<б>конец
<б>функции TString.GetCharacter(<б>константный Индекс: целое число): Голец
<б>начинается
& евро & евро, если нет ... отсутствуют или (Индекс > Длина) <б>то есть
& евро & евро & евро & евро в результате := <цвет шрифта="#800000">#0 и
& евро & евро <б>еще и
& евро & евро & евро & евро в результате := буфер[Индекс]
<б>конец
<б>функции TString.Метода getlength может служить метод: число
<б>вар
& евро & евро П: указатель
<б>начинается
& евро & евро в результате := <цвет шрифта="#800080">0
& покупка & покупка при указатель(буфер) <> <б>шь то, что
& покупка & покупка начинается
& евро & евро & евро & евро р := указатель(целое число(указатель(буфера)) - <цвет шрифта="#800080">4) и
& евро & евро & евро & евро результат := целое число(П^) <б>и (ине <цвет шрифта="#800080">$80000000 <б>ГТК <цвет шрифта="#800080">1) и
& евро & евро и конец
<б>конец
<б>функции TString.Isempty возвращает: Булево
<б>начинается
& евро & евро в результате := (Длина = <цвет шрифта="#800080">0)
<б>конец
<б>функции TString.Оставил(число: целое число): текст строка
<б>начинается
& евро & евро, если Количество > Длина <б>то есть
& евро & евро & евро & евро в результате := буфер в
& евро & евро <б>еще начинается
& евро & евро & евро & евро в системе.Обновляет(результат, счет)
& евро & евро & евро & евро перейти(буфера[<цвет шрифта="#800080">1],результат[<цвет шрифта="#800080">1] прикинь)
& евро & евро и конец
<б>конец
<б>функции TString.Строчные: <б>строка
<б>начинается
& евро & евро в результате := модуля приведет.Нижний регистр( буфер )
<б>конец
<б>функции TString.Средние(<б>константный Астарт счет: целое число): <б>строка
<б>начинается
& евро & евро в результате := копировать(буфер, Астарт, счетов и депозитов)
<б>конец
<б>функции TString.Справа(Количество: целое число): <б>строка
<б>начинается
& евро & евро, если Количество > Длина <б>то есть
& евро & евро & евро & евро в результате := <цвет шрифта="#800000">"и
& евро & евро <б>еще начинается

и & евро & евро & евро & евро в системе.Обновляет(результат, счет)
& евро & евро & евро & евро перейти(буфер[Длина -(Количество-<цвет шрифта="#800080">1)],результат[<цвет шрифта="#800080">1] прикинь) в
& евро & евро и конец
<б>конец
<б>процедура TString.SetAsPChar(<б>константный значение: PChar)
<б>начинается
& евро & евро буфера := значение
<б>конец
<б>процедура TString.SetCharacter(<б>константный Индекс: целое число <б>константный значение: Тип char)
<б>начинается
& евро & евро, если не отсутствуют <б>то есть
& евро & евро & евро & евро, если (Индекс < Длина) и и (стоимость <> GetCharacter(Индекс)) <б>то есть
& евро & евро & евро & евро & евро & евро буфер[Индекс] := значение
<б>конец
<б>процедура TString.Обновляет(<б>константный значение: целое число)
<б>начинается
& евро & евро в системе.Обновляет( буфер, значение )
<б>конец
<б>функции TString.Как startswith(<б>константный строка: <б>строка
& евро & евро <б>константный с учетом регистра: Тип boolean): boolean значение
<б>начинается
& евро & евро, если с учетом регистра <б>то есть
& евро & евро & евро & евро в результате := AnsiSameStr(строка, левый(системы.Длина(строка)))
& евро & евро <б>еще и
& евро & евро & евро & евро в результате := AnsiSameText(строка,левый(системы.Длина(строка)))
<б>конец
<б>процедура TString.Инструкция truncate(<б>константный NewLength: integer), которое
<б>начинается
& евро & евро Длина := NewLength
<б>конец
<б>функции TString.Верхний регистр: <б>строка
<б>начинается
& евро & евро в результате := модуля приведет.Верхний регистр( буфер )
<б>конец
<б>функции TString.Содержит(<б>константный Подстрока: <б>строка
& евро & евро <б>константный с учетом регистра: Тип boolean): boolean значение
<б>начинается
& евро & евро в результате := найти(Подстрока, <цвет шрифта="#800080">1, с учетом регистра) > <цвет шрифта="#800080">0
<б>конец
<б>процедура TString.Вставить(<б>константный Индекс: целое число <б>константный строка: <б>строка в)
<б>начинается
& евро & евро в системе.Вставить(строка, буфер, указатель)
<б>конец
<б>функции TString.Добавить(<б>константный значение: <б>строка): <Б>строка
<б>начинается
& евро & евро Вставить(Длина, значение) и
& евро & евро результат := буфер
<б>конец
<б>функции TString.Добавить(<б>константный значение: <б>строка): <Б>строка
<б>начинается
& евро & евро Вставить(<цвет шрифта="#800080">1, значение) и
& евро & евро результат := Буфер
<б>конец
<б>функции TString.Удалить(<б>константный Индекс, Длина: целое число): текст строка
<б>начинается
& евро & евро в результате := буфер в
& фитоэстрогены & мочекаменная удалить(результат, указатель, Длина)
<б>конец
<б>функции TString.Ечисло: логическое
<б>вар
& евро & евро мне: целое число
<б>начинается
& евро & евро результат := истина
и & покупка & покупка для мне := <цвет шрифта="#800080">1 идля Длина <б>сделать
& евро & евро & евро & евро, если не (GetCharacter(я) В [<цвет шрифта="#800000">'0'..<цвет шрифта="#800000">'9', <цвет шрифта="#800000">' ',<цвет шрифта="#800000">'-',<цвет шрифта="#800000">'.']) <б>то есть
& евро & евро & евро & мочекаменная начинается
& евро & евро & евро & евро & евро & евро в результате := Ложь
и & евро & евро & евро & евро & евро & евро выход есть
& евро & евро & евро & евро и конец
<б>конец
<б>функции TString.InternalInteger(<б>вар переменной: целое число <б>константный HighBound, что
& покупка & покупка LowBound: целое): логическое
<б>вар
& евро & евро код ошибки: целое число
<б>начинается
& евро & евро в результате := Ложь
в & евро & евро при отсутствуют или не Ечисло <б>тогда выход есть
& евро & евро Вал(буфер переменной, код ошибки), что
& евро & евро результат := (код ошибки = <цвет шрифта="#800080">0) и и ((переменной >= LowBound) <б>и (переменная <= HighBound))
<б>конец
<б>функции TString.GetAsInteger: целое число
<б>начинается
& евро & евро InternalInteger(результат, высокая(целое число), низкий(целое число))
<б>конец
<б>процедура TString.SetAsInteger(<б>константный значение: целое число)
<б>начинается
& евро & евро на ул.(значение буфера)
<б>конец
<б>функции TString.GetAsWord: слово
<б>вар
& евро & евро Тмп: число
<б>начинается
& евро & евро, если InternalInteger(Тмп <цвет шрифта="#800080">0, <цвет шрифта="#800080">65535) <б>то есть
& евро & евро & евро & евро в результате := Тмп
& евро & евро <б>еще и
& евро & евро & евро & евро в результате := <цвет шрифта="#800080">0
<б>конец
<б>процедура TString.SetAsWord(<б>константный значение: слово)
<б>начинается
& евро & евро на ул.(значение буфера)
<б>конец
<б>функции TString.GetWordSeparators: TCharSet
<б>начинается
& евро & евро в результате := FWordSeparators
<б>конец
<б>процедура TString.SetWordSeparators(<б>константный значение: TCharSet)
<б>начинается
& евро & евро, если FWordSeparators <> значение <б>то есть
& евро & евро & евро & евро FWordSeparators := значение
<б>конец
<б>функции TString.InternalWord(<б>константный Индекс: целое число): текст строка
<б>вар
& евро & евро , и я,J,Н: число
и & евро & евро Л: длинное и
& евро & евро П: PChar
& евро & евро а: Логическое
<б>начинается
& евро & евро, если (Индекс <= <цвет шрифта="#800080">0) и тут на выходе
& евро & евро Л := Длина
& евро & евро П := указатель(буфер), что
& евро & евро а := ложь
и & евро & евро Н := <цвет шрифта="#800080">1
& евро & евро для мне := <цвет шрифта="#800080">1 идля Л <Б>сделать
& покупка & покупка начинается
& евро & евро & евро & евро, если не (р^ В WordSeparators) <б>то есть
& евро & евро & евро & евро начинается
& евро & евро & евро & евро & евро & евро, если не <Б>то есть
& евро & евро & евро & евро & евро & евро начинается
& евро & евро & евро & евро & евро & евро & евро & евро, если п = Индекс <б>то есть
& фитоэстрогены & евро & евро & евро & евро & евро & евро & мочекаменная начинается
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро Л := Л <цвет шрифта="#800080">1
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро Инк(П) И
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро для Д := Я <цвет шрифта="#800080">1 идля Л <Б>сделать
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро начинается
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро, если п^ В WordSeparators <б>то есть
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & мочекаменная начинается
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро В Н := Дж и
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро разрыва
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро и конец
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & евро & мочекаменная Инк(П)
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро и конец
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро результат := копировать(буфер,я,Н-Я) в
& евро & евро & евро & евро & евро & евро & евро & евро & евро & евро выход есть
& евро & евро & евро & евро & евро & евро & евро & евро и конец
& евро & евро & евро & евро & евро & евро & евро & евро а := Правда
& евро & евро & евро & евро & евро & евро & евро & евро Инк(Н) в
& евро & евро & евро & евро & евро & евро и конец
& евро & евро & евро & евро и конец
и & евро & евро & евро & евро-нибудь, если <б>то есть
& евро & евро & евро & евро & евро & евро в себя := Ложь
и & евро & евро & евро & евро Инк(П) И
& евро & евро и конец
& евро & евро результат := <цвет шрифта="#800000">"
<б>конец
<б>функции TString.GetWordCount: целое число
& евро & евро и функции в CountOfWords(<б>константный ы: <б>строка <Б>константный разделители: TCharSet): Целое число
& евро & евро и анм
& евро & евро & евро & евро & евро & евро & евро & евро <цвет шрифта="#800080">нажимаем и ebx
& евро & евро & евро & евро & евро & евро & евро & евро тест ЕАХ,ЕАХ
& евро & евро & евро & евро & евро & евро & евро & евро ЙЕ @@д0
& евро & евро & евро & евро & евро & евро & евро & евро мова ЕКБ,[в EAX-4], что
& евро & евро & евро & евро & евро & евро & евро & евро мову и ebx,ЕАХ
& евро & евро & евро & евро & евро & евро & евро & мочекаменная декабря ЕКБ
& евро & евро & евро & евро & евро & евро & евро & евро ЯШ @@КЗ
& евро & евро & евро & евро & евро & евро & евро & евро пуш ЭСИ
& евро & евро & евро & евро & евро & евро & евро & евро операции xor ЕАХ,ЕАХ
& евро & евро & евро & евро & евро & евро & евро & евро СПМ @@lp2
с@@Ив: вкл ЕАХ
& евро & евро & евро & евро & евро & евро & евро & мочекаменная декабря ЕКБ
& евро & евро & евро & евро & евро & евро & евро & евро ЯШ @@бывшая
@@лп1: MOVZX ЭСИ байт Для ptr [ebx потенциально ЕКБ]
& евро & евро & евро & евро & евро & евро & евро & мочекаменная БТ [жизни],Еси есть
& евро & евро & евро & евро & евро & евро & евро & евро ЙК @@ПХ
& евро & евро & евро & евро & евро & евро & евро & мочекаменная декабря ЕКБ
& евро & евро & евро & евро & евро & евро & евро & евро ФАЮ @@лп1
с@@экс: Поп-ЭСИ
& евро & евро & евро & евро & евро & евро & евро & евро поп и ebx
& евро & евро & евро & евро & евро & евро & евро & евро РЕТ
с@@lp2: MOVZX ЭСИ байт Для ptr [ebx потенциально ЕКБ]
& евро & евро & евро & евро & евро & евро & евро & евро БТ [жизни],Еси есть
& евро & евро & евро & евро & евро & евро & евро & евро к jnc @@Ив
с@@ПХ: Декабря ЕКБ
& евро & евро & евро & евро & евро & евро & евро & евро ФАЮ @@lp2
& евро & евро & евро & евро & евро & евро & евро & евро поп-ЭСИ
& евро & евро & евро & евро & евро & евро & евро & евро поп и ebx
& евро & евро & евро & евро & евро & евро & евро & евро РЕТ
с@@КЗ: Операции xor ЕАХ,ЕАХ
с@@д0: поп регистр ebx
& евро & евро в конце
<б>начинается
& евро & евро если нет ... отсутствуют <б>то есть
& покупка & покупка начинается
& евро & евро & евро & евро в результате := <цвет шрифта="#800080">0
& евро & евро & евро & евро выход есть
& евро & евро и конец
& евро & евро результат := CountOfWords(буфер, FWordSeparators)
<б>конец
<б>функции TString.GetRefCount: целое число
<б>вар
& евро & евро П: указатель
<б>начинается
& евро & евро в результате := <цвет шрифта="#800080">0
& покупка & покупка при указатель(буфер) <> <б>шь то, что
& покупка & покупка начинается
& евро & евро & евро & евро р := указатель(целое число(указатель(буфера)) - <цвет шрифта="#800080">8) и
& евро & евро & евро & евро результат := целое число(П^) в
& евро & евро и конец
<б>конец
<б>конец.


и