Disponible el nuevo Delphi XE7

[[nlsgarcia]]

mamcx,

Empezado por mamcx

...Me suena lo de paralelo. ¿Alguna información de como es la codificación?...

Al parecer tiene que ver con este nueva clase en Delphi XE7 : TParallel



Revisa este fragmento de código:

Código Delphi [-]
  procedure TLifeEngine.TLifeThread.Execute;
  var
    Update, Timer: TStopwatch;
    I: Integer;
  begin
    NameThreadForDebugging('Life Thread');
    Update := TStopwatch.StartNew;
    while not Terminated do
    begin
      Timer := TStopwatch.StartNew;
      if Length(FNewBoard) > 0 then
      begin
        FOriginalBoard := FNewBoard;
        FNewBoard := nil;
      end else
        FOriginalBoard := FLifeEngine.FLifeBoard;
      SetLength(FNewBoard, Length(FOriginalBoard), Length(FOriginalBoard[0]));
      if FParallel then
     begin
       TParallel.For(Low(FOriginalBoard), High(FOriginalBoard),
       procedure (Value: Integer)
       begin
         ProcessCells(nil, Value);
       end);
     end else
       for I := Low(FOriginalBoard) to High(FOriginalBoard) do
         ProcessCells(nil, I);
    FGensPerSecond := {FFrequency / (EndTicks - StartTicks)} Timer.Frequency / Timer.ElapsedTicks;
      if Update.ElapsedTicks >= Update.Frequency div FLifeEngine.UpdateRate then
      begin
        FUpdating := True;
        Synchronize(UpdateGeneration);
        Assert(not FUpdating);
        Update := TStopwatch.StartNew;
      end;
      Inc(FLifeEngine.FGenerationCount);
      //Sleep(100);
      FElapsed := Timer.ElapsedTicks;
    end;
  end;

El fragmento de código anterior, es un ejemplo de la nueva Parallel Programming Library que viene con Delphi XE7, el video del ejemplo se puede ver a continuación:



El código completo del vídeo para VCL y FMX esta en el siguiente link : Parallel Library

Espero sea útil

Nelson.

[[nlsgarcia]]

Club Delphi,

Empezado por unocero

...Ahora Embarcadero nos avisa la salida de su RAD Studio XE7, el cual puede ser usado además para crear apps, con una interfaz que se comparte, optimizada para los diferentes dispositivos, incluyendo gadgets y dispositivos “vestibles” (wearables)...

Ver la noticia completa en : Embarcadero libera RAD Studio XE7

Interesante resumen de la evolución de Borland-Codegear-Embarcadero y de las nuevas características de Delphi XE7

Nelson.