Funcion Array Dinamico???
Buenas tardes,
A ver si algun buen samaritano me puede iluminar. Intentaré explicarme lo mejor posible: Mi intención es crear una función en una clase de una unidad con la particularidad de que la salida de esta funcion es un array dinámico. como ponerlo direcrtamente no lo permite Delphi, creo antes un tipo con ese array publico y lo utilizo. El problema es que no consigo hacer que corra y aparentemente esta todo bien. os paso el código simplificado: unit 2
y en la 1 o principal:
error runtime error 217 :confused: gracias |
Hola franz, si lo que necesitas es un array dinamico de cadenas, creo que sería mucho mejor qur utilizaras un StringList, ya que justamente es una lista de cadenas, veo también en tu codigo que le pasas una cadena delimitada por ; y despues vas separando para colocarlo en cada posición de tu arreglo, para eso el StringList cuenta con las propiedades delimer (tu delimitador) y delimiterText (la cadena).
Saluditos |
Cita:
Estoy acostumbrado a programar en VB y esto se hace más facil allí. Alguna manera habrá de que la función pueda mandar el resultado en un Array dinámico; es más si se hace lo mismo pero utilizando un procedimiento con ( VAr parametros), si que no da error! curioso, no?? Gracias y un saludo |
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:
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:
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 |
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; |
La franja horaria es GMT +2. Ahora son las 07:26:07. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi