헤더 기능 RightStrs (const atext : string; const acount : Integer) : String [Strutils.pas
함수 문자열의 오른쪽에있는 Acount 문자를 반환합니다.
설명 rightstr ( '123456', 3) = '456'
기능 System.copy를 참조하십시오
예제 edit3.text : = rightstr (edit1.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
헤더 함수 midstr (const atext : string; const astart, acount : 정수) : String [strutils.pas
함수는 astart에서 시작하는 문자열 atext acount 문자를 반환합니다.
그것은 사본을 의미합니다
기능 System.copy를 참조하십시오
예제 edit3.text : = midstr (edit1.text, spinedit1.value, spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
헤더 기능 searchbuf (buf : pchar; buflen : integer; selstart, sellenger; searchString : string; 옵션 : tstringsearchoptions = [sodown]) : pchar;
기능은 첫 번째 검색 된 포인터 위치를 반환합니다
이 기능은 종종 텍스트에서 문자열을 검색하는 데 사용됩니다.
참조 <null>
예
///////// 시작 SearchBuf 시작
함수 searchEdit (editControl : tcustomedit; const searchString : String;
SearchOptions : tstringsearchoptions; findfirst : boolean = false) : 부울;
var
버퍼, P : PCHA;
크기 : 단어;
시작하다
결과 : = 거짓;
if (length (searchString) = 0) 그런 다음 종료;
크기 : = editControl.getTextLen;
if (size = 0) 그런 다음 종료하십시오.
버퍼 : = Stralloc (size + 1);
노력하다
editControl.getTextBuf (버퍼, 크기 + 1);
p : = searchBuf (버퍼, 크기, editControl.selstart, editControl.sellength,
SearchString, SearchOptions);
p <> nil이 시작되면 시작하십시오
editcontrol.selstart : = p- 버퍼;
editControl.sellength : = 길이 (SearchString);
결과 : = 참;
끝;
마지막으로
strdispose (버퍼);
끝;
끝;
절차 tform1.Button1click (sender : tobject);
var
SearchOptions : TStringsearchOptions;
시작하다
SearchOptions : = [];
CheckBox1.Checked 경우
포함 (SearchOptions, Sodown);
CheckBox2.Checked
포함 (searchOptions, somatchcase);
CheckBox3.Checked 경우
포함 (SearchOptions, SowHoleWord);
SearchEdit (memo1, edit1.text, searchOptions);
메모 1. 세트 포커스;
끝;
///////// 엔드 SearchBuf
━━━━━━━━━━━━━━━━━━━━━
헤더 기능 soundex (const atext : string; alength : tsoundexlength = 4) : String [Strutils.pas
함수 감지 문자열을 반환합니다
설명 : 감지 방법 (Soundex)에 따르면 교차점을 찾을 수 있습니다
참조 <null>
예제 edit2.text : = soundex (edit1.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
헤더 함수 soundexint (const atext : string; allength : tsoundexintlength = 4) : 정수;
함수 감지 정수를 반환합니다
그것은 Allength의 값이 클수록 디코딩 정확도가 높아짐을 의미합니다.
참조 <null>
예제 spinedit2.value : = soundexInt (edit1.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
헤더 함수 decodesoundexint (Avalue : Integer) : String [Strutils.pas
함수는 프로브 정수의 디코딩을 반환합니다
설명 decodesoundexint (soundexint ( 'Hello'))는 soundex ( 'hello')와 같습니다.
참조 <null>
예제 edit2.text : = decodesoundexint (spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
첫 번째 함수 soundExword (const atext : String) : Word [Strutils.pas
함수 감지 텍스트 값을 반환합니다
4로 고정 된 매개 변수 Alength가 없음을 나타냅니다.
참조 <null>
예제 spinedit2.value : = soundexword (edit1.text);
━━━━━━━━━━━━━━━━━━━━━
첫 번째 함수 decodesoundexword (avalue : word) : string [strutils.pas
함수 감지 텍스트 값의 디코딩을 반환합니다
설명 decodesoundexword (soundexword ( 'Hello'))는 soundex ( 'hello')와 같습니다.
참조 <null>
예제 edit2.text : = decodesoundexword (spinedit2.value);
━━━━━━━━━━━━━━━━━━━━━
헤더 기능 SoundexSimilar (const atext, aother : string; allength : tsoundexlength = 4) : boolean [strutils.pas
함수는 두 문자열의 프로브 문자열이 동일한 지 여부를 반환합니다.
설명 결과 : = soundex (atext, alength) = soundex (aother, allength)
참조 <null>
예제 CheckBox1.Checked : = soundExSimilar (edit1.text, edit2.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
헤더 함수 soundexcompare (const atext, aother : string; allength : tsoundexlength = 4) : $ [strutils.pas
함수는 문자열을 감지하기 위해 두 줄을 비교 한 결과를 반환합니다.
설명 결과 : = ansicomparest (soundex (atext, alength), soundex (aother, allength))
참조 함수 sysutils.ansicomparest
예제 spinedit2.value : = soundexCompare (edit1.text, edit2.text, spinedit1.value);
━━━━━━━━━━━━━━━━━━━━━
첫 번째 함수 SoundExproc (const atext, aother : string) : boolean [strutils.pas
함수 호출 SoundexSimilar는 두 문자열의 프로브 문자열을 반환합니다.
시스템 변수 ansiresemblesproc의 기본값에 대한 설명
참조 함수 strutils.ansiresemblestext
예 [var ansiresemblesproc : tcomparetextProc = soundexProc;]