Manipulações De String....

[Skin_]

Pessoal, sobre manipulação de Strings:

1) Dá pra usar expressão regular no Delphi? Sendo assim, qual o comando para localizar uma expressão regular dentro de uma string? Se não der pra usar, como eu faço para garantir que num EDIT o texto digitado seja #.# (isto é, números<ponto>números)? Não quero usar máscara porque não oferece o retorno esperado!

2) Existe uma função "explode" que quebra uma string em algum caracter pedido (por exemplo, um exspaçõ em branco) e retorna um vetor? "Eu queria recuperar o primeiro nome de um nome composto informado por um usuário num TEdit".

Obrigado

André

[Eder Moraes]

//Como separar termos de uma string usando comandos básicos como Delete, Copy e Pos e guardar os valores em um array.

//Supondo que tenho um arquivo que o formato de cada linha seja "website|titulo|descricao|categoria", gostaria de enviar cada termo para um array e disponibilizar em um Listbox o website e a categoria. Difícil? Não.

var

MeuArray: array of array of string;

// Em MeuArray tenho que:

// MeuArray[0][0] = Website da 1ª linha

// MeuArray[0][1] = Título da 1ª linha

// MeuArray[0][2] = Descrição da 1ª linha

// MeuArray[0][3] = Categoria da 1ª linha

Arquivo: TStringList;

// Arquivo é uma variável TStringList, que facilitará o uso das strings;

LoopI,PosBarra: Integer;

// Em LoopI será executado um "for".

// PosBarra é a posição de "|".

Linha: String;

// Linha é a linha que está sendo executada no momento.

begin

Arquivo:=TStringList.Create;

Arquivo.LoadFromFile('C:\Sites.txt'); // Abrir o arquivo C:\Sites.txt.

SetLength(MeuArray,Arquivo.Count+1,4); // Definir o tamanho do array.

for LoopI := 0 to Arquivo.Count -1 do // Fazer o "for".

begin

Linha:=Arquivo.Strings[LoopI]; // Linha atual.

PosBarra:=Pos('|',Linha);

MeuArray[LoopI][0] := Copy(Linha,1,PosBarra-1);

Delete(Linha,1,PosBarra); // Deleta, porque já peguei valor do 1º

PosBarra:=Pos('|',Linha); // Pega novamente a posição de "|"

MeuArray[LoopI][1] := Copy(Linha,1,PosBarra-1);

Delete(Linha,1,PosBarra);

PosBarra:=Pos('|',Linha);

MeuArray[LoopI][2] := Copy(Linha,1,PosBarra-1);

Delete(Linha,1,PosBarra);

PosBarra:=Pos('|',Linha);

MeuArray[LoopI][3] := Linha; // É o que restou da variável Linha.

ListBox1.Items.Add(MeuArray[LoopI][0]+': '+MeuArray[LoopI][2]);

end;

Arquivo.Free;

end;

//este arquivo pode ser substituido por uma variavel:textfile; ou até mesmo um tmemo ou outro componente como tedit