Error en funcion para dividir cadenas
 

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

Prueba poniendo el ciclo así:

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

// Saludos

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

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...!');