| # | Line 201 | Line 201 | end; | |
|---|---|---|
| 201 | function CreateHexString(Data: TByteData; HexOnly: Boolean): String; | |
| 202 | var | |
| 203 | string_build, ascii_version: String; | |
| 204 | < | i: LongWord; |
| 204 | > | i: Integer; |
| 205 | begin | |
| 206 | string_build := ''; | |
| 207 | ascii_version := ''; | |
| # | Line 234 | Line 234 | end; | |
| 234 | ||
| 235 | function DecodeHexString(hex: String): TByteData; | |
| 236 | var | |
| 237 | < | i: LongWord; |
| 237 | > | i: Integer; |
| 238 | begin | |
| 239 | SetLength(Result, Length(hex) div 2); | |
| 240 | for i := 0 to Length(Result) do | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |