elphi 生成二维码函数 procedure Generate2DCode(AStr: string; ASize: Integer; ABmp: TBitmap); var s : TByteArray; m : TByteArray; i, j: Integer; w, h : integer; cc: Integer; begin if not Assigned(ABmp) then Exit; SetLength(s, Length(AStr)); for i := 1 to Len