--- oup/current/Tools/BinEdit.pas	2006/12/23 16:26:43	46
+++ oup/current/Tools/BinEdit.pas	2007/01/11 23:36:52	75
@@ -190,7 +190,9 @@ function TForm_BinEdit.GetValue(datatype
 var
   Data: Tdata;
   i:    Word;
+  floatformat: TFormatSettings;
 begin
+  floatformat.DecimalSeparator := '.';
   case datatype of
     1:
       Result := IntToStr(hex.Data[offset]);
@@ -218,7 +220,7 @@ begin
       Data[1] := hex.Data[offset + 1];
       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:
       Result := IntToBin(hex.Data[offset]);
@@ -382,7 +384,9 @@ var
   Data:  Tdata;
   str:   String;
   Value: LongWord;
+  floatformat: TFormatSettings;
 begin
+  floatformat.DecimalSeparator := '.';
   for i := 1 to value_viewer.RowCount - 1 do
   begin
     if value_viewer.Cells[0, i] = '1 byte, unsigned' then
@@ -447,7 +451,7 @@ begin
         SetLength(Data, 4);
         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
         value_viewer.Cells[1, i] := '';
@@ -560,8 +564,8 @@ end;
 
 
 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
   begin
@@ -740,7 +744,6 @@ procedure TForm_BinEdit.VSTDblClick(Send
 var
   node: PVirtualNode;
   nodedata: PNodeData;
-  id: Integer;
   form: TForm_ToolTemplate;
 begin
   if VST.FocusedColumn = 3 then