1.Delphi如何将TEdit中的股票股票字符串赋给字节型数组
Delphi如何将TEdit中的字符串赋给字节型数组
比较欣赏“股票2进制”的答复,但有错误和缺陷。源码源代
1、软件将Edit.Text强制类型转换为Pointer,股票股票微点应用源码下载恐怕不行,源码源代需要中引入一个string变量来干这个转换
2、软件sip源码交易对于Delphi 以上,股票股票Length返回字符数,源码源代不是软件字节数,需要考虑兼容性
3、股票股票CopyMemory是源码源代windows API函数,调用代价较高,软件为优化起见,股票股票牛蒡app源码应用delphi内置的源码源代Move
4、SL命名不佳,软件像是担保论坛源码StringList,用abData得了
总结,改写如下:
var
L : Integer;
s : string;
abData : array of Byte;
begin
s := Edit1.Text;
// Delphi可用ByteLength,但其内部ByteLength就是扒源码教程Length*SizeOf(Char),为保证多版本兼容性,自行将其展开书写了
L := Length( s ) * SizeOf( Char );
SetLength( abData, L );
// 注意,Move的参数是先源后目标,与CopyMemory相反
Move( s[1], abData[0], L );
......
// 应该继续做点儿什么,否则end之际,动态数组自动销毁
end;