Seg i Ofs w Delphi

Wie ktoś może jak zastąpić stare procedury z Pascala Seg i Ofs zwracające segment i ofset zmiennej, może są jakieś ich odpowiedniki w języku ObjectPascal ???

Tyle że w Windowsie segmentów nie uświadczysz... Adres zmiennej pobierasz tak:

var
  X : Integer;
begin
  ShowMessage(IntToStr(Integer(@X)));
end;

// nie ma segmentów i offsetów, bo pamiec jest adresowana liniowo [mf].