Lazarus

Announcements => Lazarus => Topic started by: Martin_fr on November 19, 2013, 10:33:48 pm

Title: Lazarus 1.0.14 Release
Post by: Martin_fr on November 19, 2013, 10:33:48 pm
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/
Title: Re: Lazarus 1.0.14 Release
Post by: motaz on November 19, 2013, 11:34:52 pm
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
Title: Re: Lazarus 1.0.14 Release
Post by: jwdietrich on November 19, 2013, 11:38:47 pm
Thanks! Lazarus 1.0.14 runs smoothly on PPC-based and intel-based Macs.
Title: Re: Lazarus 1.0.14 Release
Post by: Robot on November 20, 2013, 02:42:54 am
thank you
terima kasih
matur nuwun
Title: Re: Lazarus 1.0.14 Release
Post by: Robert W.B. on November 20, 2013, 05:18:30 am
Thanks from Robbanux
Title: Re: Lazarus 1.0.14 Release
Post by: bigeno on November 20, 2013, 08:06:03 am
Thanks  :)

BTW Download links on main lazarus web page still points to 1.0.12
Title: Re: Lazarus 1.0.14 Release
Post by: michaelcain on November 20, 2013, 12:07:16 pm
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...
Title: Re: Lazarus 1.0.14 Release
Post by: snorkel on November 22, 2013, 07:45:19 pm
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!!!!
Title: Re: Lazarus 1.0.14 Release
Post by: sarok attila on December 20, 2013, 02:54:55 pm
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.

   
Title: Re: Lazarus 1.0.14 Release
Post by: howardpc on December 20, 2013, 06:06:31 pm
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.

Quote
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?
Title: Re: Lazarus 1.0.14 Release
Post by: sarok attila on December 22, 2013, 10:07:13 am
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.
Title: Re: Lazarus 1.0.14 Release
Post by: howardpc on December 22, 2013, 11:31:17 am
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)

Quote
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. 
Title: Re: Lazarus 1.0.14 Release
Post by: sarok attila on December 23, 2013, 04:30:13 pm
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.
Title: Re: Lazarus 1.0.14 Release
Post by: Leledumbo on December 23, 2013, 06:45:05 pm
Quote
Environment-> Editor -> Tab size 3.
And stand 8.
Other settings like smart tab could affect this, please check other tab/space/indent related settings.
Quote
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.
TinyPortal © 2005-2018