DELPHI7适用的BytesOf和StringOf

DELPHI7适用的BytesOf和StringOf

 

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function BytesOf(const Val: AnsiString): TBytes; var   Len: Integer; begin   Len := Length(Val);   SetLength(Result, Len);   Move(Val[1], Result[0], Len); end;   function StringOf(const buf:TBytes): AnsiString; begin   SetLength(Result, Length(buf));   CopyMemory(PAnsiChar(result), @buf[0], Length(buf)); end;