Dividir String em delphi

Com o uso da função

ExtractStrings(delimitador,espaco_branco,string,resultado);

pode-se dividir uma string. Onde:

• delimitador como o próprio nome diz, é o caracter que separa as sub-strings;
• espaço_branco é o conjunto de caractes a serem ignorados;
• string é a string propriamente dita, a qual se deseja dividir;
• resultado é a lista de sub-strings retornadas.

obs: ExtractStrings não adicona strings vazias na lista de strings.

Um caso de uso.

Suponha que em uma consulta de cep, o resultado venha em uma única string onde as sub-strings estão divididas pelo caracte pipe(|), e você deseja separar os resultados em diferentes variáveis. Para isso ao inves de criar uma função para varrer a string e ir concatenando o resultado em suas variaveis, use a função nativa do delphi ExtractStrings, como veremos logo abaixo.

…

var

CEP,logradouro,bairro,cidade,estado : string;

lista:TStringList;

begin

lista:=TStringList.Create;

CEP:=ConsultaCEP();

ExtractStrings([‘|’],[‘ ‘],pchar(CEP),lista);

logradouro:=lista.Strings[0];

bairrro:=lista.Strings[1];

cidade:=lista.Strings[2];

estado:=lista.Strings[3];

FreeAndNil(lista);

…

Isso resolve todo o problema em dividir uma string;

Por enquanto é só.

Até a próxima.

fonte: Help Delphi