wskaźniki amorficzne - przypisywanie wartości

0

Jak przypisać wartości do zmiennych poprzez wskaźniki amorficzne? chodzi mi o coś takiego:

var
a:word;
b:pointer;

begin
a:=1234;
b:=@a;
writeln(word(b^));
b^:=4321; {błąd}
writeln(word(b^));
(b+2)^:=4321; {błąd}
writeln(word(b^));
readln;
end.

długo szukałem w googlach i nic :/

pozdrawiam

0 
word(b^) := 4321;
0

Gdyby to było Delphi - spróbowałbym zdefiniować wskaźnik

type 
  TWordPtr = ^word;

a potem

  TWordPtr(b)^:=4321;

Natomiast instrukcja

    TWordPtr(b+2)^:=4321;

nawet jeśli się powiedzie - zniszczy Ci pamięć.

0

nie zniszczy, (wiem co masz na myśli), pointer wskazuje na obszar zarezerwowany getmem'em, z tym co pisałeś spróbuję i napiszę czy działa, ale jutro ;-)

dzięki, oba sposoby działają dobrze(opierają się na tej samej zasadzie)

pozdrawiam ;-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1