TMSFMXCalendarPicker acces violation

FMX TMS FMX UI Pack
1

Hi, i use TMSFMXCalendarPicker and this do acces violation STACK_OVERFLOW, this show the message in delphi Seatle.


this do error in:

{$IFDEF PUREPASCAL}
var
  P: PStrRec;
  Temp: Pointer;
  CopyCount: Integer;
begin
  if NewLength <= 0 then
    _UStrClr(Str)
  else
  begin
    if Pointer(Str) <> nil then
    begin
      if __StringRefCnt(Str) = 1 then
      begin
        P := Pointer(PByte(Str) - Sizeof(StrRec));
        if Cardinal(NewLength) >= Cardinal(- SizeOf(StrRec) - SizeOf(WideChar)) div 2 then
          _IntOver;
        _ReallocMem(Pointer(P), (NewLength + 1) * SizeOf(WideChar) + SizeOf(StrRec));
        P.length := NewLength;
        Pointer(Str) := Pointer(PByte(P) + SizeOf(StrRec));
        PWideChar(Str)[NewLength] := #0;
        Exit;
      end;
    end;
    Temp := _NewUnicodeString(NewLength);
    if Pointer(Str) <> nil then
    begin
      CopyCount := __StringLength(Str);
      if CopyCount > NewLength then
        CopyCount := NewLength;
      Move(PWideChar(Str)^, PWideChar(Temp)^, CopyCount * SizeOf(WideChar));
      _UStrClr(Str);
    end;
    Pointer(Str) := Temp;
  end;
end;



2

Hi, 


Thank you for your feedback.
We have investigated this here and have applied a fix for this issue.
The next version will address this.