Hi,
Just saw this problem that if you miss character it will cause
Lazarus crash :
> unit Unit1;
>
> {$mode objfpc}{$H+}
>
> interface
>
> uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
>
> type TForm1 = class(TForm) private { private declarations }
> public { public declarations } end;
>
> type TgardQuality = (gLow, gMedium, gHigh, gVeryHigh);
>
> const TgardQualityNames: array[TgardQuality] of string =
> ('low,//<-----------------------------------------------------
> - if you miss ' it will crash 'medium', 'high',
> 'veryhigh' );
>
> var Form1: TForm1;
>
> implementation
>
> {$R *.lfm}
>
> end.
>
>
Please test it if you have this problem too.
Regards, Ara
--
http://www.fastmail.com - Same, same, but different...
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
