*************** EED1\EasyEx\HelloWo\   Write\   Program\
*************** HelloWo1.DPR , fHelloW1.PAS ***************
unit fHelloW1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Add ( 'Hello World...' );
end;

end.
*************** HelloWo5.DPR , fHelloW5.PAS ***************
unit fHelloW5;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Add ( 'Hello World.....' );
   Memo1.Lines.Add ( 'Hello World.....' );
   Memo1.Lines.Add ( 'Hello World.....' );
   Memo1.Lines.Add ( 'Hello World.....' );
   Memo1.Lines.Add ( 'Hello World.....' );
end;

end.
*************** HelloWo9.DPR , fHelloW9.PAS ***************
unit fHelloW9;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
VAR
   i : Integer ;
begin
   {----- LOOP }
   FOR i := 1 TO 9 DO BEGIN
      Memo1.Lines.Add ( 'Hello World.........' );
   END;
end;

end.
*************** Writ2x2.DPR , fWri2x2.PAS ***************
unit fWri2x2;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
VAR
   MyNum : Longint ;
begin
   MyNum := 2 + 2 ;

   Memo1.Lines.Add ( IntToStr(MyNum) );
end;

end.
*************** WritCalc.DPR , fWriCalc.PAS ***************
unit fWriCalc;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
VAR
   R : Double ;
   C , A : Double ;
begin
   R := 10 ;

   C := 2 * PI * R ;
   A := PI * R * R ;

   Memo1.Lines.Add ( 'Radius='        + FloatToStr(R) );
   Memo1.Lines.Add ( 'Circumference=' + FloatToStr(C) );
   Memo1.Lines.Add ( 'Area='          + FloatToStr(A) );
end;

end.
*************** WritMsg.DPR , fWriMsg.PAS ***************
unit fWriMsg;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
VAR
   MyMsg : String ;
begin
   MyMsg :=  '- Nice weather, isn''t it ?'  +  #13#10
           + '- Yes "nice" weather.'        +  #13#10 ;

   Memo1.Lines.Add ( MyMsg );
end;

end.
*************** Chr20_FF.DPR , fChr20FF.PAS ***************
unit fChr20FF;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
VAR
   i : Integer ;
begin
   Memo1.Lines.Add ( '***** CHARS: ' );

   {----- LOOP }
   FOR i := 32 TO 255 DO BEGIN
      Memo1.Lines.Text := Memo1.Lines.Text  +  Chr(i);
   END;
end;

end.
*************** PrimeNb.DPR , fPrimeNb.PAS ***************
unit fPrimeNb;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
VAR
   IsPrimeArray : ARRAY[1..1000] of Boolean ;
   i : Integer ;
   j , jMax : Integer ;
begin
   Memo1.Lines.Add ( '***** PRIME NUMBERS: ' );

   {----- LOOP 1 , On each number }
   FOR i := 1 TO 1000 DO BEGIN

      {----- Could be a prime number }
      IsPrimeArray[i] := TRUE ;

      j    := 2 ;
      jMax := i div 2 ;

      {----- LOOP 2 , Search a divisor }
      WHILE IsPrimeArray[i] and (j <= jMax) DO BEGIN
         {----- "j" can divide "i" ?  }
         IF (i mod j) = 0 THEN BEGIN
            IsPrimeArray[i] := False ;
         END;
         Inc ( j );
      END;

      {----- Display only prime numbers }
      IF IsPrimeArray[i] = TRUE THEN BEGIN
         Memo1.Lines.Text := Memo1.Lines.Text  + IntToStr(i)  +  ' ' ;
      END;
   END;

{
   [<--                   i                      -->]
    [<-- j -->]
   .#.....................#.........................#
    |         |                                     |
    2      i div 2                                1000

}
end;

end.
