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

Вариант доработки #2655 (#3082)

Browse source 
* make new methods - ext methods

* fix the test

* +1

* fix description after merge

* fix doc

* Keep only the `ObjectString` ext methods

* revert everything except descriptions
This commit is contained in:
Sun Serega 2024-04-27 00:06:45 +03:00 committed by GitHub
parent 4eb6462fd9
commit 8e6ebc1f28
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
2 changed files with 23 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
bin/Lib/PABCSystem.pas
View file

@ -1506,17 +1506,18 @@ function EnumerateDirectories(path: string): sequence of string;
/// Возвращает последовательность имен каталогов по заданному пути, включая подкаталоги
function EnumerateAllDirectories(path: string): sequence of string;
/// Для типа System.Type возвращает имя типа объекта
/// Возвращает имя отражённого типа "t"
function TypeToTypeName(t: System.Type): string;
/// Для типа System.Type записывает в res имя типа объекта
/// Добавляет в res имя отражённого типа "t"
procedure TypeToTypeName(t: System.Type; res: StringBuilder);
/// Для типа System.Type записывает в res имя типа объекта
/// Записывает в res имя отражённого типа "t"
procedure TypeToTypeName(t: System.Type; res: TextWriter);
/// Возвращает имя типа объекта
/// Возвращает имя типа объекта "o"
function TypeName(o: object): string;
/// Записывает в res имя типа объекта
/// Добавляет в res имя типа объекта "o"
procedure TypeName(o: object; res: StringBuilder);
/// Записывает в res имя типа объекта
/// Записывает в res имя типа объекта "o"
procedure TypeName(o: object; res: TextWriter);
///-procedure New<T>(var p: ^T);
@ -2674,11 +2675,11 @@ function RuntimeInitialize(kind: byte; variable: object): object;
///Вычисление размера типа на этапе выполнения
function GetRuntimeSize<T>: integer;
/// Возвращает строку для вывода в write
/// Возвращает строку для вывода подобного Write
function _ObjectToString(o: object): string;
/// Записывает в res строку для вывода в write
/// Добавляет в res строку для вывода подобного Write
procedure _ObjectToString(o: object; res: StringBuilder);
/// Записывает в res строку для вывода в write
/// Записывает в res строку для вывода подобного Write
procedure _ObjectToString(o: object; res: TextWriter);
function IsUnix: boolean;
@ -4599,7 +4600,7 @@ begin
res.Write(name);
end;
procedure TypeToTypeName(t: System.Type; res: StringBuilder) :=
TypeToTypeName(t, new StringWriter(res));
TypeToTypeName(t, new StringWriter(res));
procedure TypeName(o: object; res: TextWriter);
begin
@ -4624,7 +4625,7 @@ begin
TypeToTypeName(t, res);
end;
procedure TypeName(o: object; res: StringBuilder) :=
TypeName(o, new StringWriter(res));
TypeName(o, new StringWriter(res));
function TypeToTypeName(t: System.Type): string;
begin
@ -4641,9 +4642,9 @@ begin
end;
procedure _ObjectToString(o: object; res: TextWriter) :=
ObjectToStringUtils.Append(o, new Stack<object>, res);
ObjectToStringUtils.Append(o, new Stack<object>, res);
procedure _ObjectToString(o: object; res: StringBuilder) :=
_ObjectToString(o, new StringWriter(res));
_ObjectToString(o, new StringWriter(res));
function _ObjectToString(o: object): string;
begin
var res := new StringBuilder;

18
bin/Lib/PABCSystem.xml
View file

@ -1267,22 +1267,22 @@
<summary>Возвращает последовательность имен каталогов по заданному пути, включая подкаталоги</summary>
</member>
<member name="M:TypeToTypeName(System.Type)">
<summary>Для типа System.Type возвращает имя типа объекта</summary>
<summary>Возвращает имя отражённого типа "t"</summary>
</member>
<member name="M:TypeToTypeName(System.Type,System.Text.StringBuilder)">
<summary>Для типа System.Type записывает в res имя типа объекта</summary>
<summary>Добавляет в res имя отражённого типа "t"</summary>
</member>
<member name="M:TypeToTypeName(System.Type,System.IO.TextWriter)">
<summary>Для типа System.Type записывает в res имя типа объекта</summary>
<summary>Записывает в res имя отражённого типа "t"</summary>
</member>
<member name="M:TypeName(System.Object)">
<summary>Возвращает имя типа объекта</summary>
<summary>Возвращает имя типа объекта "o"</summary>
</member>
<member name="M:TypeName(System.Object,System.Text.StringBuilder)">
<summary>Записывает в res имя типа объекта</summary>
<summary>Добавляет в res имя типа объекта "o"</summary>
</member>
<member name="M:TypeName(System.Object,System.IO.TextWriter)">
<summary>Записывает в res имя типа объекта</summary>
<summary>Записывает в res имя типа объекта "o"</summary>
</member>
<member name="M:ExtractFileName(System.String)">
<summary>Выделяет имя файла из полного имени файла fileName</summary>
@ -2639,13 +2639,13 @@
<summary>Вычисление размера типа на этапе выполнения</summary>
</member>
<member name="M:_ObjectToString(System.Object)">
<summary>Возвращает строку для вывода в write</summary>
<summary>Возвращает строку для вывода подобного Write</summary>
</member>
<member name="M:_ObjectToString(System.Object,System.Text.StringBuilder)">
<summary>Записывает в res строку для вывода в write</summary>
<summary>Добавляет в res строку для вывода подобного Write</summary>
</member>
<member name="M:_ObjectToString(System.Object,System.IO.TextWriter)">
<summary>Записывает в res строку для вывода в write</summary>
<summary>Записывает в res строку для вывода подобного Write</summary>
</member>
<member name="M:ExecuteAssemlyIsDll">
<summary>--</summary>