Bug in Samples " Edit "
Posted: Sat May 19, 2012 1:56 pm
Hello larsa
I was studying the sample files. And i found that the "Edit" sample have a bug. While runing the "Edit" sample, if the sheet cell is empty, and when click it, it show an error "raised exception class EConvertError with message ''' is not a vaild floating point value." I found the error in the code was appearing in
procedure TForm1.GridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
.....
if (EditCol = Grid.Col) and (EditRow = Grid.Row) then
SetCellValue(Grid.Col - 1,Grid.Row - 1);
end;
Could you please tell me how to solve this problem. Thank you.
I was studying the sample files. And i found that the "Edit" sample have a bug. While runing the "Edit" sample, if the sheet cell is empty, and when click it, it show an error "raised exception class EConvertError with message ''' is not a vaild floating point value." I found the error in the code was appearing in
procedure TForm1.GridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
.....
if (EditCol = Grid.Col) and (EditRow = Grid.Row) then
SetCellValue(Grid.Col - 1,Grid.Row - 1);
end;
Could you please tell me how to solve this problem. Thank you.