использует Strutils;
Первая функция ansiresemblestext (const atext, aother: string): boolean;
$ [Strutils.pas
Функция возвращает, похожи ли две строки
Описание Анси (Американский национальный институт стандартов) Американский национальный институт стандартов;
Справочная функция strutils.soundexproc;
Пример флажки1. Проверка: = ansiresemblestext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция ansicontainstext (const atext, asubtext: string): boolean;
$ [Strutils.pas
Функция возвращает, содержит ли строка ATEXT подстроение ASUBTEXT
Указывает на случай нечувствительного
Справочная функция strutils.ansiuppercase;
Пример флажки1.checked: = ansicontainstext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция ansistartStext (const asubtext, atext: string): boolean;
$ [Strutils.pas
Функция возвращает, начинается ли строка ATEXT с подстроения ASUBTEXT
Указывает на случай нечувствительного
Справочная функция Windows.comparesting
Пример флажки1.checked: = ansistartStext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция ansiendstext (const asubtext, atext: string): boolean;
$ [Strutils.pas
Функция возвращает, заканчивается ли строка ATEXT подстроением ASUBTEXT
Указывает на случай нечувствительного
Справочная функция Windows.comparesting
Пример флажки1. Проверка: = ansiendstext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция ansireplacetext (const atext, afromtext, atotext: string):
Строка;
Функция возвращает результат замены подстроения AFROMXTEXT на подстроку ATOTEXT в строке ATEXT
Указывает на случай нечувствительного
Справочная функция sysutils.stringreplace;
Пример Edit4.text: = ansireplacetext (edit1.text, edit2.text, edit3.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция ansimatchtext (const atext: string; const avalues: массив
Строка): логический; $ [Strutils.pas
Функция возвращает, включена ли строка ATEXT в Avalues
Указывает на случай нечувствительного
Справочная функция strutils.ansiindextext
Пример флажки1.checked: = ansimatchtext (edit1.text, ['a1', 'a2', 'a3',
'A4']);
━━━━━━━━━━━━━━━━━━━━━
Первая функция ansiindextext (const atext: string; const avalues: массив
Строка): целое число;
Функция возвращает положение строки ATEXT в Avalues массива строковых массивов
Указывает, что это нечувствителен к случаям;
Справочная функция sysutils.ansisametext
Пример spinedit1.value: = ansiindextext (edit1.text, ['a1', 'a2', 'a3', 'a4']);
━━━━━━━━━━━━━━━━━━━━━
Первая функция ansicontainsstr (const atext, asubtext: string): boolean;
$ [Strutils.pas
Функция возвращает, содержит ли строка ATEXT подстроение ASUBTEXT
Описание, чувствительное к делу
Справочная функция strutils.Ansipos
Пример флажки1. Проверка: = ansicontainsstr (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция Ansistartsstr (const asubtext, atext: string): boolean;
$ [Strutils.pas
Функция возвращает, начинается ли строка ATEXT с подстроения ASUBTEXT
Описание, чувствительное к делу
Справочная функция sysutils.ansisamest
Пример флажки1. Проверка: = ansistartsstr (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция Ansiendsstr (const asubtext, atext: string): boolean;
$ [Strutils.pas
Функция возвращает, заканчивается ли строка ATEXT подстроением ASUBTEXT
Описание, чувствительное к делу
Справочная функция sysutils.ansisamest
Пример флажки1. Проверка: = ansiendsstr (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция Ansireplacestr (const atext, afromtext, atotext: string):
Строка;
Функция возвращает результат замены подстроения AFROMXTEXT на подстроку ATOTEXT в строке ATEXT
Описание, чувствительное к делу
Справочная функция sysutils.stringreplace;
Пример Edit4.text: = ansireplacest (edit1.text, edit2.text, edit3.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция ansimatchstr (const atext: string; const avalues: массив
Строка): логический; $ [Strutils.pas
Функция возвращает, включена ли строка ATEXT в Avalues
Описание, чувствительное к делу
Справочная функция strutils.ansiindexstr
Пример CHACKBOX1.Checked: = ansimatchstr (edit1.text, ['a1', 'a2', 'a3',
'A4']);
━━━━━━━━━━━━━━━━━━━━━
Первая функция ansiindexstr (const atext: string; const avalues: массив
Строка): целое число;
Функция возвращает положение строки ATEXT в Avalues массива строковых массивов
Описание, чувствительное к делу
Справочная функция sysutils.ansisamest
Пример spinedit1.value: = ansiindexstr (edit1.text, ['a1', 'a2', 'a3', 'a4']);
━━━━━━━━━━━━━━━━━━━━━
Первая функция Dupestring (const atext: String; Acount: Integer): String;
$ [Strutils.pas
Функция возвращает реплики acount строки atext
Описание возвращает '', когда Acount 0
Обратитесь к функциональной системе. SetLength
Пример Edit3.text: = Dupestring (edit1.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка (const atext: string): string;
Функция возвращает обратный порядок строки atext
Описание ReverseString ('1234') = '4321'
Обратитесь к функциональной системе. SetLength
Пример Edit3.Text: = reversEringing (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
First Function Stuffstring (const atext: String; Astart, Alength: Cardinal;
const asubtext: string): string;
Функция возвращает вложенные строки
Описание Astart: начало гнезда;
Обратитесь к функциональной системе.copy
Пример Edit3.text: = fuTherString (Edit1.text, Spinedit1.value, spinedit2.value,
Edit2.text);
━━━━━━━━━━━━━━━━━━━━━
First Function randomfrom (const avalues: массив строки): string;
$ [Strutils.pas
Функция случайным образом возвращает элемент в лавинах массива строковых массивов
Объясните, что рекомендуется выполнить рандомизацию перед
Справочная функциональная система
Пример рандомизирует;
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка ifthen (Avalue: Boolean; Const Atrue: String; afalse: String =
'): String;
Функция возвращает указанную логическую строку
Ifthen (true, 'yes', 'no') = 'yes'; ifthen (false, 'yes', 'no') = 'нет'
Ссылка <null>
Пример Edit3.text: = ifthen (fackbox1.checked, edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка LeftStr (const atext: String; const acount: Integer): String;
$ [Strutils.pas
Функция возвращает символы Acount в левой части строки ATEXT
Описание LeftStr ('123456', 3) = '123'
Обратитесь к функциональной системе.copy
Пример Edit3.Text: = LeftStr (Edit1.text, Spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Первая функция rightstr (const atext: string; const acount: integer): string;
$ [Strutils.pas
Функция возвращает символы Acount в правой стороне строки ATEXT
Описание Rightstr ('123456', 3) = '456'
Обратитесь к функциональной системе.copy
Пример Edit3.text: = rightstr (edit1.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
Первая функция Midstr (const atext: string; const astart, acount: integer):
Строка;
Функция возвращает строку atext acount символы, начиная с Astart
Это означает копирование
Обратитесь к функциональной системе.copy
Пример Edit3.Text: = midstr (edit1.text, spinedit1.value, spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
First Function SearchBuf (BUF: PCHAR; BUFLEN: Integer; Selstart, Sellength:
Integer;
Pchar;
Функция возвращает первую поисковую позицию указателя
Объясните, что эта функция часто используется для поиска строк в тексте
Ссылка <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):
Строка;
Функция возвращает строку обнаружения
Объяснение: Согласно методу обнаружения (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);
━━━━━━━━━━━━━━━━━━━━━
First Function SoundexSimilal (const atext, aother: string; alength:
Tsoundexlength = 4): логический; $ [strutils.pas
Функция возвращает, одинаковы ли строки зонда двух строк
Описание Результат: = Soundex (atext, alength) = soundex (Aother, alength)
Ссылка <null>
Пример флажки1.cecked: = soundexsimilar (edit1.text, edit2.text,
Spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
First Function 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;
$ [Strutils.pas
Функция Call SoundexSimilar, чтобы вернуть струны зонда двух строк.
Описание значения по умолчанию системной переменной ansiresemblesproc
Справочная функция strutils.ansiresemblestext
Пример [var ansiresemblesproc: tcomparetextproc = soundexproc;]
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка (Const S: String): PSTRING;
Функция возвращает новый адрес указателя строки
Описание вернуть Nullstr, когда строка S пуста
Обратитесь к системе процедур.new
пример
/////////////// Begin Newstr, Disposestr
Процедура tform1.button1click (отправитель: tobject);
вар
P: Pstring;
Начинать
P: = Newstr (edit1.text);
Edit2.text: = p^;
Disposestr (P);
конец;
/////////////// End Newstr, Disposestr
━━━━━━━━━━━━━━━━━━━━━
Первая процедура Disposest (P: Pstring);
Функция выпуска строки указатель P Ресурс
Описание Используйте с Newstr
Обратитесь к системе процедур.
Пример <см. Выше, см. Ниже>
━━━━━━━━━━━━━━━━━━━━━
Первая процедура ussystr (var p: pstring; const s: string);
$ [Sysutils.pas
Функция обновлений строки s к указателю строки p
Описание ресурсы, которые ранее были указателями строк, выпущенные при обновлении значений
Справочная функция sysutils.newstr; function sysutils.disposestr
пример
/////////////// begin assignstr
Процедура tform1.button1click (отправитель: tobject);
вар
P: Pstring;
Начинать
P: = nil;
Ussytstr (p, edit1.text);
Edit2.text: = p^;
Disposestr (P);
конец;
/////////////// end назначение
━━━━━━━━━━━━━━━━━━━━━
Первая процедура AppendStr (var dest: String; const S: String);
$ [Sysutils.pas
Функция Добавление строки s после строки dest
Описание эквивалентно DEST: = DEST + S;
Ссылка <null>
пример
/////////////// начинать appendstr
Процедура tform1.button1click (отправитель: tobject);
вар
S: String;
Начинать
S: = edit2.text;
Appendstr (s, edit1.text);
Edit2.text: = s;
конец;
///////////// Cond AppendStr
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка (Const S: String): String;
Функция возвращает форму капитала строки
Указывает, что символы, не являющиеся LowerCase, не обрабатываются
См.
Пример редактирования2.text: = uppersact (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция нижняя часть (const s: string): string;
Функция возвращает более строчную форму строки s
Указывает, что некапсулярные символы не обрабатываются
См.
Пример редактирования2.text: = строчный (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка CompareStrest (const S1, S2: String): Integer;
Функция возвращается, чтобы сравнить два символа
Описание, когда S1> S2 возвращает значение> 0;
Ссылка <null>
Пример spinedit1.value: = CompareStrest (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Сравнение первой функции (P1, P2: Pointer; Длина: целое число): логическое;
Ассемблер;
Функция возврата сравнения двух указателей памяти
Описание Comparemem (pchar ('12a'), pchar ('12c'), 2) = true; comparemem (pchar ('12a'),
Pchar ('12c'), 3) = false
Ссылка <null>
Пример флажки1. Проверка: = сравнение (self, form1, 8);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка Comparetext (const S1, S2: String): Integer;
Функция возвращается, чтобы сравнить две строки
Указывает на случай нечувствительного
Ссылка <null>
Пример spinedit1.value: = comparetext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка SameText (const S1, S2: String): Boolean;
Функция возвращает, равны ли две строки
Указывает на случай нечувствительного
Ссылка <null>
Пример флажки1.checked: = sametext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция ansiuppercase (const s: string): string;
Функция возвращает форму капитала строки
Описание ANSI (Американский национальный институт стандартов) Американский институт национальных стандартов;
Справочная функция Windows.charupperbuff
Пример Edit2.text: = ansiuppercase (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция AnsilowerCase (const S: String): String;
Функция возвращает более строчную форму строки s
Указывает, что некапсулярные символы не обрабатываются
Справочная функция Windows.CharlowerBuff
Пример Edit2.text: = ansilowercase (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка ANSICOMPAREST (const S1, S2: String): Integer;
Функция обратное сравнение двух строк
Описание, когда S1> S2 возвращает значение> 0;
Справочная функция Windows.comparesting
Пример spinedit1.value: = ansicomparest (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка Ansisamest (const S1, S2: String): Boolean;
Функция возвращает, равны ли две строки
Описание, чувствительное к делу
Справочная функция sysutils.ansicomparest
Пример флажки1. Проверка: = ansisamest (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка ANSICOMPARETEXT (const S1, S2: String): Integer;
Функция обратное сравнение двух строк
Описание, когда S1> S2 возвращает значение> 0;
Справочная функция Windows.comparesting
Пример spinedit1.value: = ansicomParetext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка ANSISAMETEXT (const S1, S2: String): Boolean;
Функция возвращает, равны ли две строки
Указывает на случай нечувствительного
Справочная функция sysutils.ansicomparetext
Пример флажки1. Проверка: = ansisametext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка ANSISTRCOMP (S1, S2: PCHAR): целое число;
Функция возвращается, чтобы сравнить две строки указателя
Описание, когда S1> S2 возвращает значение> 0;
Справочная функция System.comparestring
Пример spinedit1.value: = ansistrompcomp (pchar (edit1.text), pchar (edit2.text))
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка Ansistricomp (S1, S2: Pchar): целое число;
Функция возвращается, чтобы сравнить две строки указателя
Описание, когда S1> возвращает значение> 0;
Справочная функция Windows.comparesting
Пример spinedit1.value: = ansistricomp (pchar (edit1.text), pchar (edit2.text))
━━━━━━━━━━━━━━━━━━━━━
Первая функция ANSISTRLCOMP (S1, S2: PCHAR; MAXLEN: CARDINAL): целое число;
$ [Sysutils.pas
Функция возвращается, чтобы сравнить две указательные строки, указанные
Описание, когда S1> возвращает значение> 0;
Справочная функция Windows.comparesting
Пример spinedit1.value: = ansistrlcomp (pchar (edit1.text), pchar (edit2.text),
Spinedit2.value)
━━━━━━━━━━━━━━━━━━━━━
Первая функция Ansistrlicomp (S1, S2: pchar; Maxlen: Cardinal): целое число;
$ [Sysutils.pas
Функция возвращается, чтобы сравнить две указательные строки, указанные
Описание, когда S1> S2 возвращает значение> 0;
Справочная функция Windows.comparesting
Пример spinedit1.value: = ansistrlicomp (pchar (edit1.text), pchar (edit2.text),
Spinedit2.value)
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка ANSISTRLOWER (STR: PCHAR): PCHAR;
Функция возвращает строку указателя строка
Указывает, что некапсулярные символы не обрабатываются
Справочная функция Windows.Charlower
Пример редактирования2.text: = ansistrolower (pchar (edit1.text));
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка Ansistrupper (Str: pchar): pchar;
Функция возвращает указатель строки капитализации
Указывает, что символы, не являющиеся LowerCase, не обрабатываются
Справочная функция Windows.charupper
Пример Edit2.text: = ansistrupper (pchar (edit1.text));
━━━━━━━━━━━━━━━━━━━━━
Первая функция Ansilastchar (const S: String): pchar;
Функция возвращает последнюю символ указателя строки s
Описание Когда строка S является пустой строкой, возвращается нулевый указатель.
Справочная функция sysutils.bytetype
Пример Edit2.text: = ansilastchar (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка ANSISTRASTCHAR (P: PCHAR): PCHAR;
Функция возвращает последний символ указателя строки указателя p
Описание Когда строка P является пустым указателем, он возвращает пустой указатель.
Справочная функция sysutils.bytetype
Пример Edit2.text: = ansilastchar (pchar (edit1.text));
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка WideUppercase (Const S: WideString): VideString;
Функция возвращает капитализацию двойной строки
Описание Widechar Двойные символы
Справочная функция windows.charupperbuffw
Пример Edit2.text: = WideUppercase (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция WideLowerCase (Const S: WideString): VideString;
Функция возвращает строчную форму двойной строки
Это означает, почему я не могу проверить это
Справочная функция Windows.CharlowerBuffw
Пример Edit2.text: = WideLowerCase (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция widecomparest (const s1, s2: widestring): целое число;
$ [Sysutils.pas
Сравнение возврата функции двух строк двойного байта
Описание, когда S1> S2 возвращает значение> 0;
Справочная функция Windows.comparestringw
Пример spinedit1.value: = widecomparest (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция WideSamest (const S1, S2: VideString): Boolean;
Функция возвращает, одинаковы ли две двойные строки
Описание, чувствительное к делу
Справочная функция sysutils.widecomparest
Пример флажки1. проверить: = widesamest (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция widecomparetext (const s1, s2: widestring): целое число;
$ [Sysutils.pas
Сравнение возврата функции двух строк двойного байта
Описание, когда S1> S2 возвращает значение> 0;
Справочная функция Windows.comparestringw
Пример spinedit1.value: = widecomparetext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция WidesameText (const S1, S2: VideString): Boolean;
$ [Sysutils.pas
Функция возвращает, одинаковы ли две двойные строки
Указывает на случай нечувствительного
Справочная функция sysutils.widecomparetext
Пример флажки1.checked: = widesametext (edit1.text, edit2.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка (Const S: String): String;
Первая функциональная отделка (Const S: WideString): VideString;
$ [Sysutils.pas
Функция возвращается, чтобы удалить левый и правый символы строки s
Персонажи, которые указывают, что менее #32 считаются невидимыми символами
Обратитесь к функциональной системе.copy
Пример Edit2.text: = trim (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка Trimleft (const S: String): String;
First Function Trimleft (const S: WideString): VideString;
$ [Sysutils.pas
Функция возвращается, чтобы удалить невидимые символы слева от строки s
Персонажи, которые указывают, что менее #32 считаются невидимыми символами
Обратитесь к функциональной системе.copy
Пример Edit2.text: = trimleft (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка Trimright (const S: String): String;
Первая функция Trimright (const S: WideString): VideString;
$ [Sysutils.pas
Функция возвращается, чтобы удалить невидимые символы справа от строки s
Персонажи, которые указывают, что менее #32 считаются невидимыми символами
Обратитесь к функциональной системе.copy
Пример Edit2.text: = trimright (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка COTEDSTR (Const S: String): String;
Функция возвращает выражение строки S в Pascal
Объяснение: Одна единственная цитата в одной цитате будет преобразована в два
Обратитесь к системе процедур.
Пример редактирования2.text: = quotedstr (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция ansikotedstr (const s: string; quote: char): string;
$ [Sysutils.pas
Функция возвращает выражение строки S с помощью цитаты символов как кавычки
Описание Ansikotedstr («Привет» мир ',
'@') = '@hello "world@'; ansikotedstr ('hello' world ',' '') = '" hello "" world "' '' '
Справочная функция sysutils.ansistrscan
Пример Edit2.text: = ansikotedstr (edit1.text, '' ');
━━━━━━━━━━━━━━━━━━━━━
Первая функция ansiextractquotedstr (var src: pchar; Quote: char): String;
$ [Sysutils.pas
Функция возвращает исходную форму цитаты символов в виде кавычек
Это означает, что SRC остается неизменным, когда выражение является незаконным.
Справочная функция sysutils.ansistrscan
пример
/////////// начинается ansiextractquotedstr
Процедура tform1.button1click (отправитель: tobject);
вар
P: PCHAR;
Начинать
P: = pchar (edit1.text);
Edit2.text: = ansiextractquotedstr (p, '' ');
Edit3.text: = p;
конец;
/////////// end ansiextractquotedstr
━━━━━━━━━━━━━━━━━━━━━
First Function ansidequotedstr (const s: string; aquote: char): string;
$ [Sysutils.pas
Функция возвращает исходную форму аварийного персонажа в качестве кавычек
Когда выражение является незаконным, оно возвращает S
Справочная функция sysutils.ansiextractquotedstr
Пример Edit2.text: = ansidequotedstr (edit1.text, '' ');
━━━━━━━━━━━━━━━━━━━━━
First Function Регулируйте Breaks (const S: String; Style: ttextlinebreakstyle =
{$ Ifdef linux} tlbslf {$ endif} {$ ifdef mswindows} tlbscrlf {$ endif}):
Строка;
Функция возвращается, чтобы настроить сепаратор линии заданной строки в последовательность CR/LF
иллюстрировать
Регулирующие строки ('1'#13'2 '#13) =' 1 '#13#10'2'#13#10; Регулирование Breaks ('1'#10'2 '#10) =' 1 '#13#10 '2'#13#10
Справочная функция sysutils.strnextchar
Пример <null>
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка isvalidident (const eder: string): boolean;
Функция возвращает, является ли идентификатором строки правильным идентификатором
Описание Идентификатор :: Letters | Подчеркивает [буквы | Подчеркивает | Числа] ...
Ссылка <null>
Пример флажки1. Проверка: = isvalididident (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка InttoStr (значение: Integer): String;
Функция заголовка InttoStr (значение: Int64): String;
Функция возвращает целое значение для преобразования в строку
Описание формат ('%d', [значение])
Справочная функция sysutils.fmtstr
Пример Edit2.text: = inttoStr (spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
First Function InttoHex (значение: Integer; Digits: Integer): String;
$ [Sysutils.pas
First Function InttoHex (значение: Int64; цифры: целое число): string;
$ [Sysutils.pas
Функция возвращает целое число
Описание Параметр Цифры указывают минимальную ширину символа;
Справочная функция sysutils.fmtstr
Пример Edit2.text: = inttoHex (spinedit1.value, spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка strtoint (const s: string): integer;
Функция возвращает строку S, чтобы преобразовать в целое число
Объяснение: Исключение будет вызвано, когда строка выражается неинтегральной
Обратитесь к системе процедур.
Пример spinedit1.value: = strtoint (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция strtointdef (const s: string; default: Integer): Integer;
$ [Sysutils.pas
Функция возвращает строку S, чтобы преобразовать в целое число
По умолчанию возвращается, когда строка выражается неинтеграцией.
Обратитесь к системе процедур.
Пример spinedit1.value: = strtointdef (edit1.text, 0);
━━━━━━━━━━━━━━━━━━━━━
First Function Tristrtoint (const S: String; out Value: Integer): Boolean;
$ [Sysutils.pas
Функция возвращает, успешно ли преобразована строка S в целочисленное значение
Описание FALSE возвращается, когда строка выражается неинтемерным, а значение будет выходить как 0
Обратитесь к системе процедур.
пример
/////////// Begin Tristrtoint
Процедура tform1.button1click (отправитель: tobject);
вар
Я: целое число;
Начинать
Facebox1.Checked: = TryStrtoint (edit1.text, i);
Spinedit1.value: = i;
конец;
/////////// end tristrtoint
━━━━━━━━━━━━━━━━━━━━━
Функция заголовка strtoint64 (const s: string): int64;
Функция возвращает строку S, чтобы преобразовать ее в целое число шестидесяти четырех битов
Объяснение: Исключение будет вызвано, когда строка выражается не 64-битным целым числом.
Обратитесь к системе процедур.
Пример spinedit1.value: = strtoint64 (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
Первая функция strtoint64def (const s: string; const default: int64): int64;
$ [Sysutils.pas
Функция возвращает строку S, чтобы преобразовать ее в целое число шестидесяти четырех битов
По умолчанию возвращается, когда строка выражается не 64-битным целым числом.
Обратитесь к системе процедур.
Пример spinedit1.value: = strtoint64def (edit1.text, 0);
━━━━━━━━━━━━━━━━━━━━━
First Function TRISTRTOINT64 (const S: String; out Value: int64): boolean;
$ [Sysutils.pas
Функция возвращает, успешно ли строка S
Описание FALSE возвращается, когда строка выражается не шестьдесят-четвертьющевыми целым числом, а значение будет выходить как 0
Обратитесь к системе процедур.
пример
/////////// Begin Tristrtoint64
Процедура tform1.button1click (отправитель: tobject);
вар
Я: int64;
Начинать
Facebox1.cecked: = Tristrtoint64 (edit1.text, i);
Spinedit1.value: = i;
конец;
/////////// end tristrtoint64
━━━━━━━━━━━━━━━━━━━━━
Первая функция strtobool (const s: string): boolean;
Функция возвращает строку S, чтобы преобразовать ее в логическое значение
Объяснение персонаж вызовет исключения, когда он не будет выражен логически
Справочная функция sysutils.trystrtobool
例子CheckBox1.Checked := StrToBool(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部function StrToBoolDef(const S: string; const Default: Boolean):
Boolean; $[SysUtils.pas
功能返回字符串S转换成逻辑值
说明字符非逻辑表达时则返回默认值Default
参考function SysUtils.TryStrToBool
例子CheckBox1.Checked := StrToBoolDef(Edit1.Text, False);
━━━━━━━━━━━━━━━━━━━━━
首部function TryStrToBool(const S: string; out Value: Boolean): Boolean;
$[SysUtils.pas
功能返回字符串S转换成逻辑值Value是否成功
说明[注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正
参考function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var
SysUtils.FalseBoolStrs
пример
///////Begin TryStrToBool
Процедура tform1.button1click (отправитель: tobject);
вар
B: Boolean;
Начинать
SetLength(TrueBoolStrs, 2);
SetLength(FalseBoolStrs, 2);
TrueBoolStrs[0] := 'True';
FalseBoolStrs[0] := 'False';
TrueBoolStrs[1] := 'Yes';
FalseBoolStrs[1] := 'No';
CheckBox1.Checked := TryStrToBool(Edit1.Text, B);
CheckBox2.Checked := B;
конец;
///////End TryStrToBool
Прикрепил
///////Begin TryStrToBool
function TryStrToBool(const S: string; out Value: Boolean): Boolean;
function CompareWith(const aArray: array of string): Boolean;
вар
I: Integer;
Начинать
Result := False;
for I := Low(aArray) to High(aArray) do
if AnsiSameText(S, aArray[I]) then
Начинать
Result := True;
Перерыв;
конец;
конец;
вар
LResult: Extended;
Начинать
Result := TryStrToFloat(S, LResult);
if Result then
Value := LResult <> 0
еще
Начинать
Result := True; //修正处
VerifyBoolStrArray;
if CompareWith(TrueBoolStrs) then
Value := True
else if CompareWith(FalseBoolStrs) then
Value := False
еще
Result := False;
конец;
конец;
///////End TryStrToBool
━━━━━━━━━━━━━━━━━━━━━
首部function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;
$[SysUtils.pas
功能返回逻辑值B转换成字符串
说明BoolToStr(False, False)='0';BoolToStr(False, True)='-1'
参考var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs
例子Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked);
━━━━━━━━━━━━━━━━━━━━━
首部function LoadStr(Ident: Integer): string; $[SysUtils.pas
功能返回根据标识Ident的字符串资源
说明字符串资源是指程序的内部资源
参考function SysUtils.FindStringResource
例子Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0));
━━━━━━━━━━━━━━━━━━━━━
首部function FmtLoadStr(Ident: Integer; const Args: array of const):
string; $[SysUtils.pas
功能返回格式化的字符串资源
说明字符串资源是指程序的内部资源
参考function SysUtils.FmtStr;function SysUtils.FindStringResource
例子<NULL>;
━━━━━━━━━━━━━━━━━━━━━
首部function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas
功能返回指针字符串的长度
说明当指针字符串Str为nil时将触发异常
参考<NULL>
例子SpinEdit2.Value := StrLen(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部function StrEnd(const Str: PChar): PChar; $[SysUtils.pas
功能返回指针字符串的结尾
说明当指针字符串Str为nil时将触发异常
参考<NULL>
例子Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value;
━━━━━━━━━━━━━━━━━━━━━
首部function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal):
PChar; $[SysUtils.pas
功能返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中
说明Dest没有分配资源将触发异常s
参考function System.Move
пример
///////Begin StrMove
Процедура tform1.button1click (отправитель: tobject);
вар
vBuffer: PChar;
Начинать
vBuffer := '0123456789';
StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
Edit2.Text := vBuffer;
конец;
///////End StrMove
━━━━━━━━━━━━━━━━━━━━━
首部function StrCopy(Dest: PChar; const Source: PChar): PChar;
$[SysUtils.pas
功能返回将指针字符串Source复制到指针字符串Dest中
说明Dest应已经分配足够的空间非则将触发异常
参考<NULL>
пример
///////Begin StrCopy
Процедура tform1.button1click (отправитель: tobject);
вар
vBuffer: PChar;
Начинать
GetMem(vBuffer, Length(Edit1.Text) + 1);
StrCopy(vBuffer, PChar(Edit1.Text));
Edit2.Text := vBuffer;
FreeMem(vBuffer);
конец;
///////End StrCopy
━━━━━━━━━━━━━━━━━━━━━
首部function StrECopy(Dest:PChar; const Source: PChar): PChar;
$[SysUtils.pas
功能返回将指针字符串Source复制到指针字符串Dest中的结尾
说明可以连接指针字符串
参考<NULL>
пример
///////Begin StrECopy
Процедура tform1.button1click (отправитель: tobject);
вар
vBuffer: array[0..255] of Char;
Начинать
StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text));
Edit3.Text := vBuffer;
конец;
///////End StrECopy
━━━━━━━━━━━━━━━━━━━━━
首部function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal):
PChar; $[SysUtils.pas
功能返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中
说明Dest应已经分配足够的空间非则将触发异常
参考<NULL>
пример
///////Begin StrLCopy
Процедура tform1.button1click (отправитель: tobject);
вар
vBuffer: array[0..255] of Char;
Начинать
StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
Edit2.Text := vBuffer;
конец;
///////End StrLCopy
━━━━━━━━━━━━━━━━━━━━━
首部function StrPCopy(Dest: PChar; const Source: string): PChar;
$[SysUtils.pas
功能返回将指针字符串Source复制到指针字符串Dest中
说明StrLCopy(Dest, PChar(Source), Length(Source))
参考function SysUtils.StrLCopy
пример
///////Begin StrPCopy
Процедура tform1.button1click (отправитель: tobject);
вар
vBuffer: array[0..255] of Char;
Начинать
StrPCopy(vBuffer, PChar(Edit1.Text));
Edit2.Text := vBuffer;
конец;
///////End StrPCopy
━━━━━━━━━━━━━━━━━━━━━
首部function StrPLCopy(Dest: PChar; const Source: string; MaxLen:
Cardinal): PChar; $[SysUtils.pas
功能返回将字符串Source指定长度MaxLen复制到指针字符串Dest中
说明StrLCopy(Dest, PChar(Source), MaxLen)
参考function SysUtils.StrLCopy
пример
///////Begin StrPLCopy
Процедура tform1.button1click (отправитель: tobject);
вар
vBuffer: array[0..255] of Char;
Начинать
StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value);
Edit2.Text := vBuffer;
конец;
///////End StrPLCopy
━━━━━━━━━━━━━━━━━━━━━
首部function StrCat(Dest: PChar; const Source: PChar): PChar;
$[SysUtils.pas
功能返回连接指针字符串Dest和指针字符串Source
说明StrCopy(StrEnd(Dest), Source)
参考function SysUntils.StrCopy
пример
///////Begin StrCat
Процедура tform1.button1click (отправитель: tobject);
вар
vBuffer: array[0..255] of Char;
Начинать
StrPCopy(vBuffer, Edit1.Text);
StrCat(vBuffer, PChar(Edit2.Text));
Edit3.Text := vBuffer;
конец;
///////End StrCat
━━━━━━━━━━━━━━━━━━━━━
首部function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal):
PChar; $[SysUtils.pas
功能返回连接指针字符串Dest和指针字符串Source
说明[注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度
参考<NULL>
пример
///////Begin StrLCat
Процедура tform1.button1click (отправитель: tobject);
вар
vBuffer: array[0..255] of Char;
Начинать
StrPCopy(vBuffer, Edit1.Text);
StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value);
Edit3.Text := vBuffer;
конец;
///////End StrLCat
━━━━━━━━━━━━━━━━━━━━━
首部function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas
功能返回比较两个指针字符串
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异
参考<NULL>
例子SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas
功能返回比较两个指针字符串
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异
参考<NULL>
例子SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;
$[SysUtils.pas
功能返回比较两个指针字符串指定长度
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异
参考<NULL>
例子SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text),
SpinEdit2.Value)
━━━━━━━━━━━━━━━━━━━━━
首部function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;
$[SysUtils.pas
功能返回比较两个指针字符串指定长度
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异
参考<NULL>
例子SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text),
SpinEdit2.Value)
━━━━━━━━━━━━━━━━━━━━━
首部function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
功能返回在指针字符串Str搜索字符Chr第一个出现的地址
说明没有找到则返回空指针
参考<NULL>
例子Edit2.Text := StrScan(PChar(Edit1.Text), '*');
━━━━━━━━━━━━━━━━━━━━━
首部function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
功能返回在指针字符串Str搜索字符Chr最后一个出现的地址
说明没有找到则返回空指针
参考<NULL>
例子Edit2.Text := StrRScan(PChar(Edit1.Text), '*');
━━━━━━━━━━━━━━━━━━━━━
首部function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas
功能返回指针字符串Str2在Str1中第一个出现的地址
说明没有找到则返回空指针;StrPos('12345', '3') = '345'
参考<NULL>
例子Edit3.Text := StrPos(PChar(Edit1.Text), PChar(