Categorias

Arquivos
Sistema
Matemática
Strings
Datas

Contato
Henrique Lobo Weissmann
kicolobo@terra.com.br ou
kicolobo@itexto.net

Utilização da itutilib

itexto - http://www.itexto.net

Strings

function SubstituiStr( Origem, Antigo, Novo : string ): string; (1.2)
Retorna uma função na qual todas as ocorrências de uma substring, representada por Antigo serão substituídas pela substring Novo.
Por exemplo:

SubstituiStr('Eu estou aqui!','aqui','lá') retornará 'Eu estou lá!'

function StrIsTime(str: string):boolean; (1.2)
Retorna true caso a String esteja representando corretamente um valor do tipo Time

function StrToMoedaLocal(valor:currency;Local:integer = $00000416):string; (1.1)
Converte uma variável do tipo Currency para uma String contendo a representação monetária.
Deixando o valor padrão do parâmetro Local, a conversão será feita para o Brasil. Abaixo seguem alguns dos valores possíveis para o parâmetro Local

Inglês (Estados Unidos) $00000409
Espanhol (Argentina) $00002C0A
Espanhol (Bolívia) $0000400A
Alemão (Alemanha) $00000407
Alemão (Austria) $00000C07

Procure no MS-SDK mais exemplos de linguagens suportadas pela plataforma Windows.
Exemplo:

StrToMoedaLocal(valor) //Converte para as configurações Brasileiras
StrToMoedaLocal(valor,$00000409) converte para as configurações Norte-Americanas

 

function StrSubstituiChar(str:string;chAntigo:char;chNovo:char):string; (1.1)
Substitui todas as ocorrências de um caractere dentro de uma string.
Exemplo:

StrSubstituiChar('olá, como vai','a') retornará
olá, como vi

function InverteString(str:string):string;stdcall;
Inverte a ordem dos caracteres dentro de uma string.
Exemplo:

InverteString('casa') retornará 'asac'

function LimpaEspacos(str:string):string;
Excluí todas as ocorrências do caractere de espaço em uma string.
Obs:
Utilizando StrSubstituiChar(String,' ') obtém-se o mesmo resultado
Exemplo:

LimpaEspacos('olá, como vai') retornará 'olá,comovai'

function ExisteStrInLista(str:string;strlist:tstringlist):boolean;
Verifica a existência de uma string dentro dos valores de uma variável do tipo TStringList, retornando true em caso positivo.

function StrInListaPos(str:string;strlist:tstringlist):integer;
Retorna a existência de uma string dentro dos valores de uma variável do tipo TStringList, retornando -1 caso esta não exista.

function after(const Search, find: string): string;
Retorna o resto de uma string após a string representada por find
Exemplo:

after('olá, como vai','olá,') retornará ' como vai'

function CharPos(chr:char;str:string):integer;
Retorna a primeira localização de um dado caractere dentro de uma string.
Exemplo:

CharPos('@','kicolobo@terra.com.br') retornará 9

function StrIsInteger(const s: string):boolean;
Verifica se uma variável do tipo string está representando corretamente uma valor inteiro.

function StrIsFloat(const s: string):boolean;
Verifica se uma variável do tipo float está representando corretamente um valor do tipofloat.

function IsNumVal (StrVal: string): boolean;
Verifica se uma variável do tipo string está representando corretamente um valor numérico (seja ele float, integer, double, etc)

function EncryptMsg (Msg1: string; EncryptNo: integer): string;
Encripta uma string baseando-se no algarismo fornecido no parâmetro EncryptNo

function DecryptMsg (Msg1: string; EncryptNo: integer): string;
Decodifica uma string encriptada pela função EncryptMsg

function Ocorrencias (chr:char; str:string):integer;
Retorna o número de ocorrências de um caractere dentro de uma string.

procedure ExcluiStrInLista(str:string;strlist:tstringlist);
Exclui determinado valor de string dentro de uma variável do tipo TStringList.

procedure IntOrdenar(lista:tstringlist);stdcall;
Em variáveis do tipo TStringList que estejam armazenando valores numéricos, este procedimento os ordenará em ordem crescente.