Calcular tiempo

[Cosgaya]

hola a todos:
tengo un problema con un programa para calcular numeros primos
trabajo con delphi 7.
resulta que el bucle para calcular los numeros primos me consume todo el procesador y queria calcular el tiempo que tarda en completarse con un componente timer que sume uno cada segundo a una variable pero resulta que no empieza a sumar hasta que se acaba el proceso para sacar numeros primos, si pueden ayudarme
gracias
este es el codigo:

Código Delphi [-]
unit primo;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  numero:longint;
  cantidad:longint;
  division:longint;
  confir:longint;
  hora:integer;
  minuto:integer;
  segundo:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled := true;
cantidad :=(strtoint(edit1.Text));
numero :=2;
division :=2;
while (numero < cantidad)do
begin
    while(division <= numero)do
    begin
      // comprabar si numero es divisible
      if numero mod division = 0 then
      begin
       confir := confir +1;
      end;
    division := division +1;
   end;
   division :=2;
  if confir =1 then
  begin
  memo1.Lines.Add(inttostr(numero));
  confir := 0;
  end
  else begin
  memo2.Lines.Add(inttostr(numero));
  confir :=0;
  end;
numero := numero +1;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
segundo := (strtoint(label1.caption)) +1;
label1.caption := (inttostr(segundo));
timer1.Enabled := true;
end;
end.

[dec]

Hola,

Se me ocurren dos cosas: una, que utilizes el método de "Application" "ProcessMessages" en el interior de alguno de los bucles, o en todos ellos; y dos, que utilizes un Hilo aparte para el procedimiento que se "come" al Hilo principal de la aplicación.

[Cosgaya]

hola dec, soy no vato en delphi.
me podrias explicar como es para crear otro hilo??
gracias

[dec]

Hola,

Bueno, el tema de las aplicaciones multi-hilo tiene mucha tela que cortar, y yo no podría ni hacerme un chaleco, pero, muy sencillamente, el propio IDE de Delphi te lo pone bastante hacedero. Siguiente el menú File -> New -> Others -> Delphi Files (esto en Delphi 2006) -> Thread Object el entorno de preparará una plantilla que incluye prácticamente todo lo que necesitas para emplear un Hilo de ejecución separado del principal de la aplicación.

Básicamente, insisto, en la plantilla encontrarás un método de nombre "Execute" ya declarado he implementado (a falta que añadas en él el código fuente que quieres que se ejecute en el Hilo de marras). Es ahí donde puedes ejecutar el código que se "zampa" al Hilo principal de la aplicación. Bien, pero, ¿cómo inicias el Hilo? Pues creándo el objeto correspondiente, como cualquier otra clase, algo así:

Código Delphi [-]
  FMiHilo := TMiHilo.Create(false);

Con solo esa instrucción estarás creando el Hilo, y, en virtud del parámetro del constructor (false, en este caso) estarás haciendo (más información en la ayuda) que comienze la ejecución del método "Execute" del Hilo. Lo que ocurre es que esa ejecución se llevará a cabo en otro Hilo distinto del principal, de tal modo que tu aplicación pueda seguir con otras tareas, por ejemplo, o, simplemente, mostrando una interfaz "disponible" para el usuario.

En estos Foros se habrá tratado más de una vez y más de dos el tema de los Hilos. Yo no te puedo procurar mucha más información, sino decirte que la complejidad del tema acaso deba ir un poco en función de tus necesidades: es posible que con poco que aprendas sobre ello te sea más que suficiente para llevar a cabo lo que precisas, quiero decir. Y, por otro lado, ¿probaste con el método "ProcessMessages" de "Application"? Puede que para lo que quieres hacer sea bastante.

Actualización: Adjunto un ejemplo muy, muy sencillo a ver si se aprecia la idea.

[Cosgaya]

no, no he probado con el método "ProcessMessages" de "Application", porque todavia no se de que va eso, ahora iba a investigar por el foro, pero tambien probare lo del hilo para ver como es.
muchas gracias dec.

[Chente(rMan)]

y si pruebas usando GetTickCount junto con un Application.ProcessMessages


Saludos.

Vicente López.

[roman]

Algunos comentarios respecto a tu código:

• El ciclo interior
  
  

  Código Delphi [-]
  while (division <= numero) do

  
  puedes sustituirlo por
  
  

  Código Delphi [-]
  while (division*division <= numero) do

  
  con lo cual ahorras muchas vueltas.
  
  
• En el momento en que encuentras un divisor:
  
  

  Código Delphi [-]
  confir := confir +1;

  
  ya no es necesario continuar el ciclo interior. Usa break para interrumpirlo.
  
  
• Si vas a usar sentencias como
  
  

  Código Delphi [-]
  memo1.Lines.Add(inttostr(numero));

  
  durante el proceso, asegúrate de poner Memo1.Lines.BeginUpdate antes de comenzar y Memo1.Lines.EndUpdate al terminar. Esto porque, además del tiempo requerido por el algortimo en sí, pierdes bastante para actualizar un control visual.
  
  
• Finalmente, no entiendo qué quieres hacer con el Timer. Toma en cuenta que conforme numero crezca, cada vuelta del ciclo tarda más, así que no puedes tener una estimación uniforme.

// Saludos