mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 07:53:43 +02:00
25 lines
419 B
ObjectPascal
25 lines
419 B
ObjectPascal
{
|
|
Example library
|
|
}
|
|
library subs;
|
|
|
|
function SubStr(CString: PChar; FromPos, ToPos: Longint): PChar; cdecl; export;
|
|
var
|
|
Length: Integer;
|
|
begin
|
|
Length := StrLen(CString);
|
|
SubStr := CString + Length;
|
|
if (FromPos > 0) and (ToPos >= FromPos) then
|
|
begin
|
|
if Length >= FromPos then
|
|
SubStr := CString + FromPos - 1;
|
|
if Length > ToPos then
|
|
CString[ToPos] := #0;
|
|
end;
|
|
end;
|
|
|
|
exports
|
|
SubStr;
|
|
|
|
end.
|