Funcion Array Dinamico???

[roman]

Es conveniente que consideres lo que te comenta Caro porque puede facilitarte las cosas. Ahora bien, el error que tienes está en la línea:

Código Delphi [-]
ArrayA[Dim] := Copy (S, loc, Abs(loc-locA));

Los arreglos dinámicos están basados en cero, esto es, los índices son 0, 1, 2, etc., de manera que el índice del último elemento es uno menos que la cantidad de elementos:

Código Delphi [-]
ArrayA[Dim - 1] := Copy (S, loc, Abs(loc-locA));

Tu algoritmo además, es incorrecto, pero eso ya lo verás una vez que corrijas lo anterior, o bien toma la opción de Caro.

// Saludos

[franss]

gracias a los dos. Con las prisas no he probado el algoritmo. lo cuelgo abajo para quien pueda interesarle. Ahora si funciona perfectamente.

type
TStringArray= Array of String;
TCadenas= Class
private
public
Function SplitS(const s: String; const separador: String= ';'): TStringArray;
end;
implementation
{ TCadenas }
function TCadenas.SplitS(const s: String; const separador: String= ';'): TStringArray;
var
loc,locA, Dim: integer;
ArrayA: TStringArray;
begin
loc:= 0;
locA:=0;
Dim:=1;

SetLength (ArrayA, Dim); // Dimensiono
loc:= PosEx(Separador,s,1); //Busco el lugar del primer separador del String
ArrayA[Dim-1]:= Copy (s,1,loc-1); // Añado al array
Dim:= Dim +1;


Repeat
locA:= PosEx (separador, s, loc + 1); // busco el lugar del n separador
SetLength (ArrayA, Dim);
ArrayA[Dim-1]:= Copy (s, loc + 1 , Abs(loc-locA)-1);
Dim:=Dim + 1;
loc:= locA;
until loc=0;

Result:= ArrayA
end;