Como crear clases correctamente?

[[Lepe]]

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)