Função Explode do PHP em Delphi
Mais uma dica pra quem vem de outras linguagens e não encontra no Delphi o que estava acostumado a usar.
A função Explode do PHP divide uma string em várias outras conforme um separador qualquer. Por exemplo, a string “teste1;teste2″ explodida utilizando o separador “;” retorna um array de strings onde na primeira posição está a palavra “teste1″ e na segunda “teste2″.
Em Delphi eu criei algo semelhante:
Existem algumas diferenças entre a minha implementação e a oficial do PHP. A idéia não era fazer um clone, mas sim uma adaptação, de tal forma que o resultado final (uma lista de strings) pudesse ser obtido a partir de um conteúdo qualquer (strings separadas por algum delimitador).
Para utilizá-la basta fazer como no exemplo abaixo:
Até +.
Muito obrigado por disponibilizar este fonte, é muito valioso pra quem está acostumado com o PHP….
Parabéns pelo raciocínio e disposição!
muito bom, foi util.
obrigado,
Ivan
O Delphi possui uma função chamada ExtractStrings na unit Classes com a mesma funcionalidade do Explode do PHP.
Declaração
function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;
Exemplo de uso:
ExtractStrings([';'], [' '],’valor1;valor2;valor3′, Memo1.Lines);
Tb estive procurando pelo explode e encontrei esta função. Achei interessante comentar já que é uma função do próprio Delphi…
Fala galera!!! Já faz tempo esse post… usando ExtractStrings tive problemas com acentos. A função do Marcos funcionou perfeitamente, alem de ser muito mais simples de utilizar…
Abraços