[fpc-devel] TStringGrid behaviour

[Thaddy]

On 27-10-2010 14:32, Birger Jansen wrote:
> Hi all,
>
> I have the following code that throws an error in FPC and runs fine in Delphi:
>
> procedure TForm1.BitBtn1Click(Sender: TObject);
> var
>    MyStringGrid: TStringGrid;
> begin
>    MyStringGrid := TStringGrid.Create(nil);
>    try
>      MyStringGrid.RowCount := 0;
>      MyStringGrid.RowHeights[0] := 1;
>    finally
>      MyStringGrid.Free;
>    end;
> end;
>
> Delphi checks if the grid has at least
> In FPC there is no check on RowCount before the height is set, resulting in a List index(0) out of bounds exception. Although it is correct, it is annoying :-)
>
> It can be fixed by adding something like this to the beginning of TCustomGrid.Setrowheights:
>
>    if ARow<= FRows.Count then EXIT;
>
> Shall I file a report for this?
>
> Kind regards,
>    Birger Jansen
> _______________________________________________
> fpc-devel maillist  -  fpc-devel at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-devel
>
>
>
> No virus found in this incoming message.
> Checked by AVG - www.avg.com
> Version: 9.0.864 / Virus Database: 271.1.1/3221 - Release Date: 10/26/10 20:34:00
>
First: It is not a good idea to create the stringgrid without a 
parent... or any visual control. Annoying :) and potentionally dangereous.
Second: As you remarked, the behaviour is correct. Why being annoyed 
about making a programming mistake?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20101027/71a5b5e3/attachment.html>