Quebra um array transformando em texto

Exemplo da Rotina:

cDados := ArrTokStr(aDados)

Exemplo 1- Quebrando um array simples em texto:

aNomes := {"Daniel", "Atilio", "Terminal de Informação"}
cNomes := ArrTokStr(aNomes) //Daniel|Atilio|Terminal de Informação

Exemplo 2- Quebrando um array multidimensional em texto:

aNomes := {{"Daniel", "26"}, {"João", "60"}, {"Terminal", "7"}}
cNomes := ArrTokStr(aNomes) //{"Daniel","26"}|{"João","60"}|{"Terminal","7"}

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;