Colección de funciones de Delphi6 (2)

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;]