administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Точка в вещественных по r.ToString пока в текущем потоке

Browse source
This commit is contained in:
miks1965 2018-08-01 14:13:16 +03:00
parent f1089b6309
commit ab59b0e33b
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
bin/Lib/PABCSystem.pas
View file

@ -1455,10 +1455,8 @@ function UpperCase(s: string): string;
function StringOfChar(ch: char; count: integer): string;
/// Возвращает инвертированную строку
function ReverseString(s: string): string;
/// Возвращает инвертированную строку
function Reverse(s: string): string;
/// Возвращает инвертированную строку в диапазоне длины length начиная с индекса index
function Reverse(s: string; index,length: integer): string;
function ReverseString(s: string; index,length: integer): string;
/// Сравнивает строки. Возвращает значение < 0 если s1<s2, > 0 если s1>s2 и = 0 если s1=s2
function CompareStr(s1, s2: string): integer;
/// Возвращает первые count символов строки s
@ -7624,22 +7622,20 @@ begin
Result := new string(ch, count);
end;
function Reverse(s: string): string;
function ReverseString(s: string): string;
begin
var ca := s.ToCharArray;
&Array.Reverse(ca);
Result := new string(ca);
end;
function Reverse(s: string; index,length: integer): string;
function ReverseString(s: string; index,length: integer): string;
begin
var ca := s.ToCharArray;
&Array.Reverse(ca,index,length);
Result := new string(ca);
end;
function ReverseString(s: string): string := Reverse(s);
function CompareStr(s1, s2: string): Integer;
begin
Result := string.CompareOrdinal(s1, s2);
@ -11231,6 +11227,14 @@ begin
System.Threading.Thread.CurrentThread.CurrentUICulture := System.Globalization.CultureInfo.GetCultureInfo(locale_str);
nfi := new System.Globalization.NumberFormatInfo();
nfi.NumberGroupSeparator := '.';
// SSM 1.08.18 только в текущем потоке будет точка в вещетвенных
// В Net 4.6 System.Globalization.CultureInfo.DefaultThreadCurrentCulture := ci
// Но как сделать чтобы работало и в младших NET - не знаю
var ci := (System.Globalization.CultureInfo.CurrentCulture.Clone as System.Globalization.CultureInfo);
ci.NumberFormat := nfi;
System.Globalization.CultureInfo.CurrentCulture := ci;
// System.Threading.Thread.CurrentThread.CurrentCulture := new System.Globalization.CultureInfo('en-US');
//rnd := new System.Random;
StartTime := DateTime.Now;