Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Como usar mejor uses (https://www.clubdelphi.com/foros/showthread.php?t=27939)

alextmb 05-12-2005 01:08:03

Como usar mejor uses
 
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 05-12-2005 09:03:50

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 05-12-2005 14:36:46

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 05-12-2005 15:37:15

Resp
 
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 06-12-2005 22:09:02

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 07-12-2005 03:39:05

Gracias
 
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


La franja horaria es GMT +2. Ahora son las 06:13:20.

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