blob: 451c9d4cd41c9651c3c1ab8f61701839494102fa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Program Example59;
{ Program to demonstrate the Ptr (compability) function.
}
type pString = ^String;
Var P : pString;
S : String;
begin
S:='Hello, World !';
P:=pString(Ptr(Seg(S),Longint(Ofs(S))));
{P now points to S !}
Writeln (P^);
end.
|
