funcion split de una cadena

[ecfisa]

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.