随机字符串函数可以使用大写 小写 数字 以及混合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..