Lazarus 1.0.14 Release

[Martin_fr]

The Lazarus team is glad to announce the release of Lazarus 1.0.14.

This is a bug fix release, built with fpc 2.6.2.
The previous releases from 1.0.8 to 1.0.12 were built with fpc 2.6.2 too, while release 1.0.6 was built with fpc 2.6.0.

Here is the list of changes for Lazarus and Free Pascal:
http://wiki.lazarus.freepascal.org/Lazarus_1.0_fixes_branch#Fixes_for_1.0.14_.28Merged.29
http://wiki.lazarus.freepascal.org/User_Changes_2.6.2

The release is available for download on SourceForge:
http://sourceforge.net/projects/lazarus/files/

Choose your CPU, OS, distro and then the "Lazarus 1.0.14" directory.

Minimum requirements:
Windows:       98
FreeBSD/Linux: gtk 2.8 or qt4.5
Mac OS X:      10.5, LCL only 32bit, non LCL apps can be 64bit

The svn tag is
http://svn.freepascal.org/svn/lazarus/tags/lazarus_1_0_14

For people who are blocked by SF, the Lazarus releases from SourceForge
are mirrored at:
ftp://freepascal.dfmk.hu/pub/lazarus/releases/
and later at (after some time for synchronization)
http://michael-ep3.physik.uni-halle.de/Lazarus/releases/
and
http://mirrors.iwi.me/lazarus/

[motaz]

Downloading Debian 64 version...

I was expecting 1.2, but I had no chance to test the release candidate, so that it is more safer to me to upgrade to 1.0.14

[jwdietrich]

Thanks! Lazarus 1.0.14 runs smoothly on PPC-based and intel-based Macs.

[Robot]

thank you
terima kasih
matur nuwun

[Robert W.B.]

Thanks from Robbanux

[bigeno]

Thanks 

BTW Download links on main lazarus web page still points to 1.0.12

[michaelcain]

I just want to say Lazarus is a Great IDE for Free Pascal. I've just stumbled upon it. I used Pascal since 1998 using Turbo Pascal by Borland then in 2002 I switched to Delphi. I think Lazarus is Just as Good if Not Better then Delphi 7 and Delphi 7.2...

I want to thank the developer's of Lazarus as well as the Contributors for all of their hard work and Success with Lazarus. I am working on a Commercial Game Using Lazarus. I think it's great!!! Goodbye Delphi 7.2 and Hello Lazarus...

[snorkel]

Thanks to all the Lazarus Devs :-)  Just wanted to let you guys know Lazarus is my go to tool now, I don't even use Delphi anymore.
Long live Lazarus!!!!

[sarok attila]

Small program not run. Amd X2 64 win xp sp3 original registered.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, Grids, Math;

type

  { TForm1 }

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    megosztas : array[1..100] of int64;
  end;

var
  Form1: TForm1;
  felhasznalo : integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  felhasznalo := felhasznalo + 1;
  megosztas[felhasznalo] := randomrange(1, 1000000000);
  stringgrid1.RowCount:= felhasznalo + 1;
  stringgrid1.Cells[1, felhasznalo] := inttostr(megosztas[felhasznalo]);
end;

end.

Run on my computer is very slow. Close run error sisegv sometimes sometimes close correctly.
Last Lazarus, 32 bit.

   

[howardpc]

Small program not run. Amd X2 64 win xp sp3 original registered.

You must initialise your integer variable felhasznalo before using it, otherwise the program starts with a garbage value; and also check that it does not exceed the array index bounds.

Code: [Select]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  SysUtils, Forms, Grids, ExtCtrls, math;

type

  { TForm1 }

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  public
   megosztas : array[1..100] of int64;
  end;

var
  Form1: TForm1;
  felhasznalo : integer=1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  felhasznalo := felhasznalo + 1;
  if (felhasznalo<1) or (felhasznalo>100) then
    felhasznalo:=1;
  megosztas[felhasznalo] := randomrange(1, 1000000000);
  stringgrid1.RowCount:= felhasznalo + 1;
  stringgrid1.Cells[1, felhasznalo] := inttostr(megosztas[felhasznalo]);
end;

initialization
  Randomize;

end.


Run on my computer is very slow.

What value do you give to the timer interval?
Why, anyway, do you need to fill the grid at timed intervals rather than in a simple loop?

[sarok attila]

Okay !
But Lazaraus is very "strange" programming language. Because of your idea is correct. But my problem is that : why not say List index of bound or else run or debug error, else sisegv.
Second problem :

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, Grids, Math;

type

  { TForm1 }

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    megosztas : array[1..1000000] of int64;
  end;

var
  Form1: TForm1;
  felhasznalo : integer = 1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if felhasznalo >= 1000000 then exit;
  felhasznalo := felhasznalo + 1;
  megosztas[felhasznalo] := randomrange(1, 1000000000);
  stringgrid1.RowCount:= felhasznalo + 1;
  stringgrid1.Cells[1, felhasznalo] := inttostr(megosztas[felhasznalo]);
end;

end.

Timer1.interval = 1000;
Work, but very slow in 32 bit.

[howardpc]

why not say List index of bound or else run or debug error?

If you enable range checks you would get such an error if you try to access an out-of-range array index (Projects->Project Options->Code Generation page)

Work, but very slow in 32 bit.

What is the point of a timer at all? It merely adds time-consuming baggage, and an unwanted timed interval of 1s before each cell value assignment.
Also you are setting the grid RowCount property repeatedly in each timer event.
Set the property once. The following code is almost instantaneous on my average-power computer

Code: [Select]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  SysUtils, Forms, Grids, math;

const UpperLimit=1000000;

type

  { TForm1 }

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    megosztas : array[0..UpperLimit] of int64;
    felhasznalo : integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.ColCount:=1;
  stringgrid1.RowCount:= UpperLimit;
  felhasznalo:=0;
  while felhasznalo<UpperLimit do begin
    megosztas[felhasznalo]:=RandomRange(1, 1000000000);
    stringgrid1.Cells[0, felhasznalo] := inttostr(megosztas[felhasznalo]);
    Inc(felhasznalo);
  end;
end;

initialization
 Randomize;

end. 


[sarok attila]

I found a problem with free pascal.
Environment-> Editor -> Tab size 3.
And stand 8.
Next problem.
Begin
  Asm
    mov ax, 12;
    mov eax, 12;
  end;
end.

Unknown indentifier.

[Leledumbo]

Environment-> Editor -> Tab size 3.
And stand 8.

Other settings like smart tab could affect this, please check other tab/space/indent related settings.

Next problem.
Begin
  Asm
    mov ax, 12;
    mov eax, 12;
  end;
end.

Unknown indentifier.

The default assembler reader is AT&T, not Intel which I believe you assume in your code. Add {$asmmode intel} before the asm code or activate respective switch in compiler options.