Функция заголовка Rightstr (const atext: string; const acount: integer): string;
Функция возвращает символы Acount в правой стороне строки ATEXT
Описание Rightstr ('123456', 3) = '456'
Обратитесь к функциональной системе.copy
Пример Edit3.text: = rightstr (edit1.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка Midstr (const atext: String; const astart, acount: integer): string;
Функция возвращает строку atext acount символы, начиная с Astart
Это означает копирование
Обратитесь к функциональной системе.copy
Пример Edit3.Text: = midstr (edit1.text, spinedit1.value, spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка SearchBuf (buf: pchar; buflen: Integer; selstart, sellength: integer;
Функция возвращает первую поисковую позицию указателя
Объясните, что эта функция часто используется для поиска строк в тексте
Ссылка <null>
пример
/////////// начинается searchbuf
Function SearchEdit (editControl: tcustomedit; const searchString: String;
SYSKOPENS: TSTRINGSECHOPTIONS;
вар
Буфер, P: pchar;
Размер: слово;
Начинать
Результат: = false;
if (длина (SearchString) = 0) затем выходит;
Размер: = editControl.getTextlen;
if (size = 0), затем выйдите;
Буфер: = stralloc (размер + 1);
пытаться
EditControl.getTextBuf (буфер, размер + 1);
P: = SearchBuf (буфер, размер, editControl.Selstart, editControl.Sellength,
SearchString, SearchOptions);
Если p <> nil, то начните
EditControl.Selstart: = P - Buffer;
EditControl.Sellength: = Length (SearchString);
Результат: = true;
конец;
Окончательно
Strdispose (Buffer);
конец;
конец;
Процедура tform1.button1click (отправитель: tobject);
вар
SypeCoptions: TStringsearchoptions;
Начинать
SYSKOPENTS: = [];
Если Fackbox1. Провернул, тогда
Включить (SypeCoptions, Sodown);
Если Fackbox2. Провернул, тогда
Включить (SysePtions, Somatchcase);
Если CHACKBOX3. Провернул, тогда
Включить (SysePtions, Sowholeword);
Searchedit (memo1, edit1.text, searchoptions);
Memo1.setfocus;
конец;
/////////// end searchbuf
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка Soundex (const atext: string; alength: tsoundexlength = 4): string;
Функция возвращает строку обнаружения
Объяснение: Согласно методу обнаружения (Soundex), вы можете найти пересекающуюся строку;
Ссылка <null>
Пример редактирования2.text: = soundex (edit1.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка SoundExint (const atext: string; alength: tsoundexintlength = 4): целое число;
Функция возвращает целое число обнаружения
Это означает, что чем больше значение Alength, тем выше точность декодирования
Ссылка <null>
Пример spinedit2.value: = soundexint (edit1.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка Decodesoundexint (Avalue: Integer): String;
Функция возвращает декодирование целого числа зонда
Описание decodesoundexint (soundexint ('hello')) эквивалентно Soundex («Привет»)
Ссылка <null>
Пример Edit2.text: = decodesoundexint (spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
First Function SoundExword (const atext: String): word;
Функция возвращает значения для обнаружения текста
Указывает, что нет параметров, которая была зафиксирована до 4
Ссылка <null>
Пример spinedit2.value: = soundexword (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция Decodesoundexword (Avalue: Word): String;
Функция возвращает декодирование значения обнаружения текста
Описание decodesoundexword (soundexword ('hello')) эквивалентно Soundex («Привет»)
Ссылка <null>
Пример редактирования2.text: = decodesoundexword (spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка SoundExsImilal (const atext, aother: string; alength: tsoundexlength = 4): логический;
Функция возвращает, одинаковы ли строки зонда двух строк
Описание Результат: = Soundex (atext, alength) = soundex (Aother, alength)
Ссылка <null>
Пример флажки1.checked: = soundexsimilar (edit1.text, edit2.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка SoundExcompare (const atext, aother: string; alength: tsoundexlength = 4): целое число;
Функция возвращает результат сравнения двух строк для обнаружения строк
Описание Результат: = ANSICOMPAREST (Soundex (atext, alength), Soundex (Aother, alength))
Справочная функция sysutils.ansicomparest
Пример spinedit2.value: = soundexcompare (edit1.text, edit2.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
First Function SoundExproc (const atext, aother: string): boolean;
Функция Call SoundexSimilar, чтобы вернуть струны зонда двух строк.
Описание значения по умолчанию системной переменной ansiresemblesproc
Справочная функция strutils.ansiresemblestext
Пример [var ansiresemblesproc: tcomparetextproc = soundexproc;]