Book Image

Delphi High Performance

By : Primož Gabrijelčič
Book Image

Delphi High Performance

By: Primož Gabrijelčič

Overview of this book

Delphi is a cross-platform Integrated Development Environment (IDE) that supports rapid application development for Microsoft Windows, Apple Mac OS X, Google Android, iOS, and now Linux with RAD Studio 10.2. This book will be your guide to build efficient high performance applications with Delphi. The book begins by explaining how to find performance bottlenecks and apply the correct algorithm to fix them. It will teach you how to improve your algorithms before taking you through parallel programming. You’ll then explore various tools to build highly concurrent applications. After that, you’ll delve into improving the performance of your code and master cross-platform RTL improvements. Finally, we’ll go through memory management with Delphi and you’ll see how to leverage several external libraries to write better performing programs. By the end of the book, you’ll have the knowledge to create high performance applications with Delphi.
Table of Contents (16 chapters)
Title Page
Copyright and Credits
Packt Upsell

Parallel for

The Parallel Programming Library implements only one pattern that I haven't talked about yet—Parallel for, a multithreaded version of a for loop. This pattern allows for very simple parallelization of loops, but this simplicity can also get you into trouble. When you use Parallel for, you should always be very careful that you don't run into some data sharing trap.

For comparison reasons, the ParallelFor demo implements a normal for loop (shown as follows), which goes from 2 to 10 million, counts all prime numbers in that range, and logs the result:

  CHighestNumber = 10000000;

procedure TbtnParallelFor.btnForClick(Sender: TObject);
  count: Integer;
  i: Integer;
  sw: TStopwatch;
  sw := TStopwatch.StartNew;
  count := 0;

  for i := 2 to CHighestNumber do
    if IsPrime(i) then

  ListBox1.Items.Add('For: ' + count.ToString + ' primes. ' +
    'Total time: ' + sw.ElapsedMilliseconds.ToString);

To change this for loop into a...