Posted via ActualForum NNTP Server 1.5

  // ScratchMem is a TsdFastMemStream
  ScratchMem := TsdFastMemStream.Create(Len * 2);
  try
    P := PAnsiChar(AValue);
    for i := 0 to Len - 1 do
    begin
      case P^ of
      '"'  : ScratchMem.Write(AnsiString('"'), 6);
      '''' : ScratchMem.Write(AnsiString('''), 6);
      '&'  : ScratchMem.Write(AnsiString('&'), 5);
      '<'  : ScratchMem.Write(AnsiString('&lt;'), 4);
      '>'  : ScratchMem.Write(AnsiString('&gt;'), 4);
      else
        ScratchMem.Write(P^, 1);  <<<--- Эта процедура вызывает ошибку
      end;
      Inc(P);
    end;
    SetString(Result, PAnsiChar(ScratchMem.Memory), ScratchMem.Position);
  finally
    ScratchMem.Free;
  end;

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

if NewSize > Capacity then
  Grow(); 

function TsdFastMemStream.Write(const Buffer; Count: Integer): Longint;
var
  NewPos: Longint;
begin
  if (FPosition >= 0) and (Count >= 0) then
  begin
    NewPos := FPosition + Count;
    if NewPos > 0 then
    begin
      if NewPos > FSize then
      begin
        if NewPos > FCapacity then
          SetCapacity(NewPos);
        FSize := NewPos;
      end;
      System.Move(Buffer, Pointer(Longint(FMemory) + FPosition)^, Count);
      FPosition := NewPos;
      Result := Count;
      Exit;
    end;
  end;
  Result := 0;
end;

System.Move(Buffer, Pointer(Longint(FMemory) + FPosition)^, Count);

LStrm := TMemoryStream.Create;
LStrm.Size := ....

Posted via ActualForum NNTP Server 1.5

System.Move(Buffer, (PAnsiChar(FMemory) + FPosition)^, Count);