Path: utzoo!attcan!uunet!aplcen!haven!adm!news
From: CDCKAB%EMUVM1.BITNET@cunyvm.cuny.edu ( Karl Brendel)
Newsgroups: comp.lang.pascal
Subject: (r) help TP pointers
Message-ID: <24230@adm.BRL.MIL>
Date: 20 Aug 90 17:48:42 GMT
Sender: news@adm.BRL.MIL
Lines: 25


 <SNYDER%UCLACH.BITNET@cornellc.cit.cornell.edu> writes:

>I need to know how to get the segment and offset of the address that
>an allocated pointer points to (e  (sic)

Use the Ofs and Seg functions on the item pointed to by the pointer.

E.g.:

var
  s,o : word;
  pb : ^byte;
begin
  New(pb);
  s := Seg(pb^);
  o := Ofs(pb^);
end.

Karl Brendel
Centers for Disease Control
Epidemiology Program Office               Home of Epi Info 5.0
Atlanta, GA
phone 404/639-2709
fts       236-2709