[firebase-br] OFF-Toppic - Delphi - Função SplitString

[Henrique Ribeiro]

Boa tarde colegas,

Desde já, eu agradeço qualquer tipo de ajuda que possam me dar.
Muito obrigado mesmo.

No Delphi 7 (única versão que tenho) não existe a função "SplitString" que
existe em versões superiores.

Estou tentando resolver uma situação mas estou meio perdido porque acabo
gerando resultados inesperados.

É referente a rotina de leitura de uma string com dados de boletos que
gerei.
Vou compartilhar com vocês:

Na string abaixo:

##OK*|*|2*|*|##OK*|*|1*|00000000000000000000000000000000000000000000000*|
https://faturas.iugu.com/41e48012-45f1-47d2-8ad9-c5751e9e8075-ab5f*|41E4801245F147D28AD9C5751E9E8075%%OK*|*|2*|00000000000000000000000000000000000000000000000*|https://faturas.iugu.com/b761961a-fd83-4dd8-976c-e5689c507019-511c*|B761961AFD834DD8976CE5689C507019%%OK*|*|3*|00000000000000000000000000000000000000000000000*|https://faturas.iugu.com/7be4f119-5d2e-41fd-b0d9-42951c0d54f2-88ba*|7BE4F1195D2E41FDB0D942951C0D54F2%%OK*|*|4*|00000000000000000000000000000000000000000000000*|https://faturas.iugu.com/51221b70-0e4d-47b9-a5f5-60676302b145-cbd9*|51221B700E4D47B9A5F560676302B145##

Eu preciso:
1- efetuar um Split por ##
2 - vai retornar um array com 4 itens
2.1 - o primeiro e o último vou descartar, pq estão vazios
2.2 - o segundo são os dados da fatura
2.3 - o terceiro dos boletos
6 - com o de boletos, efetuar outro Split por "$$"
7 - se tiver mais de um boleto, como no caso acima, vai gerar um array com
cada um dos boletos
7.1 - tendo mais de um boleto, preciso executar outro Split por "*|" pra
pegar os itens

Muito obrigado novamente.
Desejo sucesso e prosperidade a todos vocês.

Att,
Henrique

Graça a vós e paz da parte daquele que é, e que era, e que há de vir
(Apocalipse
1:4 <https://www.bibliaonline.com.br/acf/ap/1/4+#v4>).
Pois ainda em bem pouco tempo aquele que há de vir virá, e não
tardará.  (Hebreus
10:37) <https://www.bibliaonline.com.br/acf/hb/10/37+#v37>