Changeset 75 for oup/current/Tools/BinEdit.pas

Timestamp:

Jan 12, 2007, 12:36:52 AM (16 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Tools/BinEdit.pas (modified) (6 diffs)

oup/current/Tools/BinEdit.pas

@@ -191 +191 @@
   Data: Tdata;
   i:    Word;
-begin
+  floatformat: TFormatSettings;
+begin
+  floatformat.DecimalSeparator := '.';
   case datatype of
     1:
@@ -219 +221 @@
       Data[2] := hex.Data[offset + 2];
       Data[3] := hex.Data[offset + 3];
-      Result  := FloatToStr(Decode_Float(Data));
+      Result  := FloatToStr(Decode_Float(Data), floatformat);
     end;
     10:
@@ -383 +385 @@
   str:   String;
   Value: LongWord;
-begin
+  floatformat: TFormatSettings;
+begin
+  floatformat.DecimalSeparator := '.';
   for i := 1 to value_viewer.RowCount - 1 do
   begin
@@ -448 +452 @@
         for j := 0 to 3 do
           Data[j] := hex.Data[hex.SelStart + j];
-        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data));
+        value_viewer.Cells[1, i] := FloatToStr(Decode_Float(Data), floatformat);
       end
       else
@@ -561 +565 @@
 
 procedure TForm_BinEdit.hexKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
-var
-  temps: String;
+//var
+//  temps: String;
 begin
   if (Shift = [ssCtrl]) and (Key = Ord('C')) then
@@ -741 +745 @@
   node: PVirtualNode;
   nodedata: PNodeData;
-  id: Integer;
   form: TForm_ToolTemplate;
 begin