Temos também uma forma ainda mais prática com a função “ExtractStrings” da unit Classes.

function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;

Separator – É um array onde você pode definir vários separadores
WhiteSpace – É um Array onde você define os caracteres que devem ser Ignorados quando ocorrerem no inicio da String.
Content – É a String de onde se deseja extrais as substrings.

E a Função ainda retorna o número de Substrings extraídas.

Neste caso seria +/- assim:

…
const
sStrings = ‘”Barack Obama”,”President”,”United States”,”04/08/1961″‘;
var
List: TStringList;
I,
iRetorno:Integer;
begin
Lista := TStringList.Create;
try
try
iRetorno := ExtractStrings([‘;’],[‘ ‘],PChar(sStrings), List);
for I := 0 to iRetorno do
Writeln(List[I]);

Readln;
except
on E: Exception do begin
Writeln(E.ClassName, ‘: ‘, E.Message);
Readln;
end;
finally
FreeAndNil(List);
end;
end;

Uma das vantagens é que podemos passar vários delimitadores para a mesma string.

abraços
Carlos Eduardo Paulino
cadumicro@hotmail.com