blob: 1da7e30d80839b0c8005526df48fe2ae107170d1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
program testsubs;
function SubStr(const CString: PChar; FromPos, ToPos: longint): PChar;
cdecl; external 'subs';
var
s: PChar;
FromPos, ToPos: Integer;
begin
s := 'Test';
FromPos := 2;
ToPos := 3;
WriteLn(SubStr(s, FromPos, ToPos));
end.
|
