Hola.
Agrego otra opcion:
Código Delphi
[-]
...
type
TVecStr = array of string;
procedure SplitStrToArray(Cadena: string; const Delimitadores: string; var V: TVecStr);
var
c,i,p:Integer;
begin
Cadena:= Cadena + Delimitadores[1];
c:=0;
p:= 1;
for i:= 1 to Length(Cadena) do
begin
if Pos(Cadena[i], Delimitadores) <> 0 then
begin
SetLength(V, Length(V) + 1);
V[c]:= Copy(Cadena, p, i-p);
p:= i + 1;
Inc(c);
end;
end;
end;
Ejemplo de uso:
Código Delphi
[-]
...
var
v: TVecStr;
i: Integer;
begin
SplitStrToArray('SplitStrToArray:Función que-parte;una.cadena;en,un arreglo con.varios-delimitadores', ' ,;-.:', V);
for i:= Low(v) to High(v) do
ListBox1.Items.Add(v[i])
...
Saludos.