8 lines
165 B
ObjectPascal
8 lines
165 B
ObjectPascal
unit u;
|
|
|
|
{$resource '1.txt'}
|
|
{$reference 'uui3_lib.dll'}
|
|
|
|
begin
|
|
Assert('abc' = System.IO.StreamReader.Create(GetResourceStream('1.txt')).ReadToEnd);
|
|
end. |