función split en delphi

[mcinpapr]

Función de Split
Nota: Esta función de Split no funciona con un Separador de varios Caracteres pero funciona muy bien con uno sólo:

-----------------------------------------------------------
// 1er Paso Declaras el Arreglo en la cabecera de tu .pas
Type TArreglo = array of String;


-------------------------------------------------------
// 2o Paso - Copias la siguiente función en tu .pas dentro del cuerpo de tu programa
Function Split (cad : String; separador : string): TArreglo;
var
tam, t, i, j : integer;
arr : TArreglo;//array of string;
begin
t:=0;
j:=0;
tam := StrLen(PChar(cad));

for i:=0 to tam -1 do
begin
if cad[i]=separador then
t:= t+1;
end;
SetLength(arr, t+1);

for i:=1 to tam do
begin
if cad[i]<>separador then
begin
arr[j] := arr[j]+cad[i];
end
else
begin
j:= j+1;
end;
end;
Result := arr;
End;

---------------------------------------------------
// 3er Paso - Llamar a la Función
arrFileName := split(strCadenaAEditar, '\');

Donde :
arrFileName la Declaras como de tipo "TArreglo",
strCadenaAEditar es la cadena que quieres separar, y
'\' es el caracter separador.