Como usar mejor uses

[alextmb]

tengo un project con 11 forms, de los cuales necesito abrir en un main menu del form principal o del form1 para lo cual lo he declarado asi

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Unit2, Unit3,
  Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11, Forms, Dialogs, Menus;

procedure TFPrincipal.pptClick(Sender: TObject);
begin
  Fppt.Show;
end;

procedure TFPrincipal.SeryEscClick(Sender: TObject);
begin
  Form1.Show;
end;

procedure TFPrincipal.ruletaClick(Sender: TObject);
begin
  Fruleta.Show;
end;

procedure TFPrincipal.dadosClick(Sender: TObject);
begin
  Fdados.Show;
end;

procedure TFPrincipal.ruleta36Click(Sender: TObject);
begin
  Fruleta36.Show;
end;

procedure TFPrincipal.FormulaClick(Sender: TObject);
begin
  Fformula.Show;
end;

procedure TFPrincipal.NombresClick(Sender: TObject);
begin
  Fnombres.Show;
end;

procedure TFPrincipal.tablas10Click(Sender: TObject);
begin
  Ftabladiez.Show;
end;

procedure TFPrincipal.tablas100Click(Sender: TObject);
begin
  Ftablas100.Show;
end;

procedure TFPrincipal.IncreyDecreClick(Sender: TObject);
begin
FIncreyDecre.Show;
end;

{...}

como le puedo hacer para que en use no tenga que escribir cada uno de los unit??

[dec]

Hola,

Planteada así la cuestión, si tú tienes que usar 10 ó 20 formularios en una determinada unidad (la de otro formulario, por ejemplo), no te queda sino incluir en la cláusula "uses" las distintas unidades de cada uno de los formularios. Ya digo que es lo que se me ocurre a bote pronto. Tal vez se puedan plantear las cosas de otro modo, pero, tal como están no se me ocurre otra cosa que decirte. ¡Qué poca imaginación!

[JXJ]

ayer te conteste. una forma. pero no aparece.
publicada.

La idea es esta. tal vez necesite de arreglos.

toma todas las units que uses.
eliminalas de la seccion uses.
ya que no las quieres tener ahi
ponlas en un archivo de texto.
por ejemplo

MisUnits.txt

dentro. las units algo asi.

Código Delphi [-]
Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11;

---------
con o sin ;
asi en donde necesites de units. en lugar de agregar

Código Delphi [-]
Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11;

Agregas

Código Delphi [-]
MisUnits;

Esto por que encontre un proyecto que usa
un archivo de texto solo con procedures.
no tiene los identificadores de un archivo pas
el uses, el unitname. y otros.
puros procedmientos y funciones.
----

[rastafarey]

Cual es el pero del uses si a la final el compialdor arrreglara todo el peo por ti. Est eeliminara toda la basura que iucluyas y no uses. Comiensa por preocuperte por no comerte toda la memoria. Para que tienes tantas formas creadas desde un principio no creo que las usase todas a la ves.

Por eso es por lo hay que preocuparse.

[fidel]

Hola:

Si ya tienes todo puesto en el uses ¿para que lo quieres quitar?, no creo que te moleste, es una línea.

Otra cosa es si está bien planteado tener tantas forms así.

Mira en la paleta Win32 el componente PageControl, es simplemente por si te interesa utilizarlo para algo.

Un saludo.

[alextmb]

Me ha funcionado sus consejos, gracias
y si me han hecho pensar si en verda es nesesarios que cree tantos forms
por sus consejos muhcas TKs