Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Delphi截取数组 →→→→→进入此内容的聊天室

来自 , 2020-04-20, 写在 Delphi (Object Pascal), 查看 107 次.
URL http://www.code666.cn/view/8346db44
  1. function ChopByteArray(const B: array of Byte; Start, Len: Integer):
  2.   TBytes;
  3. var
  4.   First, Last: TBytes;
  5. begin
  6.   if Start < 0 then
  7.     Start := 0;
  8.   if Len < 0 then
  9.     Len := 0
  10.   else if Start >= Length(B) then
  11.     Len := 0
  12.   else if Start + Len > Length(B) then
  13.     Len := Length(B) - Start;
  14.   First := SliceByteArray(B, 0, Start);
  15.   Last := SliceByteArray(B, Start + Len, Length(B));
  16.   Result := ConcatByteArrays(First, Last);
  17. end;
  18. //delphi/2157

回复 "Delphi截取数组"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666