Error en funcion para dividir cadenas

[vgpastor]

Hola buenas tardes.

Llevo poco tiempo con esto de delphi y el embarcadero; y he de decir que este foro me ha resuelto muchas de mis dudas de novato.¡, asi que de antemano gracias a todos.

Os presento a mi funcion:

Código Delphi [-]
function obtener_delista(lista:Tarray_simple;delimitador:char;posicion:integer):tarray_simple
var
l:integer;
begin
for l:=0 to length(lista) do
begin
with TstringList.Create do
try
delimiter:= delimitador;
delimitedtext:= lista[l];
result[l] := string[posicion];
finally
Free;
end;
end;
end;

Bueno pues el problema es que al llamarla me sale un error de exception class EAccessViolation address004045B4

Llevo unos dias cambiando de todo y siemrpe dice lo mismo y ya no se por donde continuar, porfavor podrian echarme una mano(no al cuello,aunk me la merezca).

Un Saludo

[roman]

Prueba poniendo el ciclo así:

Código Delphi [-]
for l:=0 to length(lista) - 1 do

// Saludos

[vgpastor]

nada no ha habido suerte me sigue mandando al mismo error, alguna otra solucion

[cloayza]

Será posible que la variable posicion sea mayor que el número de items del TStringlist?

Yo verificaria si se produce ese caso...

Código Delphi [-]
If (Posicion<=Count-1) Then
   result[l] := string[Posicion]
Else
   Showmessage('Estas buscando fuera de los limites...!');