Changeset 75 for oup/current/Tools/BinEdit.pas
- Timestamp:
- Jan 12, 2007, 12:36:52 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
oup/current/Tools/BinEdit.pas
r46 r75 191 191 Data: Tdata; 192 192 i: Word; 193 begin 193 floatformat: TFormatSettings; 194 begin 195 floatformat.DecimalSeparator := '.'; 194 196 case datatype of 195 197 1: … … 219 221 Data[2] := hex.Data[offset + 2]; 220 222 Data[3] := hex.Data[offset + 3]; 221 Result := FloatToStr(Decode_Float(Data) );223 Result := FloatToStr(Decode_Float(Data), floatformat); 222 224 end; 223 225 10: … … 383 385 str: String; 384 386 Value: LongWord; 385 begin 387 floatformat: TFormatSettings; 388 begin 389 floatformat.DecimalSeparator := '.'; 386 390 for i := 1 to value_viewer.RowCount - 1 do 387 391 begin … … 448 452 for j := 0 to 3 do 449 453 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); 451 455 end 452 456 else … … 561 565 562 566 procedure TForm_BinEdit.hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); 563 var564 temps: String;567 //var 568 // temps: String; 565 569 begin 566 570 if (Shift = [ssCtrl]) and (Key = Ord('C')) then … … 741 745 node: PVirtualNode; 742 746 nodedata: PNodeData; 743 id: Integer;744 747 form: TForm_ToolTemplate; 745 748 begin
Note:
See TracChangeset
for help on using the changeset viewer.