(*читаем из строки переменные разных типов*)
ptr2 := ADR(str1); (*ставим указатель на нашу стоку*)
j:=ptr2^; (*читаем переменную типа INT*)
ptr3 := ptr2 + 2; (*смещаем указатель на 2 байта*)
j := ptr2^;
вот здесь "собака" - если str1 начинается с четного адреса - будет работать, если с нечетного - ватчдог! т.е. как фишка ляжет -50 на 50 ))) поработал код, добавили переменную и абзац! Егор правду глаголет! проверил сам.




Ответить с цитированием
