ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/releases/0.33a/Code/Functions.pas

Comparing oup/current/Code/Functions.pas (file contents):
Revision 74 by alloc, Thu Jan 11 22:45:20 2007 UTC vs.
Revision 75 by alloc, Thu Jan 11 23:36:52 2007 UTC

#	Line 212 | Line 212 | end;
212
213
214		function FormatFileSize(size: LongWord): String;
215	+	var
216	+	floatformat: TFormatSettings;
217		begin
218	+	floatformat.DecimalSeparator := '.';
219		if size >= 1000 * 1024 * 1024 then
220		begin
221	<	Result := FloatToStrF(size / 1024 / 1024 / 1024, ffFixed, 5, 1) + ' GB';
221	>	Result := FloatToStrF(size / 1024 / 1024 / 1024, ffFixed, 5, 1, floatformat) + ' GB';
222		end
223		else
224		begin
225		if size >= 1000 * 1024 then
226		begin
227	<	Result := FloatToStrF(size / 1024 / 1024, ffFixed, 5, 1) + ' MB';
227	>	Result := FloatToStrF(size / 1024 / 1024, ffFixed, 5, 1, floatformat) + ' MB';
228		end
229		else
230		begin
231		if size >= 1000 then
232		begin
233	<	Result := FloatToStrF(size / 1024, ffFixed, 5, 1) + ' KB';
233	>	Result := FloatToStrF(size / 1024, ffFixed, 5, 1, floatformat) + ' KB';
234		end
235		else
236		begin

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)