Following code ilustrates the problem:
Code: Select all
procedure Teste(const AFilename: string);
var
Excel: TXLSReadWriteII5;
begin
Excel := TXLSReadWriteII5.Create(nil);
try
Excel.Version := xvExcel97;
Excel[0].MakeHyperlink(0,0, 'http://www.google.com', 'Google', 'Go to Google');
// insert some rows, hyperlinks will be moved
Excel[0].InsertRows(0, 3);
Excel.Calculate;
// freeze here
Excel.SaveToFile(AFilename);
finally
Excel.Free;
end;
end;
Could you look into this?