ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/BinEdit.pas
(Generate patch)

Comparing oup/current/Tools/BinEdit.pas (file contents):
Revision 179 by alloc, Sun May 13 22:18:18 2007 UTC vs.
Revision 204 by alloc, Sun May 27 20:03:41 2007 UTC

# 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

Diff Legend

Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)