Axolot Data

Code: Select all

xlsRW.AsRichText[2, row] := '{\rtf1\ansi \ansicpg1252{\fonttbl{\f0\fnil Times New Roman}} \f0\fs22\ a \f0\fs22\  = 1000 }';

Code: Select all

Exception EAccessViolation: Access violation at address 006F57C7 in module 'Myapp.exe'. Read of address 0000001C (OS exception)
  exception at $006F57C7 (module "Xc12DataStyleSheet5", proc "Xc12DataStyleSheet5.TXc12Font.GetName", unit "Xc12DataStylesheet5.pas", line 2927)
  Stack trace:
      Module "Xc12DataStyleSheet5", Procedure "Xc12DataStyleSheet5.TXc12Font.Equal", Unit "Xc12DataStylesheet5.pas", Line 2891
      Module "XLSSheetData5", Procedure "XLSSheetData5.TXLSWorksheet.RichTextLoadFromStream", Unit "XLSSheetData5.pas", Line 3246
      Module "XLSSheetData5", Procedure "XLSSheetData5.TXLSWorksheet.RichTextLoadFromStream", Unit "XLSSheetData5.pas", Line 3248
      Module "XLSSheetData5", Procedure "XLSSheetData5.TXLSWorksheet.SetAsRichText", Unit "XLSSheetData5.pas", Line 3502
      Module "XLSSheetData5", Procedure "XLSSheetData5.TXLSWorksheet.SetAsRichText", Unit "XLSSheetData5.pas", Line 3504

Code: Select all

FR[i].Font := FManager.StyleSheet.Fonts.Find(FR[i].Font);

Code: Select all

    //* AsSimpleTags let you easily create formatted text with html-like tags.
    //* There are no end tags. A tag sets an option, and that option is used
    //* until a new tags replaces it. In order to write the "<", character,
    //* write an empty tag "<>" in the text. Example: 'Two <> one'
    //* The following tags can be uses:
    //*  <b>  Turn bold on.
    //* </b>  Turn bold off.
    //*  <i>  Turn italic on.
    //* </i>  Turn italic off.
    //*  <u>  Turn underline on.
    //* </u>  Turn underline off.
    //* <f:Font name> Changes the font name.
    //* <s:nn> Changes the font size. Setting the size to zero sets the font size to the default size.
    //* <c:xxxxxx> Changes the font color. The value xxxxxx is the hexadecimal RGB color value.
    //*            If xxxxxx is set to 'Auto', the default color will be used.
     property AsSimpleTags[ACol,ARow: integer]: AxUCString read GetAsSimpleTags write SetAsSimpleTags;

Code: Select all

function TXLSStyleObjectList.Find(AItem: TXLSStyleObject): TXLSStyleObject;
var
  Hash: PXLSHashItem;
begin
  if not FItemHashValid then
    UpdateItemHash;

  //>>> tw 150412 MT#0072982
  if AItem <> nil then
  //<<<
    Hash := FItemHash.Find(AItem)^
  //>>> tw 150412 MT#0072982
  else
    Hash := nil;
  //<<<
  if Hash <> Nil then
    Result := Hash^.Key
  else
    Result := Nil;
end;