随机字符串函数 可以使用大写 小写 数字 以及混合 function RandomStr(Upper: boolean; Lower: boolean; Number: boolean; StrLength: Integer): string; var i: Byte; s: string; begin if Upper then s := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' else s := ''; if Lower then .

不多解释了 上代码 function Byte2Hex(arrByte:Tbytes):string; var stream: TMemoryStream; begin stream := TMemoryStream.Create; stream.Write(arrByte[0],Length(arrbyte)); SetLength(Result, stream.Size * 2); BinToHex(stream.Memory, PChar(Result), stream.Siz

Delphi的数组 大家都知道 有动态数组和静态数组 一.动态数组=不定长 array of byte 对其操作需要 setlength先分配 然后赋值 优点：不需要提前预先定义长度 方便扩展 缺点：性能对比静态稍差因为成员操作需要频繁的申请 二.静态数组=定长 array [x..y] of byte 对其操作直接操作下标 因为已经预先分配了 优点：定长提前分配减少重定义长度 下标范围也就是从x到y 可以自定义 你可以定义从4到10 缺点：扩展不太方便 好了 现在就是Tbyt..