Delphi动态申请数组内存的方法(不使用SetLength,采用和C相似的方式)
2016-03-17 02:02
435 查看
procedure TForm1.Button1Click(Sender: TObject);
type
TArr = array [0..0] of Integer;
PArr = ^TArr;
var
arr: PArr;
i: Integer;
begin
GetMem(arr, 100);
for i := 0 to 100 - 1 do
arr[i] := i;
for i := 0 to 100 - 1 do
OutputDebugString(PChar(Format('%d'#13, [arr[i]])));
FreeMem(arr);
end;
procedure TForm1.Button2Click(Sender: TObject);
type
TArr = array [0..0,0..0] of Integer;
PArr = ^TArr;
var
arr: PArr;
i, j: Integer;
begin
GetMem(arr, 100);
for i := 0 to 10 - 1 do
for j := 0 to 10 - 1 do
arr[i][j] := i * j;
for i := 0 to 10 - 1 do
for j := 0 to 10 - 1 do
OutputDebugString(PChar(Format('%d', [arr[i][j]])));
FreeMem(arr);
end;
http://blog.csdn.net/henreash/article/details/14452327
type
TArr = array [0..0] of Integer;
PArr = ^TArr;
var
arr: PArr;
i: Integer;
begin
GetMem(arr, 100);
for i := 0 to 100 - 1 do
arr[i] := i;
for i := 0 to 100 - 1 do
OutputDebugString(PChar(Format('%d'#13, [arr[i]])));
FreeMem(arr);
end;
procedure TForm1.Button2Click(Sender: TObject);
type
TArr = array [0..0,0..0] of Integer;
PArr = ^TArr;
var
arr: PArr;
i, j: Integer;
begin
GetMem(arr, 100);
for i := 0 to 10 - 1 do
for j := 0 to 10 - 1 do
arr[i][j] := i * j;
for i := 0 to 10 - 1 do
for j := 0 to 10 - 1 do
OutputDebugString(PChar(Format('%d', [arr[i][j]])));
FreeMem(arr);
end;
http://blog.csdn.net/henreash/article/details/14452327
相关文章推荐
- Delphi的类型转换 good
- Delphi调用C++导出的QT类
- Delphi引用C对象文件
- Delphi的指针 good
- 使用Delphi声明C++带函数的结构体实战 good
- Delphi xe7并行编程快速入门(三篇)
- 在Delphi中使用C++对象(两种方法,但都要改造C++提供的DLL)
- Delphi的VMT的结构图,很清楚
- Delphi 编译/链接过程
- Delphi与C++的语法区别(六点区别) good
- Delphi 常用语句
- 用Delphi编写和调用DLL
- delphi资源文件制作及使用详解
- 使用Delphi调用条形码控件BarTender打印标签
- 如何使Android客户端通过socket与delphi的服务端通讯
- Delphi访问活动目录
- Delphi中获取某类的祖先类及其所在单元名称(使用GetTypeData(PClass.ClassInfo)函数,并且该类是从TPersistent类的派生类才可以这么使用)
- delphi7 开发布局
- Delphi数据类型
- delphi7下的token验证,微信服务器验证