57 lines
1.4 KiB
ObjectPascal
57 lines
1.4 KiB
ObjectPascal
|
type
|
|||
|
|
r1 = record
|
|||
|
|
public a := 123;
|
|||
|
|
public b := 'abc';
|
|||
|
|
internal c := 'err';
|
|||
|
|
|
|||
|
|
public property p: byte read byte(a);
|
|||
|
|
internal property e: string read 'err';
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var res := new StringBuilder;
|
|||
|
|
procedure Test(o: object);
|
|||
|
|
begin
|
|||
|
|
TypeName(o, res);
|
|||
|
|
res.Append('{ ');
|
|||
|
|
_ObjectToString(o, res);
|
|||
|
|
res.Append(' }'#10);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
Test(1);
|
|||
|
|
Test('abc');
|
|||
|
|
Test(new System.UIntPtr(123));
|
|||
|
|
|
|||
|
|
Test(new byte[2,1,1,1,1,1,1,1,2]);
|
|||
|
|
Test(new byte[2,1,1,1,0,1,1,1,2]);
|
|||
|
|
Test(|1.2,3|.ToList);
|
|||
|
|
Test(|1,2,3,4,5|.Skip(1).Take(3));
|
|||
|
|
Test(new System.Collections.ArrayList(|6,7,8|)); // Пример НЕ типизированной последовательности
|
|||
|
|
|
|||
|
|
Test(new r1);
|
|||
|
|
|
|||
|
|
var d1 := procedure(b: byte)->exit();
|
|||
|
|
var d2: Action<byte> := d1;
|
|||
|
|
var d3 := function: object->d1;
|
|||
|
|
var d4: Func0<object> := d3;
|
|||
|
|
Test(d1);
|
|||
|
|
Test(d2);
|
|||
|
|
Test(Delegate(d3));
|
|||
|
|
Test(Delegate(d4));
|
|||
|
|
|
|||
|
|
var otp_fname := 'ObjectToString.txt';
|
|||
|
|
var otp_new_fname := 'ObjectToString[new].txt';
|
|||
|
|
var enc := new System.Text.UTF8Encoding(true);
|
|||
|
|
|
|||
|
|
var dir := GetCurrentDir;
|
|||
|
|
if System.IO.Path.GetFileName(dir)='exe' then
|
|||
|
|
dir := System.IO.Path.GetDirectoryName(dir);
|
|||
|
|
|
|||
|
|
var expected := ReadAllText(dir+'\'+otp_fname, enc).Remove(#13);
|
|||
|
|
var curr := res.ToString;
|
|||
|
|
var tr := expected = curr;
|
|||
|
|
if not tr then WriteAllText(dir+'\'+otp_new_fname, curr, enc);
|
|||
|
|
Assert(tr);
|
|||
|
|
end.
|