como usar el valor de una variable

[[jesusomarsanche]]

creo que no me explique muy bien,
tengo una aplicacion, donde el usuario selecciona un producto el cual tiene de una a n cavidades, lo que hace el programa es darle la obcion al usuario de representar esas cavidades en una fotografia, para despues usar esa informacion en una ayuda visual.
para no tener que crear 200(por decir una cantidad) quiero saber como puedo crear un label en tiempo de ejecucion sin haverlo declarado antes, con un array como mensionaste se solucionaria pero al ponerle

var i : Integer;
    a,b:array of tlabel;
    lstemp :string;
begin
  for i := 1 to N do begin
    lstemp:='Label'+inttostr(i)
    a[i]:= a[i].Create(lstemp);{marca error de incompatibilidad}
    b[i]:=tlabel.Create(b[i]); {marca violacion de acceso}
    lstemp := lstemp +'.caption';
    lstemp := 'lo que sea' {me iguala lstemp a 'lo que sea' en lugar de
                            asignarselo al labeln}
  end;

eso me simplificaria mucho codigo, a demas de que no seria finito el numero de objetos a manejar por mi aplicacion.
en este momento lo solucione creando 126 label y con un case segun el valor de i trabajo con el label pero estoy limitado a 126 cavidades.

[[maeyanes]]

Puedes usar la estructura TList o TObjectList para lograr lo que deseas.

Sobre el error de incompatibilidad, este se da por la forma como quieres crear el objeto TLabel, lo correcto sería:

Código Delphi [-]
a[i] := TLabel.Create(nil);

Aquí tienes un pequeño ejemplo usando un TList:

Código Delphi [-]
procedure TForm1.CrearCavidades(ALabelList: TList; NoCavs: Integer);
var
  I: Integer;
  ALabel: TLabel;

begin
  for I := 1 to NoCavs do
  begin
    ALabel := TLabel.Create(Self);
    ALabel.Caption := Format('Cavidad %d', [i]);
    ALabel.Parent := Self; // La etiqueta se muestra en la forma
    // Aquí faltaría código para posicionar las diferentes etiquetas que se vayan creando.
    ALabelList.Add(ALabel)
  end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FLabelList := TList.Create;
  CrearCavidades(FLabelList, 5) // Crea 5 etiquetas y las guarda en FLabelList
end;

Espero que con esto te des una idea de como puedes lograr lo que necesitas...


Saludos...

[[jesusomarsanche]]

Gracias a todos.
en el foro encontre algo que me soluciono el problema,

http://www.clubdelphi.com/foros/showthread.php?t=21387

solo tuve que agregarle, para que me los borrara

  
procedure poscavidades.ocultalabels;
var
      i   : integer;
begin
    i:= 26; {los componentes anteriores son del formulario}
    while i < poscavidades.componentcount do begin
        if uppercase(leftstr(components[i].Name,5))='LABEL' then begin
            poscavidades.Components[i].Destroy;
        end else begin
            inc(i);
        end;
    end
end;

espero les sirva