| # | Line 187 | Line 187 | function TForm_BinEdit.GetValue(datatype | |
|---|---|---|
| 187 | var | |
| 188 | Data: TByteData; | |
| 189 | i: Integer; | |
| 190 | – | tempi: Integer; | 
| 190 | floatformat: TFormatSettings; | |
| 191 | begin | |
| 192 | floatformat.DecimalSeparator := '.'; | |
| # | Line 225 | Line 224 | begin | |
| 224 | 11: | |
| 225 | begin | |
| 226 | if Length(rawlist) > 0 then | |
| 227 | + | begin | 
| 228 | for i := 0 to High(rawlist) do | |
| 229 | if rawlist[i].SrcOffset = offset then | |
| 230 | begin | |
| # | Line 234 | Line 234 | begin | |
| 234 | Result := 'unused'; | |
| 235 | Break; | |
| 236 | end; | |
| 237 | + | if i > High(rawlist) then | 
| 238 | + | Result := 'unused'; | 
| 239 | + | end; | 
| 240 | end; | |
| 241 | 12: | |
| 242 | if hex.Data[offset] = 1 then | |
| – | Removed lines | 
| + | Added lines | 
| < | Changed lines (old) | 
| > | Changed lines (new) |