將日期轉為二進制，二進制轉日期函數一並寫上

最新推荐文章于 2024-09-08 14:41:41 发布

starluck

最新推荐文章于 2024-09-08 14:41:41 发布

阅读量1.1k

点赞数

分类专栏： DELPHI 文章标签： function div string

本文链接：https://blog.csdn.net/starluck/article/details/3859454

版权

DELPHI 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

function GetBytes(v:String):Tbytes;
begin
SetLength(Result,length(V)*Sizeof(char));
Move(Pchar(@V[1])^,(@Result[0])^,length(V)*Sizeof(char));
end;

function GetString(v:TBytes):String;
var
vArr : TCharArray;
begin
setlength(vArr,length(V) div sizeof(char));
Move((@V[0])^,pchar(vArr)^,(length(V) div sizeof(Char))* sizeof(char));

SetString(Result,pchar(vArr),length(vArr));
end;