Changeset 75 for oup/current/Code

Timestamp:

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

Author:

alloc

Message:

 

File:

• oup/current/Code/Functions.pas (modified) (3 diffs)

oup/current/Code/Functions.pas

@@ -213 +213 @@
 
 function FormatFileSize(size: LongWord): String;
-begin
+var
+  floatformat: TFormatSettings;
+begin
+  floatformat.DecimalSeparator := '.';
   if size >= 1000 * 1024 * 1024 then
   begin
-    Result := FloatToStrF(size / 1024 / 1024 / 1024, ffFixed, 5, 1) + ' GB';
+    Result := FloatToStrF(size / 1024 / 1024 / 1024, ffFixed, 5, 1, floatformat) + ' GB';
   end
   else
@@ -222 +225 @@
     if size >= 1000 * 1024 then
     begin
-      Result := FloatToStrF(size / 1024 / 1024, ffFixed, 5, 1) + ' MB';
+      Result := FloatToStrF(size / 1024 / 1024, ffFixed, 5, 1, floatformat) + ' MB';
     end
     else
@@ -228 +231 @@
       if size >= 1000 then
       begin
-        Result := FloatToStrF(size / 1024, ffFixed, 5, 1) + ' KB';
+        Result := FloatToStrF(size / 1024, ffFixed, 5, 1, floatformat) + ' KB';
       end
       else