Funciones de cadena de Delphi

usa strutils;

Primera función AnsiresEmBlStext (const atext, aother: string): boolean;

$ [Strutils.pas

La función devuelve si las dos cadenas son similares

Descripción ANSI (American National Standards Institute) American National Standards Institute;

Función de referencia Strutils.SoundExProc;

Ejemplo de chechBox1.Calked: = AnsiresEmBlStext (edit1.Text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función AnsiContainstext (const atext, asubText: string): boolean;

$ [Strutils.pas

La función devuelve si la cadena atext contiene un subcandinato ASUBText

Indica un caso insensible

Función de referencia Strutils.AnsiUpperCase;

Ejemplo de chechBox1.Calked: = AnSiContainStext (edit1.Text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función Ansistartstext (const asubText, atext: string): boolean;

$ [Strutils.pas

La función devuelve si la cadena atext comienza con un subceptor ASUBText

Indica un caso insensible

Función de referencia Windows.com Parestring

Ejemplo de chechBox1.Calked: = AnsistartStext (edit1.Text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función ansiendstext (const asubText, atext: string): boolean;

$ [Strutils.pas

La función devuelve si la cadena atext finaliza con un subceptor ASUBText

Indica un caso insensible

Función de referencia Windows.com Parestring

Ejemplo de chechBox1.Calked: = Ansiendstext (edit1.Text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

La primera función AnsIRePlActext (const atext, afromtext, atotext: string):

cadena;

La función devuelve el resultado de reemplazar la subcadena Afromtext con subcadena Atotext en la cadena atexión

Indica un caso insensible

Función de referencia sysutils.stringreplace;

Ejemplo edit4.Text: = AnsirePlacetext (edit1.Text, edit2.Text, edit3.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función ansimatchText (const atext: string; const avalues: matriz de

cadena): boolean;

La función devuelve si String atext se incluye en los avalues ​​de matriz de cadenas

Indica un caso insensible

Función de referencia strutils.ansiindextext

Ejemplo de chechBox1.Calked: = AnsimatchText (edit1.text, ['a1', 'a2', 'a3',

'a4']);

━━━━━━━━━━━━━━━━━━━━━

Primera función ansiindextext (const atext: string; const avalues: matriz de

cadena): entero;

La función devuelve la posición de la cadena atext en los avalues ​​de matriz de cadenas

Indica que es insensible a los casos;

Función de referencia sysutils.ansisametext

Ejemplo SpineDit1.value: = anSiIndextext (edit1.Text, ['a1', 'a2', 'a3', 'a4']);

━━━━━━━━━━━━━━━━━━━━━

Primera función AnsicontainSstr (const atext, asubText: string): boolean;

$ [Strutils.pas

La función devuelve si la cadena atext contiene un subcandinato ASUBText

Descripción Sensible

Función de referencia Strutils.Ansipos

Ejemplo de chechBox1.Calked: = AnSiContainSstr (edit1.text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función AnsistartSstr (const asubText, atext: string): boolean;

$ [Strutils.pas

La función devuelve si la cadena atext comienza con un subceptor ASUBText

Descripción Sensible

Función de referencia sysutils.ansisamestr

Ejemplo de chechBox1.Calked: = AnsistartSstr (edit1.Text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función Ansiendsstr (const asubText, atext: string): boolean;

$ [Strutils.pas

La función devuelve si la cadena atext finaliza con un subceptor ASUBText

Descripción Sensible

Función de referencia sysutils.ansisamestr

Ejemplo de chechBox1.Calked: = Ansiendsstr (edit1.text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

La primera función AnsirePlAcestr (const atext, afromtext, atotext: string):

cadena;

La función devuelve el resultado de reemplazar la subcadena Afromtext con subcadena Atotext en la cadena atexión

Descripción Sensible

Función de referencia sysutils.stringreplace;

Ejemplo edit4.Text: = AnsirePlAcestr (edit1.Text, edit2.Text, edit3.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función ansimatchstr (const atext: string; const avalues: matriz de

cadena): boolean;

La función devuelve si String atext se incluye en los avalues ​​de matriz de cadenas

Descripción Sensible

Función de referencia Strutils.AnsiIndexstrS

Ejemplo de chechBox1.Calked: = Ansimatchstr (edit1.Text, ['A1', 'A2', 'A3',

'a4']);

━━━━━━━━━━━━━━━━━━━━━

Primera función ansiindexstr (const atext: string; const avalues: matriz de

cadena): entero;

La función devuelve la posición de la cadena atext en los avalues ​​de matriz de cadenas

Descripción Sensible

Función de referencia sysutils.ansisamestr

Ejemplo Spinedit1.value: = ansiindexstr (edit1.text, ['a1', 'a2', 'a3', 'a4']);

━━━━━━━━━━━━━━━━━━━━━

Primera función duPeString (const atext: string; acunt: integer): string;

$ [Strutils.pas

La función devuelve las réplicas de la cuenta de la cadena atexión

Descripción Devuelve '' cuando la cuenta es 0

Consulte la función System.setLength

Ejemplo edit3.Text: = duPeString (edit1.Text, SpineDit1.Value);

━━━━━━━━━━━━━━━━━━━━━

Reversación de funciones de encabezado (constext: string): string;

La función devuelve el orden inverso de la cadena atext

Descripción ReverseString ('1234') = '4321'

Consulte la función System.setLength

Ejemplo edit3.Text: = reverseString (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función StuffString (const atext: string; astart, alength: cardinal;

const asubText: string): string;

La función devuelve las cuerdas anidadas

Descripción Astart: Posición de inicio de anidación;

Consulte el sistema de funciones. Copia

Ejemplo edit3.Text: = stableString (edit1.text, spinedit1.value, spinedit2.value,

Edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función RandomFrom (const Avalues: matriz de cadena): cadena;

$ [Strutils.pas

La función devuelve aleatoriamente un elemento en las avalues ​​de matriz de cadenas

Explique que se recomienda ejecutar aleatorizarse antes

Función de referencia System.random

Ejemplo de azar;

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Ifthen (Avalue: Boolean; const atrue: string; afalse: string =

''): String;

La función devuelve la cadena lógica especificada

Ifthen (verdadero, 'sí', 'no') = 'sí'; ifthen (falso, 'sí', 'no') = 'no'

Referencia <null>

Ejemplo edit3.Text: = ifthen (checkbox1.ecked, edit1.Text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Leftstr (const atext: string; const Acount: entero): string;

$ [Strutils.pas

La función devuelve los caracteres de cuenta en el lado izquierdo de la cadena atext

Descripción Leftstr ('123456', 3) = '123'

Consulte el sistema de funciones. Copia

Ejemplo edit3.Text: = Leftstr (edit1.Text, Spinedit1.Value);

━━━━━━━━━━━━━━━━━━━━━

Primera función RightStr (const atext: string; const acunt: integer): string;

$ [Strutils.pas

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

━━━━━━━━━━━━━━━━━━━━━

Primera función Midstr (const atext: string; const astart, acunt: integer):

cadena;

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

━━━━━━━━━━━━━━━━━━━━━

Primera función searchBuf (buf: pchar; bufflen: integer; selstart, vellength:

Entero;

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

━━━━━━━━━━━━━━━━━━━━━

La primera función SoundEx (const atext: string; alength: tsoundExLength = 4):

cadena;

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; alength: tsoundExIntLength =

4): entero;

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

━━━━━━━━━━━━━━━━━━━━━

Primera función SoundExSimilar (const atext, aother: string; alength:

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 checkbox1.Calked: = SoundExSimilar (edit1.text, edit2.Text,

Spineit1.value);

━━━━━━━━━━━━━━━━━━━━━

Primera función SoundExCompare (const atext, aother: string; alength:

TsoundExlength = 4): entero;

La función devuelve el resultado de comparar dos cadenas para detectar cadenas

Descripción Resultado: = AnsicomParestr (SoundEx (ATEXT, Along), SoundEx (AOTHER,

Alzgo))

Función de referencia sysutils.ansicomParestr

Ejemplo SpineDit2.Value: = SoundExCompare (edit1.text, edit2.Text,

Spineit1.value);

━━━━━━━━━━━━━━━━━━━━━

Primera función SoundExProc (const atext, aother: string): boolean;

$ [Strutils.pas

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

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado NEWSTR (const S: String): PString;

La función devuelve una nueva dirección de puntero de cadena

Descripción return nullstr cuando la cadena s está vacía

Consulte el sistema de procedimientos. Nuevo

ejemplo

//////////// Comenzar Newstr, disposition

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

P: Pstring;

Comenzar

P: = Newstr (edit1.Text);

Edit2.Text: = P^;

Disposición (P);

fin;

//////////// End Newstr, Dispost

━━━━━━━━━━━━━━━━━━━━━

Primer procedimiento dispositivos (P: PString);

FUNCIÓN DE REPARACIÓN String Pointer P Recurso

Descripción Uso con Newstr

Consulte el sistema de procedimientos. Exposición

Ejemplo <Ver arriba, ver a continuación>

━━━━━━━━━━━━━━━━━━━━━

Primer procedimiento asignar (var p: pString; const s: string);

$ [Sysutils.pas

Función actualiza las cadenas de cadena S a String Pointer P

Descripción Recursos que anteriormente se publicaron punteros cuando se actualizan los valores

Función de referencia sysutils.newstr; función sysutils.disposestr

ejemplo

//////////// Comenzar Asignación

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

P: Pstring;

Comenzar

P: = nil;

CesionStr (p, edit1.text);

Edit2.Text: = P^;

Disposición (P);

fin;

//////////// finalizar asignación

━━━━━━━━━━━━━━━━━━━━━

Primer procedimiento appendstr (var dests: string; const s: string);

$ [Sysutils.pas

Función adjuntar cadena s después de cadena des

La descripción es equivalente a Dest: = Dest + S;

Referencia <null>

ejemplo

//////////// comienza appendstr

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

S: cadena;

Comenzar

S: = edit2.Text;

Appendstr (s, edit1.text);

Edit2.Text: = s;

fin;

/////////// finalizar appendstr

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado uppercase (const s: string): string;

La función devuelve la forma de capital de las cadenas S

Indica que los caracteres que no son de libra no se procesan

Consulte el sistema de procedimiento.setLength

Ejemplo edit2.Text: = upperCase (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función minúscula (const s: string): string;

La función devuelve la forma minúscula de la cadena S

Indica que los caracteres no capsulares no se procesan

Consulte el sistema de procedimiento.setLength

Ejemplo edit2.Text: = Mindercase (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Comparación de funciones de encabezado (const S1, S2: String): Integer;

La función vuelve para comparar dos caracteres

Descripción Cuando S1> S2 devuelve el valor> 0;

Referencia <null>

Ejemplo Spinedit1.value: = comparación (edit1.text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Comparemem de primera función (P1, P2: puntero; longitud: entero): boolean;

ensamblador;

Comparación de retorno de la función de dos punteros de memoria

Descripción Comparemem (pChar ('12a'), pChar ('12c'), 2) = true; comparemem (pchar ('12a'),

Pchar ('12c'), 3) = falso

Referencia <null>

Ejemplo de verificación de verificación1.COBACIÓN: = Comparemem (self, form1, 8);

━━━━━━━━━━━━━━━━━━━━━

Comparación de funciones de encabezado (const S1, S2: String): Integer;

La función vuelve para comparar dos cadenas

Indica un caso insensible

Referencia <null>

Ejemplo SpineDit1.Value: = CompareText (edit1.Text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Sametext (const S1, S2: String): Boolean;

La función devuelve si dos cadenas son iguales

Indica un caso insensible

Referencia <null>

Ejemplo de chechBox1.Calked: = sametext (edit1.Text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función ansiuppercase (const s: string): string;

La función devuelve la forma de capital de las cadenas S

Descripción ANSI (American National Standards Institute) American National Standards Institute;

Función de referencia Windows.CharupperBuff

Ejemplo edit2.Text: = anSiupPercase (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función AnsilowerCase (const S: String): String;

La función devuelve la forma minúscula de la cadena S

Indica que los caracteres no capsulares no se procesan

Función de referencia Windows.CharlowerBuff

Ejemplo edit2.Text: = AnsilowerCase (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado AnsicomParestr (const S1, S2: String): Integer;

FUNCIÓN Comparación inversa de dos cadenas

Descripción Cuando S1> S2 devuelve el valor> 0;

Función de referencia Windows.com Parestring

Ejemplo SpineDit1.Value: = AnsicomParestr (edit1.text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Ansisamestr (const S1, S2: String): Boolean;

La función devuelve si dos cadenas son iguales

Descripción Sensible

Función de referencia sysutils.ansicomParestr

Ejemplo de chechBox1.Calked: = AnsisAmestr (edit1.text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado AnsicomParEtext (const S1, S2: String): Integer;

FUNCIÓN Comparación inversa de dos cadenas

Descripción Cuando S1> S2 devuelve el valor> 0;

Función de referencia Windows.com Parestring

Ejemplo SpineDit1.Value: = AnsicomParEtext (edit1.Text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Ansisametext (const S1, S2: String): Boolean;

La función devuelve si dos cadenas son iguales

Indica un caso insensible

Función de referencia sysutils.ansicomParExtext

Ejemplo de chechBox1.Calked: = Ansisametext (edit1.Text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Ansistrcomp (S1, S2: PCHAR): Integer;

La función vuelve para comparar dos cadenas de puntero

Descripción Cuando S1> S2 devuelve el valor> 0;

Función de referencia System.com Parestring

Ejemplo Spinedit1.value: = Ansistrcomp (Pchar (edit1.text), Pchar (edit2.Text))

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Ansistricomp (S1, S2: PCHAR): Integer;

La función vuelve para comparar dos cadenas de puntero

Descripción Cuando S1> S2 devuelve el valor> 0;

Función de referencia Windows.com Parestring

Ejemplo Spinedit1.value: = Ansistricomp (Pchar (edit1.text), pchar (edit2.Text))

━━━━━━━━━━━━━━━━━━━━━

Primera función AnsistrlComp (S1, S2: Pchar; Maxlen: Cardinal): Integer;

$ [Sysutils.pas

FUNCIÓN RETURN para comparar dos cadenas de puntero longitud especificada

Descripción Cuando S1> S2 devuelve el valor> 0;

Función de referencia Windows.com Parestring

Ejemplo Spinedit1.value: = AnsistrlComp (PChar (edit1.Text), PChar (edit2.Text),

Spinedit2.value)

━━━━━━━━━━━━━━━━━━━━━

Primera función Ansistrlicomp (S1, S2: Pchar; Maxlen: Cardinal): Integer;

$ [Sysutils.pas

FUNCIÓN RETURN para comparar dos cadenas de puntero longitud especificada

Descripción Cuando S1> S2 devuelve el valor> 0;

Función de referencia Windows.com Parestring

Ejemplo Spinedit1.value: = Ansistrlicomp (Pchar (edit1.text), pchar (edit2.Text),

Spinedit2.value)

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Ansistrlower (STR: PCHAR): PCHER;

La función devuelve el puntero en minúsculas

Indica que los caracteres no capsulares no se procesan

Función de referencia Windows.Charlower

Ejemplo edit2.Text: = Ansistrlower (pChar (edit1.Text));

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Ansistrupper (STR: PCHAR): PCHER;

Función devuelve la capitalización de cadenas de puntero

Indica que los caracteres que no son de libra no se procesan

Función de referencia Windows.Charupper

Ejemplo edit2.Text: = anSistrUPper (pChar (edit1.Text));

━━━━━━━━━━━━━━━━━━━━━

Primera función Ansilastchar (const s: string): pchar;

La función devuelve el último personaje de puntero de la cadena S

Descripción Cuando la cadena S es una cadena vacía, se devuelve un puntero nulo.

Función de referencia sysutils.bytetype

Ejemplo edit2.Text: = ansilastchar (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Ansistrlastchar (P: PCHAR): PCHER;

La función devuelve el último personaje de puntero de la cadena de puntero p

Descripción Cuando la cadena P es un puntero vacío, devuelve un puntero vacío.

Función de referencia sysutils.bytetype

Ejemplo edit2.Text: = ansilastchar (pchar (edit1.text));

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado WideUppercase (const s: widestring): widestring;

La función devuelve la capitalización de una cadena de doble byte

Descripción Caracteres de doble byte Widechar

Función de referencia Windows.CharupperBuffw

Ejemplo edit2.Text: = WideUpperCase (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función Widelowercase (const s: widestring): widestring;

La función devuelve la forma minúscula de una cadena de doble byte

Significa por qué no puedo probarlo

Función de referencia Windows.CharlowerBuffw

Ejemplo edit2.Text: = WidelowerCase (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función WidecomParestr (const S1, S2: WideString): Integer;

$ [Sysutils.pas

Comparación de retorno de función de dos cadenas de bytes dobles

Descripción Cuando S1> S2 devuelve el valor> 0;

Función de referencia Windows.comParestringw

Ejemplo Spinedit1.value: = widecomparestr (edit1.text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función Widesamestr (const S1, S2: Widestring): boolean;

La función devuelve si dos cadenas de doble byte son las mismas

Descripción Sensible

Función de referencia sysutils.WidecomParestr

Ejemplo de chechBox1.Calked: = widesamestr (edit1.text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función WidecomParEtext (const S1, S2: WideString): Integer;

$ [Sysutils.pas

Comparación de retorno de función de dos cadenas de bytes dobles

Descripción Cuando S1> S2 devuelve el valor> 0;

Función de referencia Windows.comParestringw

Ejemplo Spinedit1.value: = widecomparetext (edit1.text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función WidesMetext (const S1, S2: Widestring): boolean;

$ [Sysutils.pas

La función devuelve si dos cadenas de doble byte son las mismas

Indica un caso insensible

Función de referencia sysutils.WidecomParExtext

Ejemplo de chechBox1.Calked: = widesEtext (edit1.Text, edit2.Text);

━━━━━━━━━━━━━━━━━━━━━

TRIMA DE FUNCIÓN DEL PRINCIPAL (const S: String): String;

Primera función TRIM (const s: widestring): wideString;

$ [Sysutils.pas

La función regresa para eliminar los caracteres izquierdo y derecho de la cadena S

Personajes que indican que menos de #32 se consideran caracteres invisibles

Consulte el sistema de funciones. Copia

Ejemplo edit2.Text: = TRIM (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Trimleft (const S: String): String;

Primera función Trimleft (const s: widestring): widestring;

$ [Sysutils.pas

Función Regreso para eliminar los caracteres invisibles a la izquierda de la cadena S

Personajes que indican que menos de #32 se consideran caracteres invisibles

Consulte el sistema de funciones. Copia

Ejemplo edit2.Text: = Trimleft (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Trimright (const S: String): String;

Primera función Trimright (const s: widestring): widestring;

$ [Sysutils.pas

Función Regreso para eliminar los caracteres invisibles a la derecha de la cadena S

Personajes que indican que menos de #32 se consideran caracteres invisibles

Consulte el sistema de funciones. Copia

Ejemplo edit2.Text: = Trimright (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado Quitedstr (const S: String): String;

La función devuelve la expresión de las cadenas en Pascal

Explicación: Una cita única en una sola cita se convertirá en dos

Consulte el sistema de procedimientos. Insertar

Ejemplo edit2.Text: = Quitedstr (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Primera función Ansiquotedstr (const s: string; cita: char): string;

$ [Sysutils.pas

La función devuelve la expresión de las cadenas s con la cita de caracteres como cotizaciones

Descripción Ansiquotedstr ('Hola "Mundo',

'@') = '@Hello "World@'; AnsiquotedStr ('Hola" Mundo', '"') = '" Hola "" Mundo "'

Función de referencia sysutils.sistrscan

Ejemplo edit2.Text: = anSiquotedStr (edit1.Text, '"');

━━━━━━━━━━━━━━━━━━━━━

Primera función ansiextractQuotedstr (var src: pchar; cita: char): string;

$ [Sysutils.pas

La función devuelve la forma original de la cita de caracteres como cotizaciones

Significa que SRC permanece sin cambios cuando la expresión es ilegal.

Función de referencia sysutils.sistrscan

ejemplo

///////// Jegan Ansiextractquotedstr

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

P: pChar;

Comenzar

P: = Pchar (edit1.Text);

Edit2.Text: = AnsiextractQuotedstr (p, '"');

Edit3.Text: = P;

fin;

///////// finalizar AnsiextractQuotstrstr

━━━━━━━━━━━━━━━━━━━━━

Primera función AnsideQuotedstr (const S: String; Aquote: Char): String;

$ [Sysutils.pas

La función devuelve la forma original del personaje Aquote como citas

Cuando la expresión es ilegal, devuelve s

Función de referencia sysutils.AsiextractQuotstrstr

Ejemplo edit2.Text: = AnsideQuotedStr (edit1.Text, '"');

━━━━━━━━━━━━━━━━━━━━━

Primera función Ajustar Breaks (const S: String; Style: TTextLineBreakStyle =

{$ Ifdef linux} tlbslf {$ endif} {$ ifdef mswindows} tlbscrlf {$ endif})::

cadena;

La función vuelve para ajustar el separador de línea de la cadena dada a una secuencia CR/LF

ilustrar

Ajustar Breakbreak ('1'#13'2 '#13) =' 1 '#13#10'2'#13#10; Ajustar Breakbreos ('1'#10'2 '#10) =' 1 '#13#10 '2'#13#10

Función de referencia sysutils.strnextchar

Ejemplo <null>

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado ISValidIdid (const Ident: String): Boolean;

La función devuelve si el identificador de cadena es el identificador correcto

Descripción Identificador :: letras | subraya [letras | subrayas | números] ...

Referencia <null>

Ejemplo de chechBox1.ecked: = isValidident (edit1.Text);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado intToStr (Valor: Integer): String;

Función de encabezado intToStr (valor: int64): string;

La función devuelve el valor entero para convertir a cadena

Formato de descripción ('%d', [valor])

Función de referencia sysutils.fmtstr

Ejemplo edit2.Text: = intToStr (SpineDit1.Value);

━━━━━━━━━━━━━━━━━━━━━

Primera función inttoHex (valor: entero; dígitos: entero): string;

$ [Sysutils.pas

Primera función inttoHex (valor: int64; dígitos: entero): string;

$ [Sysutils.pas

La función devuelve el valor entero convertido al resultado de rendimiento hexadecimal;

Descripción Los dígitos de parámetros especifican el ancho mínimo del carácter;

Función de referencia sysutils.fmtstr

Ejemplo edit2.Text: = inttoHex (spineit1.value, spinedit2.value);

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado StrToint (const S: String): Integer;

La función devuelve las cadenas S para convertirlo en un entero

Explicación: Una excepción será causada cuando una cadena se exprese por no integral

Consulte el sistema de procedimiento.val

Ejemplo spinedit1.value: = strToint (edit1.text);

━━━━━━━━━━━━━━━━━━━━━

Primera función strTointdef (const s: string; predeterminado: entero): integer;

$ [Sysutils.pas

La función devuelve las cadenas S para convertirlo en un entero

El valor predeterminado se devuelve cuando la cadena se expresa por no integral.

Consulte el sistema de procedimiento.val

Ejemplo Spinedit1.value: = strTointdef (edit1.text, 0);

━━━━━━━━━━━━━━━━━━━━━

Primera función TrystrToint (const s: string; valor de salida: entero): boolean;

$ [Sysutils.pas

La función devuelve si las cadenas S se convierten en valor entero correctamente

Descripción False se devuelve cuando la cadena se expresa por no entero y el valor saldrá como 0

Consulte el sistema de procedimiento.val

ejemplo

////////// Comienza Trystrtoint

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

I: entero;

Comenzar

Casilla de verificación1.ecked: = trystrToint (edit1.text, i);

Spineit1.value: = i;

fin;

///////// Finalizar Trystrtoint

━━━━━━━━━━━━━━━━━━━━━

Función de encabezado StrToint64 (const S: String): int64;

La función devuelve las cadenas S para convertirlo en un entero de sesenta y cuatro bits

Explicación: Una excepción será causada cuando una cadena sea expresada por un entero sin 64 bits.

Consulte el sistema de procedimiento.val

Ejemplo spinedit1.value: = strToint64 (edit1.text);

━━━━━━━━━━━━━━━━━━━━━

Primera función strToint64Def (const s: string; const default: int64): int64;

$ [Sysutils.pas

La función devuelve las cadenas S para convertirlo en un entero de sesenta y cuatro bits

El valor predeterminado se devuelve cuando la cadena se expresa por un entero sin 64 bits.

Consulte el sistema de procedimiento.val

Ejemplo Spinedit1.value: = strToint64Def (edit1.text, 0);

━━━━━━━━━━━━━━━━━━━━━

Primera función trystrToint64 (const s: string; valor de salida: int64): boolean;

$ [Sysutils.pas

La función devuelve si la cadena S se convierte en un valor entero de sesenta y cuatro bits correctamente

Descripción False se devuelve cuando la cadena se expresa por entero y valor no de sesenta y cuatro bits que saldrán como 0

Consulte el sistema de procedimiento.val

ejemplo

///////// comienza Trystrtoint64

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

I: int64;

Comenzar

CheckBox1.Calked: = TrystrToint64 (edit1.Text, i);

Spineit1.value: = i;

fin;

///////// Finalizar TrystrToint64

━━━━━━━━━━━━━━━━━━━━━

Primera función StrToBool (const s: string): boolean;

La función Devuelve las cadenas S para convertirlo en un valor lógico

Explicación El carácter causará excepciones cuando no se exprese lógicamente

Función de referencia 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

ejemplo

///////Begin TryStrToBool

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

B: Boolean;

Comenzar

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;

fin;

///////End TryStrToBool

Adjunto

///////Begin TryStrToBool

function TryStrToBool(const S: string; out Value: Boolean): Boolean;

function CompareWith(const aArray: array of string): Boolean;

varilla

I: Integer;

Comenzar

Result := False;

for I := Low(aArray) to High(aArray) do

if AnsiSameText(S, aArray[I]) then

Comenzar

Result := True;

Romper;

fin;

fin;

varilla

LResult: Extended;

Comenzar

Result := TryStrToFloat(S, LResult);

if Result then

Value := LResult <> 0

demás

Comenzar

Result := True; //修正处

VerifyBoolStrArray;

if CompareWith(TrueBoolStrs) then

Value := True

else if CompareWith(FalseBoolStrs) then

Value := False

demás

Result := False;

fin;

fin;

///////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

ejemplo

///////Begin StrMove

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

vBuffer: PChar;

Comenzar

vBuffer := '0123456789';

StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);

Edit2.Text := vBuffer;

fin;

///////End StrMove

━━━━━━━━━━━━━━━━━━━━━

首部function StrCopy(Dest: PChar; const Source: PChar): PChar;

$[SysUtils.pas

功能返回将指针字符串Source复制到指针字符串Dest中

说明Dest应已经分配足够的空间非则将触发异常

参考<NULL>

ejemplo

///////Begin StrCopy

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

vBuffer: PChar;

Comenzar

GetMem(vBuffer, Length(Edit1.Text) + 1);

StrCopy(vBuffer, PChar(Edit1.Text));

Edit2.Text := vBuffer;

FreeMem(vBuffer);

fin;

///////End StrCopy

━━━━━━━━━━━━━━━━━━━━━

首部function StrECopy(Dest:PChar; const Source: PChar): PChar;

$[SysUtils.pas

功能返回将指针字符串Source复制到指针字符串Dest中的结尾

说明可以连接指针字符串

参考<NULL>

ejemplo

///////Begin StrECopy

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

vBuffer: array[0..255] of Char;

Comenzar

StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text));

Edit3.Text := vBuffer;

fin;

///////End StrECopy

━━━━━━━━━━━━━━━━━━━━━

首部function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal):

PChar; $[SysUtils.pas

功能返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中

说明Dest应已经分配足够的空间非则将触发异常

参考<NULL>

ejemplo

///////Begin StrLCopy

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

vBuffer: array[0..255] of Char;

Comenzar

StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);

Edit2.Text := vBuffer;

fin;

///////End StrLCopy

━━━━━━━━━━━━━━━━━━━━━

首部function StrPCopy(Dest: PChar; const Source: string): PChar;

$[SysUtils.pas

功能返回将指针字符串Source复制到指针字符串Dest中

说明StrLCopy(Dest, PChar(Source), Length(Source))

参考function SysUtils.StrLCopy

ejemplo

///////Begin StrPCopy

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

vBuffer: array[0..255] of Char;

Comenzar

StrPCopy(vBuffer, PChar(Edit1.Text));

Edit2.Text := vBuffer;

fin;

///////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

ejemplo

///////Begin StrPLCopy

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

vBuffer: array[0..255] of Char;

Comenzar

StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value);

Edit2.Text := vBuffer;

fin;

///////End StrPLCopy

━━━━━━━━━━━━━━━━━━━━━

首部function StrCat(Dest: PChar; const Source: PChar): PChar;

$[SysUtils.pas

功能返回连接指针字符串Dest和指针字符串Source

说明StrCopy(StrEnd(Dest), Source)

参考function SysUntils.StrCopy

ejemplo

///////Begin StrCat

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

vBuffer: array[0..255] of Char;

Comenzar

StrPCopy(vBuffer, Edit1.Text);

StrCat(vBuffer, PChar(Edit2.Text));

Edit3.Text := vBuffer;

fin;

///////End StrCat

━━━━━━━━━━━━━━━━━━━━━

首部function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal):

PChar; $[SysUtils.pas

功能返回连接指针字符串Dest和指针字符串Source

说明[注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度

参考<NULL>

ejemplo

///////Begin StrLCat

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

vBuffer: array[0..255] of Char;

Comenzar

StrPCopy(vBuffer, Edit1.Text);

StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value);

Edit3.Text := vBuffer;

fin;

///////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(