11 lines
143 B
ObjectPascal
11 lines
143 B
ObjectPascal
|
uses System.Runtime.InteropServices;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
t1 = class
|
|||
|
|
|
|||
|
|
[MarshalAs(UnmanagedType.ByValTStr)]
|
|||
|
|
s: string;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin end.
|