Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
3.0.0 ▾
|
{%NORUN}
{ Source provided for Free Pascal Bug Report 3628 }
{ Submitted by "rimga" on 2005-02-03 }
{ e-mail: rimga@ktl.mii.lt }
{$ifdef fpc}
{$mode delphi}
{$else}
type
ptrint = longint;
{$endif}
var
s: string='12223445';
begin
s:=string(@s[3]);
WriteLn(ptrint(@s));
WriteLn(ptrint(@s[3]));
end.