编译cxLibrary如下函数出错：

1.  
   function GetEraYearOffset(const Name: string): Integer;
2.  
   var
3.  
   I: Integer;
4.  
   begin
5.  
   Result := 0;
6.  
   for I := Low(EraNames) to High(EraNames) do
7.  
   begin
8.  
   if EraNames[I] = '' then
9.  
   Break;
10.  
    if AnsiStrPos(PChar(EraNames[I]), PChar(Name)) <> nil then
11.  
    begin
12.  
    Result := EraYearOffsets[I];
13.  
    Exit;
14.  
    end;
15.  
    end;
16.  
    end;

是因为SysUtils做了修改,对应修改如下：

1.  
   function GetEraYearOffset(const Name: string): Integer;
2.  
   var
3.  
   I: Integer;
4.  
   begin
5.  
   Result := 0;
6.  
   for I := Low(FormatSettings.EraInfo) to High(FormatSettings.EraInfo) do
7.  
   begin
8.  
   if FormatSettings.EraInfo[I].EraName = '' then
9.  
   Break;
10.  
    if AnsiStrPos(PChar(FormatSettings.EraInfo[I].EraName), PChar(Name)) <> nil
11.  
    then
12.  
    begin
13.  
    Result := FormatSettings.EraInfo[I].EraOffset;
14.  
    Exit;
15.  
    end;
16.  
    end;
17.  
    end;

还有一处：

1.  
       if AnsiPos('e', AFormat.ShortDateFormat) > 0 then 
2.  
   AEraYearOffset := EraYearOffsets[1];

对应修改为：

1.  
   if AnsiPos('e', AFormat.ShortDateFormat) > 0 then
2.  
   AEraYearOffset := FormatSettings.EraInfo[1].EraOffset;