Yo veo un problema aqui:
Código Delphi
[-]
function TSprite.AddSec(MIsec:TSecuencia):integer;
begin
if Count<=MAXSEQ then
begin
inc(count);
if Secuencia[Count]=nil then
Secuencia[Count]:=TSecuencia.Create; <--- misma variable asignada
miSEC.numero:=Count;
if Misec.NOmbre='' then
MIsec.Nombre:='SEC'+IntToStr(Count);
Secuencia[Count]:=Misec; <---- misma variable asignada
result:=Count;
end
else result:=-1
end;
Si secuencia[count] es nil, estás creando un nuevo objeto en memoria. Posteriormente haces: Secuencia[count] := Misec; eso quiere decir que el Objeto que creaste en memoria se pierde, es decir, estás creando memoria que nunca se podrá liberar.
En principio hay dos soluciones que depende de tu criterio:
- Copiar los datos de Misec al nuevo objeto recien creado (secuencia[Count].Nombre := Misec.Nombre)
- No crear el objeto en memoria y dejar sólo la línea Secuencia[count] := Misec. Pero esto puede tener problemas si más tarde liberas el objeto... por ejemplo, el siguiente código dará problemas:
Código Delphi
[-]
var sec :TSecuencia
sprite:TSprite;
begin
sec := TSecuencia.create;
sprite := TSprite.Create;
sprite.AddSec(sec);
sec.Free; --> problema cuando accedas a esa secuencia a través de sprite, Access violation.
Otra variación es usar un TObjectList en lugar de arrays (busca en el foro por Tobjectlist)