Здравствуйте Намедни решил испробовать такое шаманство:

code:

procedure WriteType(p:pointer);
begin
  writeln(pInteger(p)^);
  inc(pInteger(p));
  writeln(pAnsiString(p)^);
end;

type
  TMy=record
    i:integer;
    s:AnsiString;
  end;

var f:TMy;
begin
  f.i:=22227777;
  f.s:='abcdefgh';
  WriteType(@f);
  readln;
end.

У меня возник вопрос, можно ли как-то передать структуру Type, чтобы принимающая процедура сама раскладывала Pointer на поля согласно структ ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83453