mORMot Open Source

Client := TSQLHttpClient.Create(sHost, sPort, Model,
  {https:}False,
  {proxyname:}#32,  // proxy #32 for disable over proxy access
  {proxybypas:}'');

function StringToGUID(const text: string): TGUID;
{$ifdef UNICODE}
var tmp: array[0..{+}36{+.}] of byte;// ******** +1 ***********
    i: integer;
{$endif}
begin
  if (length(text)=38) and (text[1]='{') and (text[38]='}') then begin
    {$ifdef UNICODE}
    for i := 0 to 35 do
      tmp[i] := PWordArray(text)[i+1];
    {+}tmp[36] := 0;{+.} // ******** +2 ***********
    if TextToGUID(@tmp,@result)<>nil then
    {$else}
    if TextToGUID(@text[2],@result)<>nil then
    {$endif}
      exit; // conversion OK
  end;
  fillchar(result,sizeof(result),0);
end;

...
{$ifdef PUREPASCAL}
...
{$else}

procedure RecordCopyInvoke;
asm
  call System.@CopyRecord
end;

{+} // begin changes:
{.$IFDEF USESYNTABLEVARIANT}
procedure _VarCopyProc(var Dest: TVarData; const Source: TVarData);
begin
  System.VarCopyProc(Dest, Source); // AV when System.VarCopyProc = nil
end;
var
  VarCopyProc:   procedure (var Dest: TVarData; const Source: TVarData) = _VarCopyProc;
{.$ENDIF USESYNTABLEVARIANT}
{+.} // end changes.

procedure RecordCopy(var Dest; const Source; TypeInfo: pointer);
...