delphi开辟空间问题 - Delphi / VCL组件开发及应用
Delphi(Pascal) code:
procedure TForm1.FormCreate(Sender: TObject);
var
i:^Integer;
j,k:Integer;
begin
GetMem(i,5*sizeof(Integer));
for j:=0 to 5 do;
i[j]:=j;
ShowMessage(IntToStr(i[3]));
end;
我是做实验 都说delphi的指针类似于C的指针，我试了一下发现问题了
以上程序报错
C语言
C/C++ code:
#include<stdio.h>
#include<stdlib.h>
main()
{
int *i,j;
i = (int *)malloc(5 * sizeof(int));
for(j = 0;j < 5 ; j ++)
i[j]=j;
printf("%d",i[3]);
}
我想要达到类似C语言上面的效果应该如何修改？
procedure TForm1.Button1Click(Sender: TObject);
var
i:array of integer;
j,k:Integer;
begin
setlength(i,5);
for j:=0 to 5 do
i[j]:=j;
ShowMessage(IntToStr(i[3]));
setlength(i,0);
end;
var
i:^Integer;
j:Integer;
buf: array[0..255] of Char;
begin
GetMem(i,5*sizeof(Integer));
for j:=1 to 3 do
begin
i^:=j;
Inc(i);//下移
end;
Dec(i, 3);//归位
wvsprintf(buf, '%d%d%d', PChar(i));//也可以format
相关问答：
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
一直想使用dll，但delphi的dll子窗体经常有各种问题，比如主窗口与dll子窗口的焦点问题，子窗口中控件的tab键、热键、enter键等的问题，子窗口退出的问题、平面按钮问题等等，网站上进行了搜索，没有比较完美的解决� ......
例子程序见附件，用Delphi 7进行编译
问题代码为
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
请大家帮忙 谢谢了 用Delphi编写一个平行四边形
1
111
11111
111
1
就是这个样子的 在这里谢谢了
平行四边形,你是要求画图还是数字排列?
是数字 排列 不 ......
小弟最近做了几个服务 服务运行需要一些参数 参数是通过一个程序界面修改的 参数保存在access数据库中 现在出现一灵异现象 单独的服务是可以进行控制的（服务的停止 暂停等等）但是多个服务一起开启会出现一服务开 ......
