[Netscaper]

Код:

var A : Cardinal;
      S : String;
begin
  A := Cardinal(PChar(S));
end;