Delphi String Functs

использует 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(