Ignore:
Timestamp:
Jan 12, 2007, 12:36:52 AM (18 years ago)
Author:
alloc
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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
Note: See TracChangeset for help on using the changeset viewer.