mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-17 18:42:32 +02:00
15 lines
254 B
ObjectPascal
15 lines
254 B
ObjectPascal
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.
|