Función de encabezado Rightstr (const ATEXT: String; Const Acount: Integer): String;
La función devuelve los caracteres de cuenta en el lado derecho de la cadena atext
Descripción Rightstr ('123456', 3) = '456'
Consulte el sistema de funciones. Copia
Ejemplo edit3.Text: = rightStr (edit1.Text, SpineDit1.Value);
━━━━━━━━━━━━━━━━━━━━━
Función de encabezado Midstr (const atext: string; const astart, acunt: integer): string;
La función devuelve la cadena Atext Acunt caracteres que comienzan desde Astart
Significa copia
Consulte el sistema de funciones. Copia
Ejemplo edit3.Text: = midstr (edit1.Text, SpineDit1.Value, SpineDit2.Value);
━━━━━━━━━━━━━━━━━━━━━
Función de encabezado SearchBuf (buf: Pchar; Bufflen: Integer; SelStart, Sellength: Integer; Searchstring: String; Opciones: TStringeSearchOptions = [Sodown]): PCHAR;
La función devuelve la primera posición de puntero buscada
Explicar que esta función a menudo se usa para buscar cadenas en texto
Referencia <null>
ejemplo
///////// Comenzar SearchBuf
function SearchEdit (EditControl: TCustomEdit; const Searchstring: String;
SearchOptions: tStringeSearchOntion;
varilla
Buffer, p: pChar;
Tamaño: palabra;
Comenzar
Resultado: = falso;
if (longitud (searchString) = 0) entonces salga;
Tamaño: = editControl.gettextLen;
if (size = 0) entonces salga;
Búfer: = stralloc (tamaño + 1);
intentar
EditControl.gettextBuf (buffer, tamaño + 1);
P: = SearchBuf (buffer, size, editControl.selstart, editControl.sellength,
SearchString, SearchOptions);
Si p <> nil entonces comience
EditControl.SelStart: = p - buffer;
EditControl.sellength: = longitud (searchString);
Resultado: = verdadero;
fin;
Finalmente
Strdispose (búfer);
fin;
fin;
Procedimiento tForm1.Button1Click (remitente: tobject);
varilla
SearchOptions: tStringSearchOptions;
Comenzar
SearchOptions: = [];
Si la casilla de verificación 1.
Incluir (SearchOptions, Sodown);
Si checkbox2. verificó entonces
Incluir (SearchOptions, SomatchCase);
Si la casilla de verificación.
Incluir (SearchOptions, Sowholeword);
SearchEdit (Memo1, Edit1.Text, SearchOptions);
Memo1.setFocus;
fin;
///////// End searchBuf
━━━━━━━━━━━━━━━━━━━━━
Función de encabezado SoundEx (const ATEXT: String; Alength: TSoundExLength = 4): String;
La función devuelve la cadena de detección
Explicación: Según el método de detección (SoundEx), puede encontrar la cadena de intersección;
Referencia <null>
Ejemplo edit2.Text: = SoundEx (edit1.Text, SpineDit1.Value);
━━━━━━━━━━━━━━━━━━━━━
Función de encabezado SoundExInt (const ATEXT: String; Allength: TSoundExIntLength = 4): Integer;
La función devuelve el entero de detección
Significa que cuanto mayor sea el valor de la longitud, mayor es la precisión de decodificación
Referencia <null>
Ejemplo SpineDit2.value: = SoundExInt (edit1.text, spineit1.value);
━━━━━━━━━━━━━━━━━━━━━
Función de encabezado DecodesoundExInt (Avalue: Integer): String;
La función devuelve la decodificación del entero de sonda
Descripción DecodesoundExInt (SoundExInt ('Hello')) es equivalente a SoundEx ('Hello')
Referencia <null>
Ejemplo edit2.Text: = decodesoundExInt (spineTit2.value);
━━━━━━━━━━━━━━━━━━━━━
Primera función SoundExword (const ATEXT: String): Word;
La función devuelve el valor de detección de texto
Indica que no hay una longitud de parámetro que se haya fijado a 4
Referencia <null>
Ejemplo spinedit2.value: = SoundExword (edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
Primera función decodesoundexword (avalue: word): string;
La función devuelve la decodificación del valor de texto de detección
Descripción DecodesoundExword (SoundExword ('Hello')) es equivalente a SoundEx ('Hello')
Referencia <null>
Ejemplo edit2.Text: = decodesoundExword (spineTit2.value);
━━━━━━━━━━━━━━━━━━━━━
Función de encabezado SoundExSimilar (const atext, aother: string; algnong: tsoundExlength = 4): boolean;
La función devuelve si las cadenas de sonda de las dos cadenas son las mismas
Descripción Resultado: = SoundEx (atext, alength) = SoundEx (AOTHER, ALGENTH)
Referencia <null>
Ejemplo de chechBox1.Calked: = SoundExSimilar (edit1.Text, edit2.Text, SpineDit1.Value);
━━━━━━━━━━━━━━━━━━━━━
Función de encabezado SoundExCompare (const atext, aother: string; alengo: tsoundExlength = 4): integer;
La función devuelve el resultado de comparar dos cadenas para detectar cadenas
Descripción Resultado: = AnsicomParestr (SoundEx (ATEXT, Along), SoundEx (AOTHER, ALGENTH)))
Función de referencia sysutils.ansicomParestr
Ejemplo SpineDit2.value: = SoundExComPare (edit1.text, edit2.Text, SpineDit1.Value);
━━━━━━━━━━━━━━━━━━━━━
Primera función SoundExProc (const atext, aother: string): boolean;
FUNCIÓN LLAME SONEXSIMILAR para devolver las cadenas de sonda de las dos cadenas.
Descripción del valor predeterminado de la variable del sistema AnsiresemblesProc
Función de referencia Strutils.ArisReSemBlExtext
Ejemplo [var ansiresemblesproc: tcompareTextProc = SoundExProc;]