The simple test project below shows the bug.
unit Unit1;
interface
uses
System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
WEBLib.Forms, WEBLib.Dialogs, Types, Vcl.Controls, Vcl.Grids, WEBLib.Grids;
type
TForm1 = class(TWebForm)
WebStringGrid1: TWebStringGrid;
procedure WebFormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WebFormCreate(Sender: TObject);
var
sl: TStrings;
begin
sl := TStringList.Create;
sl.Add('Fixed Row,Number');
sl.Add('First String,1');
sl.Add('Second String,2');
sl.Add('Third String,3');
WebStringGrid1.LoadFromStrings(sl,',',True);
ShowMessage(sl.Count.ToString + ', ' + WebStringGrid1.RowCount.ToString);
end;
end.
When run, it displays
and