Funções de String Delphi

usa Strutils;

Primeira função ANSIRESEMBLETEXT (const atext, aOther: string): boolean;

$ [Strutils.pas

Função retorna se as duas cordas são semelhantes

Descrição ANSI (American National Standards Institute) Instituto Nacional Americano;

Função de referência Strutil.SoundExProc;

Exemplo de seleção Caixa de seleção.CHECKED: = ANSIRESEMBLETEXT (EDIT1.TEXT, EDIT2.TEXT);

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

Primeira função Ansicontainstext (const Atext, ASUBTEXT: String): boolean;

$ [Strutils.pas

Função retorna se a string atext contém um asubtext de substring

Indica insensível ao caso

Função de referência Strutils.AnsiUppercase;

Exemplo de seleção Chox1.Checked: = AnsicontainsText (edit1.text, edit2.text);

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

Primeira função AnsistartStext (const Asubtext, Atext: String): boolean;

$ [Strutils.pas

Função retorna se a string atext começa com um asubtext de substring

Indica insensível ao caso

Função de referência Windows.comparestring

Exemplo de seleção Chox1.Checked: = AnsistartStext (edit1.text, edit2.text);

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

Primeira função AnsiendStext (const Asubtext, ATEXT: String): boolean;

$ [Strutils.pas

Função retorna se a string atext termina com uma substring asubtext

Indica insensível ao caso

Função de referência Windows.comparestring

Exemplo de seleção Chox1.Checked: = AnsiendStext (edit1.text, edit2.text);

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

A primeira função AnsireplaceText (const Atext, Afromtext, Atotext: String):

string;

Função retorna o resultado da substituição da substring Afromtext por Substring Atotext na string atext

Indica insensível ao caso

Função de referência sysutils.stringReplace;

Exemplo edit4.text: = AnsireplaceText (edit1.text, edit2.text, edit3.text);

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

Primeira função AnsiMatchText (const Atext: String; Const Avalia: Matriz de

String): boolean;

A função retorna se a string atext está incluída nas avaliações da matriz de string

Indica insensível ao caso

Função de referência strutils.ansiIndextext

Exemplo de seleção Chox1.Checked: = AnsimatchText (edit1.text, ['A1', 'A2', 'A3',

'A4']);

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

Primeira função AnsiIndextext (const Atext: String; Const Avalia: Matriz de

String): Inteiro;

Função retorna a posição da string atext nas avaliações da matriz de string

Indica que é insensível ao caso; se não for incluído, retorne -1

Função de referência sysutils.ansisametext

Exemplo spinedit1.value: = AnsiIndextext (edit1.text, ['A1', 'A2', 'A3', 'A4']);

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

Primeira função Ansicontainsstr (const ATEXT, ASUBTEXT: String): boolean;

$ [Strutils.pas

Função retorna se a string atext contém um asubtext de substring

Descrição Case sensível

Função de referência Strutils.ansipos

Exemplo de seleção Chox1.Checked: = Ansicontainsstr (edit1.text, edit2.text);

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

Primeira função ANSISTARTSSTR (const Asubtext, ATEXT: String): boolean;

$ [Strutils.pas

Função retorna se a string atext começa com um asubtext de substring

Descrição Case sensível

Função de referência sysutils.ansisamest

Exemplo de seleção de seleção1.CHECKED: = ANSISTARTSSTR (EDIT1.TEXT, EDIT2.TEXT);

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

Primeira função Ansiendsstr (const asubtext, atext: string): boolean;

$ [Strutils.pas

Função retorna se a string atext termina com uma substring asubtext

Descrição Case sensível

Função de referência sysutils.ansisamest

Exemplo de seleção de seleção1.CHecked: = AnsiendsStr (edit1.text, edit2.text);

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

A primeira função Ansireplacest (const Atext, AfromText, Atotext: String):

string;

Função retorna o resultado da substituição da substring Afromtext por Substring Atotext na string atext

Descrição Case sensível

Função de referência sysutils.stringReplace;

Exemplo edit4.text: = Ansireplacest (edit1.text, edit2.text, edit3.text);

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

Primeira função AnsiMatchstr (const Atext: String; Const Avalia: Matriz de

String): boolean;

A função retorna se a string atext está incluída nas avaliações da matriz de string

Descrição Case sensível

Função de referência Strutils.AnsiIndexstr

Exemplo de seleção Chox1.Checked: = Ansimatchstr (edit1.text, ['A1', 'A2', 'A3',

'A4']);

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

Primeira função AnsiIndexstr (const Atext: String; Const Avalia: Matriz de

String): Inteiro;

Função retorna a posição da string atext nas avaliações da matriz de string

Descrição Case sensível

Função de referência sysutils.ansisamest

Exemplo Spinedit1.Value: = AnsiIndexstr (edit1.text, ['A1', 'A2', 'A3', 'A4']);

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

Primeira função dupestring (const ATEXT: String; ACONT: INTEGER): String;

$ [Strutils.pas

Função retorna réplicas ACOUNT da string atext

Descrição Retorna '' quando a conta é 0

Consulte a função System.setLength

Exemplo edit3.text: = dupestring (edit1.text, spinedit1.value);

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

Função de cabeçalho Reverrestring (const Atext: String): String;

Função retorna a ordem inversa da string atext

Descrição Reversestring ('1234') = '4321'

Consulte a função System.setLength

Exemplo edit3.text: = reversestring (edit1.text);

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

Primeira função stuffString (const ATEXT: String; Astart, Alngth: cardeal;

const asubtext: string): string;

Função retorna strings aninhados

Descrição ASTART: Nestar Posição de Início;

Consulte o System.Copy

Exemplo edit3.text: = stuffString (edit1.text, spinedit1.value, spinedit2.value,

Edit2.text);

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

Primeira função RandomFrom (Avalias const: Array de String): String;

$ [Strutils.pas

A função retorna aleatoriamente um elemento nas avaliações da matriz de string

Explique que é recomendado executar randomizar antes

Função de referência System.Random

Exemplo randomize; edit3.text: = RandomFrom (['A1', 'A2', 'A3', 'A4']);

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

Função do cabeçalho Ifthen (Avalue: Boolean; const atrue: string; afalse: string =

''): String;

Função retorna a sequência lógica especificada

Se (verdadeiro, 'sim', 'não') = 'sim'; ifthen (false, 'sim', 'não') = 'não'

Referência <NULL>

Exemplo edit3.text: = ifthen (caixa de seleção1.CHecked, edit1.text, edit2.text);

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

Função do cabeçalho LeftStr (const Atext: String; const Acount: Integer): String;

$ [Strutils.pas

Função retorna os caracteres de aceitação no lado esquerdo da string atext

Descrição LeftStr ('123456', 3) = '123'

Consulte o System.Copy

Exemplo edit3.text: = leftStr (edit1.text, spinedit1.value);

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

Primeira função RightStr (const Atext: String; const Acount: Integer): String;

$ [Strutils.pas

Função retorna os caracteres de aceitação no lado direito da string atext

Descrição RightStr ('123456', 3) = '456'

Consulte o System.Copy

Exemplo edit3.text: = rightstr (edit1.text, spinedit1.value);

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

Primeira função Midstr (const Atext: String; Const Astart, ACONTE: INTEGER):

string;

Função retorna a string atext Acep Tow

Significa cópia

Consulte o System.Copy

Exemplo edit3.text: = midstr (edit1.text, spinedit1.value, spinedit2.value);

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

Primeira função SearchBuf (BUF: PCHO; BUFLEN: INTEGER; SelStart, Lengthength:

Inteiro;

Pchar;

Função retorna a primeira posição do ponteiro pesquisado

Explique esta função é frequentemente usada para pesquisar strings no texto

Referência <NULL>

exemplo

////////// Begin SearchBuf

função pesquisada (editControl: tcustomedit; const searchstring: string;

SearchOptions: TStringSearchOptions;

var

Buffer, p: pchar;

Tamanho: palavra;

Começar

Resultado: = false;

if (comprimento (searchstring) = 0) depois saia;

Tamanho: = editControl.getTextlen;

if (size = 0) então saia;

Buffer: = stralloc (tamanho + 1);

tentar

EditControl.getTextBuf (buffer, tamanho + 1);

P: = SearchBuf (Buffer, Size, EditControl.SelStart, EditControl.sellength,

Pesquisa de pesquisa, searchptions);

Se p <> nil, então comece

EditControl.SelStart: = p - buffer;

EditControl.selngth: = Length (SearchString);

Resultado: = true;

fim;

Finalmente

Strdispose (buffer);

fim;

fim;

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

SearchOptions: TStringSearchOptions;

Começar

SearchOptions: = [];

Se a caixa de seleção1.Charquei, então

Incluir (SearchOptions, SoDown);

Se a caixa de seleção. Verifiquei, então

Incluir (SearchOptions, SomatchCase);

Se a caixa de seleção. Verifiquei, então

Incluir (SearchOptions, Sowholeword);

Pesquisado (memando1, edit1.text, SearchOptions);

Memo1.setFocus;

fim;

////////// End SearchBuf

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

A primeira função SoundEx (const ATEXT: String; Alngth: tsoundExlength = 4):

string;

Função retorna a sequência de detecção

Explicação: De acordo com o método de detecção (SoundEx), você pode encontrar a sequência de cruzamentos;

Referência <NULL>

Exemplo edit2.text: = SoundEx (edit1.text, spinedit1.value);

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

Função de cabeçalho SoundExint (const ATEXT: String; Alngth: tsoundExintLength =

4): Inteiro;

Função retorna o número inteiro de detecção

Isso significa que quanto maior o valor do tempo, maior a precisão da decodificação

Referência <NULL>

Exemplo spinedit2.value: = SoundExint (edit1.text, spinedit1.value);

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

Função de cabeçalho DecodesoundExint (Avalue: Inteiro): String;

Função retorna a decodificação da sonda inteira

Descrição DecodesoundExint (SoundExint ('Hello')) é equivalente a SoundEx ('Hello')

Referência <NULL>

Exemplo edit2.text: = decodesoundExint (spinedit2.value);

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

Função Primeira Função SoundExword (const Atext: String): Word;

Função retorna o valor do texto de detecção

Indica que não há um parâmetro de tempo que tenha sido fixado em 4

Referência <NULL>

Exemplo spinedit2.Value: = SoundExword (edit1.text);

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

Primeira função DecodesoundExword (Avalue: Word): String;

Função retorna a decodificação do valor do texto de detecção

Descrição DecodesoundExword (SoundExword ('Hello')) é equivalente a SoundEx ('Hello')

Referência <NULL>

Exemplo edit2.text: = decodesoundExword (spinedit2.value);

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

Primeira função SoundExSimilar (const ATEXT, aOther: String; Alngth:

TsoundExlength = 4): booleano;

A função retorna se as cordas da sonda das duas cordas são iguais

Descrição Resultado: = SoundEx (ATEXT, ALENGLE) = SoundEx (aOther, Alnken)

Referência <NULL>

Exemplo de seleção

Spinedit1.value);

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

Primeira função SoundExCompare (const Atext, aOthere: String; Alngth:

TsoundExlength = 4): Inteiro;

Função retorna o resultado de comparar duas cordas para detectar strings

Descrição Resultado: = AnsicomParest (SoundEx (ATEXT, Alngth), SoundEx (AOther,

Tempo de tempo))

Função de referência sysutils.ansicomparest

Exemplo Spinedit2.Value: = SoundExCompare (edit1.text, edit2.text,

Spinedit1.value);

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

Primeira função SoundExproc (const Atext, aOther: string): boolean;

$ [Strutils.pas

Função Chamada SoundExsimilar para devolver as cordas da sonda das duas cordas.

Descrição do valor padrão da variável do sistema AnsireSemblesproc

Função de referência Strutils.AnsireSEMBLETEXT

Exemplo [var AnsireSemblesproc: TComPareTextProc = SoundExProc;]

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

Função de cabeçalho Newstr (const S: String): pString;

Função retorna um novo endereço de ponteiro de string

Descrição Retornar Nullstr quando a string s estiver vazia

Consulte o System.New do procedimento

exemplo

////////////// Begin Newstr, descartest

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

P: pString;

Começar

P: = newstr (edit1.text);

Edit2.text: = p^;

Descartest (p);

fim;

///////////// END NEWSTR, DISPOST

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

Primeiro procedimento DispoST (p: pstring);

Função Libere o recurso de ponteiro de string P

Descrição Use com Newstr

Consulte o procedimento System.Dispose

Exemplo <veja acima, veja abaixo>

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

Primeiro procedimento Atribuído (var p: pstring; const s: string);

$ [Sysutils.pas

Função Atualiza string s para string ponteiro p

Descrição Recursos que eram anteriormente ponteiros de strings lançados ao atualizar valores

Função de referência sysutils.newstr; function sysutils.disposestst

exemplo

////////////// comece a atribuirstr

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

P: pString;

Começar

P: = nil;

Atribuistr (p, edit1.text);

Edit2.text: = p^;

Descartest (p);

fim;

////////////// END ATRIPTSTR

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

Primeiro procedimento APNENDTR (VAR DEST: String; const S: String);

$ [Sysutils.pas

Função Anexar strings após a String Dest

A descrição é equivalente a dest: = dest + s;

Referência <NULL>

exemplo

////////////// Begin ApndendStr

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

S: string;

Começar

S: = edit2.text;

Appendtr (s, edit1.text);

Edit2.text: = s;

fim;

//////////// End AppendStr

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

Função de cabeçalho Uppercase (const S: string): string;

Função retorna a forma de capital das strings

Indica que os caracteres não-lowercase não são processados

Consulte o procedimento System.setLength

Exemplo edit2.text: = uppercase (edit1.text);

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

Primeira função minúscula (const s: string): string;

Função retorna a forma minúscula da string s

Indica que caracteres não capsulares não são processados

Consulte o procedimento System.setLength

Exemplo edit2.text: = minúsculo (edit1.text);

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

Função de cabeçalho Comparest (const S1, S2: String): Inteiro;

Função retorna para comparar dois caracteres

Descrição Quando S1> S2 Retorna o valor> 0;

Referência <NULL>

Exemplo spinedit1.value: = comparest (edit1.text, edit2.text);

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

Primeira função Comparemem (p1, p2: ponteiro; comprimento: inteiro): booleano;

Assembler;

Função Retorno Comparação de dois ponteiros de memória

Descrição Comparemem (PChar ('12a'), PChar ('12c'), 2) = true; compareMem (Pchar ('12a'),

PChar ('12C'), 3) = Falso

Referência <NULL>

Exemplo de seleção Caixa de seleção.CHECKED: = Comparemem (self, Form1, 8);

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

Função de cabeçalho CompareText (const S1, S2: String): Inteiro;

Função retorna para comparar duas cordas

Indica insensível ao caso

Referência <NULL>

Exemplo spinedit1.value: = compareText (edit1.text, edit2.text);

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

Função de cabeçalho Sametext (const S1, S2: String): Boolean;

Função retorna se duas cordas são iguais

Indica insensível ao caso

Referência <NULL>

Exemplo de seleção Chox1.Checked: = SameText (edit1.text, edit2.text);

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

Primeira função ANSIUPERCASE (const S: String): String;

Função retorna a forma de capital das strings

Descrição ANSI (American National Standards Institute) Instituto Nacional Americano;

Função de referência Windows.CharUperBuff

Exemplo de edit2.text: = AnsiUppercase (Edit1.Text);

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

Primeira função Ansilowercase (const S: String): String;

Função retorna a forma minúscula da string s

Indica que caracteres não capsulares não são processados

Função de referência Windows.CharLowerBuff

Exemplo edit2.text: = AnsilowerCase (edit1.text);

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

Função de cabeçalho Ansicomparest (const S1, S2: String): Inteiro;

Função Comparação reversa de duas cordas

Descrição Quando S1> S2 Retorna o valor> 0;

Função de referência Windows.comparestring

Exemplo spinedit1.value: = Ansicomparest (edit1.text, edit2.text);

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

Função de cabeçalho ANISAMEST (const S1, S2: String): boolean;

Função retorna se duas cordas são iguais

Descrição Case sensível

Função de referência sysutils.ansicomparest

Exemplo de seleção Chox1.Checked: = AnsisameST (edit1.text, edit2.text);

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

Função de cabeçalho AnsicomPareText (const S1, S2: String): Inteiro;

Função Comparação reversa de duas cordas

Descrição Quando S1> S2 Retorna o valor> 0;

Função de referência Windows.comparestring

Exemplo spinedit1.value: = AnsicomPareText (edit1.text, edit2.text);

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

Função de cabeçalho Ansisametext (const S1, S2: String): Boolean;

Função retorna se duas cordas são iguais

Indica insensível ao caso

Função de referência sysutils.ansicomPareText

Exemplo de seleção Chox1.Checked: = AnsisameText (edit1.text, edit2.text);

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

Função de cabeçalho ANSISTCOMP (S1, S2: PCHA): Inteiro;

Função retorna para comparar duas cordas de ponteiro

Descrição Quando S1> S2 Retorna o valor> 0;

Função de referência System.comparestring

Exemplo Spinedit1.Value: = ANSISTCOMP (PCHAR (Edit1.Text), PChar (Edit2.Text))

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

Função de cabeçalho ANSISTRICOMP (S1, S2: PCHA): Inteiro;

Função retorna para comparar duas cordas de ponteiro

Descrição quando S1> S2 Retorna o valor> 0;

Função de referência Windows.comparestring

Exemplo Spinedit1.Value: = ANSISTRICOMP (PCHAR (Edit1.Text), PChar (Edit2.Text))

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

Primeira função ANSISTLCOMP (S1, S2: PCHO; MAXLEN: CARDINAL): INTEGER;

$ [Sysutils.pas

Função Retornar para comparar duas cordas de ponteiro especificado Comprimento

Descrição quando S1> S2 Retorna o valor> 0;

Função de referência Windows.comparestring

Exemplo Spinedit1.Value: = ANSistlComp (PChar (Edit1.Text), PChar (Edit2.Text),

Spinedit2.value)

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

Primeira função ANSISTLICOMP (S1, S2: PCHAR; MAXLEN: CARDINAL): INTEGER;

$ [Sysutils.pas

Função Retornar para comparar duas cordas de ponteiro especificado Comprimento

Descrição Quando S1> S2 Retorna o valor> 0;

Função de referência Windows.comparestring

Exemplo Spinedit1.Value: = Ansistlicomp (PChar (edit1.Text), PChar (edit2.text),

Spinedit2.value)

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

Função de cabeçalho Ansistrlower (str: pchar): pchar; $ [sysutils.pas

Função retorna o ponteiro string minúsculas

Indica que caracteres não capsulares não são processados

Função de referência Windows.CharLower

Exemplo de edit2.text: = Ansistrlower (PChar (edit1.text));

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

Função de cabeçalho AnsistRupper (STR: PCHO): PChar; $ [sysutils.pas

Função retorna capitalização de string de ponteiro

Indica que os caracteres não-lowercase não são processados

Função de referência Windows.Charupper

Exemplo de edit2.text: = AnsistRupper (PChar (edit1.text));

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

Primeira função Ansilastchar (const S: String): PChar; $ [sysutils.pas

Função retorna o último personagem de ponteiro da string s

Descrição Quando a string s é uma string vazia, um ponteiro nulo é retornado.

Função de referência sysutils.bytetype

Exemplo edit2.text: = Ansilastchar (edit1.text);

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

Função de cabeçalho Ansistrlastchar (P: PChar): PChar;

Função retorna o último personagem de ponteiro da string de ponteiro P

Descrição Quando a string p é um ponteiro vazio, ele retorna um ponteiro vazio.

Função de referência sysutils.bytetype

Exemplo edit2.text: = AnsilastChar (PChar (edit1.text));

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

Função de cabeçalho WidePercase (const S: widestring): wideString;

Função retorna a capitalização de uma corda de byte duplo

Descrição caracteres de duplo byte wideChar

Função de referência Windows.CharUperBuffw

Exemplo edit2.text: = widePercase (edit1.text);

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

Primeira função widelowercase (const s: widestring): wideString;

Função retorna a forma minúscula de uma corda de byte duplo

Significa por que eu não posso testá -lo

Função de referência Windows.CharLowerBuffw

Exemplo edit2.text: = wideLowerCase (edit1.text);

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

Primeira função widecomparest (const s1, s2: widestring): número inteiro;

$ [Sysutils.pas

Função Retorno Comparação de duas cordas de byte duplo

Descrição Quando S1> S2 Retorna o valor> 0;

Função de referência Windows.comparestringw

Exemplo spinedit1.value: = widecomparest (edit1.text, edit2.text);

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

Primeira função widesamest (const s1, s2: widestring): boolean;

A função retorna se duas seqüências de bytes duplas são iguais

Descrição Case sensível

Função de referência sysutils.widecomparest

Exemplo de seleção Chox1.Checked: = wideSamest (edit1.text, edit2.text);

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

Primeira função widecomPareText (const S1, S2: wideString): Inteiro;

$ [Sysutils.pas

Função Retorno Comparação de duas cordas de byte duplo

Descrição Quando S1> S2 Retorna o valor> 0;

Função de referência Windows.comparestringw

Exemplo spinedit1.value: = widecomPareText (edit1.text, edit2.text);

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

Primeira função widesametext (const s1, s2: widestring): boolean;

$ [Sysutils.pas

A função retorna se duas seqüências de bytes duplas são iguais

Indica insensível ao caso

Função de referência sysutils.widecomPareText

Exemplo de seleção Chox1.Checked: = widesametext (edit1.text, edit2.text);

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

Função de cabeçalho Trim (const S: String): String;

Função da primeira função (const S: wideString): wideString;

$ [Sysutils.pas

A função retorna para remover os caracteres esquerdo e direito da string s

Personagens que indicam que menos de 32 são considerados caracteres invisíveis

Consulte o System.Copy

Exemplo edit2.text: = Trim (edit1.text);

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

Função de cabeçalho TRIMLEFT (const S: String): String;

Primeira função TRIMLEFT (const S: WideString): WideString;

$ [Sysutils.pas

Função retornar para remover os caracteres invisíveis à esquerda da string s

Personagens que indicam que menos de 32 são considerados caracteres invisíveis

Consulte o System.Copy

Exemplo edit2.text: = TRIMLEFT (edit1.text);

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

Função de cabeçalho Trimright (const S: String): String;

Primeira função Trimright (const S: wideString): WideString;

$ [Sysutils.pas

Função retornar para remover os caracteres invisíveis à direita da string s

Personagens que indicam que menos de 32 são considerados caracteres invisíveis

Consulte o System.Copy

Exemplo edit2.text: = Trimright (edit1.text);

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

Função de cabeçalho QuotedStr (const S: String): String;

Função retorna a expressão das strings em Pascal

Explicação: Uma única citação em uma única citação será convertida em dois

Consulte o procedimento System.Insert

Exemplo edit2.text: = quottr (edit1.text);

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

Primeira função AnsiquottStr (const S: String; Quote: Char): String;

$ [Sysutils.pas

Função retorna a expressão das strings s com a citação do personagem como citações

Descrição AnsiquottStr ('Hello' World ',

'@') = '@hello "World@'; AnsiquototStr ('Hello' World ','" ') =' "Hello" "World" '

Função de referência sysutils.Ansistrscan

Exemplo de edit2.text: = AnsiquOTSTR (Edit1.Text, '"');

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

Primeira função AnsiextractadosTSTR (var src: PChar; Quote: Char): String;

$ [Sysutils.pas

Função retorna a forma original da citação do personagem como cotações

Isso significa que o SRC permanece inalterado quando a expressão é ilegal.

Função de referência sysutils.Ansistrscan

exemplo

////////// comece AnsiextractadosTStr

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

P: PCHAR;

Começar

P: = PCHO (Edit1.Text);

Edit2.text: = AnsiextractadosTSTR (p, '"');

Edit3.text: = p;

fim;

////////// encerrar AnsiextractadosTStr

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

Função da primeira função ANSideCoTSTR (const S: String; Acote: Char): String;

$ [Sysutils.pas

Função retorna a forma original do personagem acote como citações

Quando a expressão é ilegal, ela retorna

Função de referência sysutils.ansiextractadosTSTR

Exemplo de edit2.text: = ANSideQuotedStr (Edit1.Text, '"');

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

Primeira função AjustLinebreaks (const S: String; Style: ttextLinebreakStyle =

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

string;

A função retorna para ajustar o separador de linha da string dada a uma sequência CR/LF

ilustrar

AjusteBrates ('1'#13'2 '#13) =' 1 '#13#10'2'#13#10; '2'#13#10

Função de referência sysutils.strnextchar

Exemplo <NULL>

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

Função de cabeçalho IsValidIdent (const ident: string): boolean;

Função retorna se o identificador de string é o identificador correto

Descrição Identificador :: Letters | sublinha [Letters | sublinha | Números] ...

Referência <NULL>

Exemplo de caixa de seleção 1.CHECKED: = ISVALIDIDENT (EDIT1.TEXT);

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

Função de cabeçalho Inttostr (Valor: Inteiro): String;

Função de cabeçalho Inttostr (Valor: Int64): String;

Função retorna o valor inteiro para converter para string

Descrição formato ('%d', [valor])

Função de referência sysutils.fmttr

Exemplo edit2.text: = inttostr (spinedit1.value);

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

Primeira função InttoHex (Valor: Inteiro; Digits: Inteiro): String;

$ [Sysutils.pas

Primeira função InttoHex (Valor: Int64; Digits: Inteiro): String;

$ [Sysutils.pas

Função retorna o valor inteiro convertido ao resultado de desempenho hexadecimal;

Descrição Os dígitos dos parâmetros especificam a largura mínima do caractere; se a largura mínima for insuficiente, ela será preenchida com 0.

Função de referência sysutils.fmttr

Exemplo edit2.text: = inttohex (spinedit1.value, spinedit2.value);

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

Função de cabeçalho STRTONT (const S: String): Inteiro;

Função retorna as strings para convertê -la em um número inteiro

Explicação: Uma exceção será causada quando uma string é expressa por não integral

Consulte o System.VAL do procedimento.Val

Exemplo spinedit1.value: = strtoint (edit1.text);

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

Primeira função strTointDef (const S: string; padrão: Inteiro): Inteiro;

$ [Sysutils.pas

Função retorna as strings para convertê -la em um número inteiro

O padrão é retornado quando a sequência é expressa por não integral.

Consulte o System.VAL do procedimento.Val

Exemplo spinedit1.value: = strTointDef (edit1.text, 0);

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

Primeira função TRYSTRTONT (const S: String; Valor out: Inteiro): Booleano;

$ [Sysutils.pas

Função retorna se a string s é convertida em valor inteiro com sucesso

Descrição False é retornada quando a string é expressa por não inteiro e o valor será lançado como 0

Consulte o System.VAL do procedimento.Val

exemplo

/////////// Comece o TrystroToint

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

I: Inteiro;

Começar

CheckBox1.Checked: = TrystrToint (edit1.text, i);

Spinedit1.value: = i;

fim;

/////////// final Trystroint

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

Função de cabeçalho STRTONT64 (const S: String): Int64;

Função retorna as strings para convertê-la em um número inteiro de sessenta e quatro bits

Explicação: Uma exceção será causada quando uma string for expressa por um número inteiro não 64 bits.

Consulte o System.VAL do procedimento.Val

Exemplo spinedit1.value: = strtoint64 (edit1.text);

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

Primeira função strtoint64def (const s: string; const padrão: int64): int64;

$ [Sysutils.pas

Função retorna as strings para convertê-la em um número inteiro de sessenta e quatro bits

O padrão é retornado quando a string é expressa pelo número inteiro não de 64 bits.

Consulte o System.VAL do procedimento.Val

Exemplo spinedit1.value: = strtoint64def (edit1.text, 0);

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

Primeira função TRYSTRTONT64 (const S: String; Valor out: Int64): booleano;

$ [Sysutils.pas

A função retorna se a string s é convertida em um valor inteiro de sessenta e quatro bits com sucesso

Descrição False é retornada quando a string é expressa por número inteiro não-quatro-quatro bits e o valor será lançado como 0

Consulte o System.VAL do procedimento.Val

exemplo

////////// Begin TrystrToint64

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

I: int64;

Começar

CheckBox1.Checked: = TrystrToint64 (edit1.text, i);

Spinedit1.value: = i;

fim;

////////// END TRYSTRTONT64

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

Primeira função strtoBool (const S: string): boolean;

Função retorna as strings para convertê -la em valor lógico

O caráter de explicação causará exceções quando não for expressado logicamente

Função de referência sysutils.trtToBool

例子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

exemplo

///////Begin TryStrToBool

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

B: Boolean;

Começar

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;

fim;

///////End TryStrToBool

Apegado

///////Begin TryStrToBool

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

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

var

I: Integer;

Começar

Result := False;

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

if AnsiSameText(S, aArray[I]) then

Começar

Result := True;

Quebrar;

fim;

fim;

var

LResult: Extended;

Começar

Result := TryStrToFloat(S, LResult);

if Result then

Value := LResult <> 0

outro

Começar

Result := True; //修正处

VerifyBoolStrArray;

if CompareWith(TrueBoolStrs) then

Value := True

else if CompareWith(FalseBoolStrs) then

Value := False

outro

Result := False;

fim;

fim;

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

exemplo

///////Begin StrMove

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

vBuffer: PChar;

Começar

vBuffer := '0123456789';

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

Edit2.Text := vBuffer;

fim;

///////End StrMove

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

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

$[SysUtils.pas

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

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

参考<NULL>

exemplo

///////Begin StrCopy

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

vBuffer: PChar;

Começar

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

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

Edit2.Text := vBuffer;

FreeMem(vBuffer);

fim;

///////End StrCopy

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

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

$[SysUtils.pas

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

说明可以连接指针字符串

参考<NULL>

exemplo

///////Begin StrECopy

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

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

Começar

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

Edit3.Text := vBuffer;

fim;

///////End StrECopy

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

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

PChar; $[SysUtils.pas

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

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

参考<NULL>

exemplo

///////Begin StrLCopy

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

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

Começar

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

Edit2.Text := vBuffer;

fim;

///////End StrLCopy

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

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

$[SysUtils.pas

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

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

参考function SysUtils.StrLCopy

exemplo

///////Begin StrPCopy

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

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

Começar

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

Edit2.Text := vBuffer;

fim;

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

exemplo

///////Begin StrPLCopy

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

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

Começar

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

Edit2.Text := vBuffer;

fim;

///////End StrPLCopy

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

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

$[SysUtils.pas

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

说明StrCopy(StrEnd(Dest), Source)

参考function SysUntils.StrCopy

exemplo

///////Begin StrCat

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

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

Começar

StrPCopy(vBuffer, Edit1.Text);

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

Edit3.Text := vBuffer;

fim;

///////End StrCat

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

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

PChar; $[SysUtils.pas

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

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

参考<NULL>

exemplo

///////Begin StrLCat

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

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

Começar

StrPCopy(vBuffer, Edit1.Text);

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

Edit3.Text := vBuffer;

fim;

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