mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 18:29:36 +02:00
20 lines
259 B
ObjectPascal
20 lines
259 B
ObjectPascal
{$mode objfpc}{$H+}
|
|
{$hints off}
|
|
|
|
procedure APos(const substr: shortstring; const s: RawByteString);
|
|
begin
|
|
end;
|
|
|
|
procedure APos(const Substr: RawByteString; const Source: RawByteString);
|
|
begin
|
|
end;
|
|
|
|
const
|
|
C = '\';
|
|
|
|
begin
|
|
APos(C + '.' + C, 'Test');
|
|
end.
|
|
|
|
|