var b:array[0.255] of charstrlcopy(b,pchar(p),$100) ? strlcopy(b,pointer(p),$100) ? strlcopy(b,@p,$100) ??
var p:DWORD; m,b:array[0..255] of char; begin b:='abcdefg'; p:=Integer(@b); ShowMessage(IntToStr(p)); StrLCopy(m,Pchar(pointer(p)),$100); ShowMessage(m); end;
b:array[0.255] of charstrlcopy(b,pchar(p),$100) ?
strlcopy(b,pointer(p),$100) ?
strlcopy(b,@p,$100) ??
m,b:array[0..255] of char;
begin
b:='abcdefg';
p:=Integer(@b);
ShowMessage(IntToStr(p));
StrLCopy(m,Pchar(pointer(p)),$100);
ShowMessage(m);
end;