Алгоритм в примерах не ахти
в фастскрипте достаточно функций для работы со строками
читайте fs.rtf
Строковые функции
function Length(s: String): Integer
Длина строки
function Copy(s: String; from, count: Integer): String
Возвращает подстроку из строки с заданной позиции заданной длины
function Pos(substr, s: String): Integer
Позиция подстроки в строке
procedure Delete(var s: String; from, count: Integer)
Удаляет подстроку из строки с заданной позиции заданной длины
procedure Insert(s: String; var s2: String; pos: Integer)
Добавляет первую строку ко второй строке
function Uppercase(s: String): String
Перевод строки в верхний регистр
function Lowercase(s: String): String
Перевод строки в нижний регистр
function Trim(s: String): String
Удаляет окружающие пробелы из строки
function NameCase(s: String): String
Перевод первого символа в верхний регистр
function CompareText(s, s1: String): Integer
Сравнение строк
function Chr(i: Integer): Char
Возвращает символ с заданным номером
function Ord(ch: Char): Integer
Возвращает номер заданного символа
procedure SetLength(var S: String; L: Integer)
Устанавливает длину строки
Вполне хватит для поиска подстроки для алгоритма без вложенного цикла
|