Changeset 75


Ignore:
Timestamp:
Jan 12, 2007, 12:36:52 AM (18 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • oup/current/Code/Functions.pas

    r74 r75  
    213213
    214214function FormatFileSize(size: LongWord): String;
    215 begin
     215var
     216  floatformat: TFormatSettings;
     217begin
     218  floatformat.DecimalSeparator := '.';
    216219  if size >= 1000 * 1024 * 1024 then
    217220  begin
    218     Result := FloatToStrF(size / 1024 / 1024 / 1024, ffFixed, 5, 1) + ' GB';
     221    Result := FloatToStrF(size / 1024 / 1024 / 1024, ffFixed, 5, 1, floatformat) + ' GB';
    219222  end
    220223  else
    … …  
    222225    if size >= 1000 * 1024 then
    223226    begin
    224       Result := FloatToStrF(size / 1024 / 1024, ffFixed, 5, 1) + ' MB';
     227      Result := FloatToStrF(size / 1024 / 1024, ffFixed, 5, 1, floatformat) + ' MB';
    225228    end
    226229    else
    … …  
    228231      if size >= 1000 then
    229232      begin
    230         Result := FloatToStrF(size / 1024, ffFixed, 5, 1) + ' KB';
     233        Result := FloatToStrF(size / 1024, ffFixed, 5, 1, floatformat) + ' KB';
    231234      end
    232235      else

  • oup/current/Tools/BinEdit.pas

    r46 r75  
    191191  Data: Tdata;
    192192  i:    Word;
    193 begin
     193  floatformat: TFormatSettings;
     194begin
     195  floatformat.DecimalSeparator := '.';
    194196  case datatype of
    195197    1:
    … …  
    219221      Data[2] := hex.Data[offset + 2];
    220222      Data[3] := hex.Data[offset + 3];
    221       Result  := FloatToStr(Decode_Float(Data));
     223      Result  := FloatToStr(Decode_Float(Data), floatformat);
    222224    end;
    223225    10:
    … …  
    383385  str:   String;
    384386  Value: LongWord;
    385 begin
     387  floatformat: TFormatSettings;
     388begin
     389  floatformat.DecimalSeparator := '.';
    386390  for i := 1 to value_viewer.RowCount - 1 do
    387391  begin
    … …  
    448452        for j := 0 to 3 do
    449453          Data[j] := hex.Data[hex.SelStart + j];
    450         value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data));
     454        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data), floatformat);
    451455      end
    452456      else
    … …  
    561565
    562566procedure TForm_BinEdit.hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    563 var
    564   temps: String;
     567//var
     568//  temps: String;
    565569begin
    566570  if (Shift = [ssCtrl]) and (Key = Ord('C')) then
    … …  
    741745  node: PVirtualNode;
    742746  nodedata: PNodeData;
    743   id: Integer;
    744747  form: TForm_ToolTemplate;
    745748begin

  • oup/current/Tools/RawEdit.dfm

    r70 r75  
    143143      FixedCols = 0
    144144      RowCount = 8
     145      FixedRows = 0
    145146      Font.Charset = DEFAULT_CHARSET
    146147      Font.Color = clWindowText

  • oup/current/Tools/RawEdit.pas

    r72 r75  
    154154
    155155procedure TForm_RawEdit.list_offsetClick(Sender: TObject);
    156 var
    157   i: LongWord;
    158   raw_info: TRawInfo;
    159156begin
    160157  ClearValues;
    … …  
    185182  Data: Tdata;
    186183  i:    Word;
    187 begin
     184  floatformat: TFormatSettings;
     185begin
     186  floatformat.DecimalSeparator := '.';
    188187  case datatype of
    189188    1:
    … …  
    213212      Data[2] := hex.Data[offset + 2];
    214213      Data[3] := hex.Data[offset + 3];
    215       Result  := FloatToStr(Decode_Float(Data));
     214      Result  := FloatToStr(Decode_Float(Data), floatformat);
    216215    end;
    217216    10:
    … …  
    256255  str:   String;
    257256  Value: LongWord;
    258 begin
     257  floatformat: TFormatSettings;
     258begin
     259  floatformat.DecimalSeparator := '.';
    259260  for i := 1 to value_viewer.RowCount - 1 do
    260261  begin
    … …  
    321322        for j := 0 to 3 do
    322323          Data[j] := hex.Data[hex.SelStart + j];
    323         value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data));
     324        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data), floatformat);
    324325      end
    325326      else
    … …  
    479480
    480481procedure TForm_RawEdit.hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    481 var
    482   temps: String;
     482//var
     483//  temps: String;
    483484begin
    484485  if (Shift = [ssCtrl]) and (Key = Ord('C')) then
    … …  
    507508
    508509procedure TForm_RawEdit.hexSelectionChanged(Sender: TObject);
    509 var
    510   selstart: Integer;
    511   i, j:     Word;
     510//var
     511//  selstart: Integer;
     512//  i, j:     Word;
    512513begin
    513514{    FOR i:=1 TO structs.RowCount-1 DO BEGIN
    … …  
    562563procedure TForm_RawEdit.btn_importClick(Sender: TObject);
    563564var
    564   Data: Tdata;
     565//  Data: Tdata;
    565566  fs:   TFileStream;
    566567begin
    … …  
    644645procedure TForm_RawEdit.value_viewer_context_copyClick(Sender: TObject);
    645646var
    646   i:     Byte;
     647//  i:     Byte;
    647648  Name:  String;
    648649  Value: LongWord;
Note: See TracChangeset for help on using the changeset viewer.