Вырезать\Обрезать\Скопировать Часть Stream

[min@y™]

ну обьявил я класс

Какой такой павлин-мавлин?! А-ну покажь!

[IvaniuS]

Возможно это существенно изменит вопрос, я пишу не в делфи как таковом а в его обрезке под названием paxcompiler И возможно тот обработчик даже не наследуется правильно и вообще все бока растут именно отсюда, но факт остается фактом

[IvaniuS]

Решение:

procedure TrimStream(Stream:TStream; const Count: Int64);
var
  Buffer: TMemoryStream;
begin
  try
    Buffer := TMemoryStream.Create;
    try
      Buffer.LoadFromStream(Stream);
      Buffer.Position := Count;
      Stream.Position := 0;
      Stream.CopyFrom(Buffer, Buffer.Size - Buffer.Position);
      Stream.Size := Stream.Position;
    finally
      FreeAndNil(Buffer);
    end;
  except

  end;
end;