就像C语言里那样的?
解决方案 »
- [Fatal Error] Could not create output file 'D:\Borland Delphi 7 Studio Enterprise\Borland Delphi 7 Studio Enterprise\Projects\学生
- 大家好,有没有浏览数据库中的图片并能在窗口中放大与缩小这样的控件?
- 接分接得手发酸~休息一下,放分恭喜老妖~
- 发分了:怎样将修改系统时间显示?例如“下午 01:12:23”修改后显示为“13:12:23”
- 关于dbcombobox组件
- 请教高手门一个问题
- C++中调用delphi的dll传递record类型
- 哪里有关于做写字版的大量图片下?(或者是有关图片也行)
- 我遇上一个很大的烦恼!是关于Tdblookupcombox的!
- 两个相同的数值类型怎么复制!
- 俺想问一下,为什么下面的语句有错
- 動態創建的QRshape在第二次preview時不顯示﹖
procedure TForm1.Button1Click(Sender: TObject);
var
a:Array[0..10] of integer;
b,c:pointer;
begin
b:=@a;
c:=@(a[0]);
showmessage(inttostr(integer(b))+' '+inttostr(integer(c)));
end;
var
a:array of integer;
b,c:pointer;
begin
setlength(a,10);
b:=@a;
c:=@(a[0]);
showmessage(inttostr(integer(b))+' '+inttostr(integer(c)));
end;
var
a:Array of integer;
b,c:pointer;
d:integer;
begin
SetLength(a,10); for d:=0 to High(a) do a[d]:=d; b:=@a;
c:=@(a[0]);
showmessage(inttostr(integer(b))+' '+inttostr(integer(c)));
end;
var
a:array of integer;
b,c:pointer;
begin
setlength(a,10);
b:=a;
c:=@(a[0]);
showmessage(inttostr(integer(b))+' '+inttostr(integer(c)));
end;