希望大虾看看下面的代码,小弟初学DELPHI,有些小地方不知道改怎么作。program Project2;uses
SysUtils,
math;
{$APPTYPE CONSOLE}
const M = 10;
N = 10;
Min = 100; //最小分配大小
Type
AMem = record
name : array[0..10] of Char;
adress : integer;
size : integer;
flag : integer;
//1:used,0:no have
end;RMem = record
adress : integer;
size : integer;
flag : integer;
//1:empty , 0:nohave
end;procedure ini();
function allocate(name : PChar ; size : integer):Boolean;
function reclaim(name : PChar):Boolean;//c语言中是char *name,这样表达对不对?
procedure output();
var amem[M] : AMem ;//不知道该如何正确的申明
rmem[N] : RMem ;
SysUtils,
math;
{$APPTYPE CONSOLE}
const M = 10;
N = 10;
Min = 100; //最小分配大小
Type
AMem = record
name : array[0..10] of Char;
adress : integer;
size : integer;
flag : integer;
//1:used,0:no have
end;RMem = record
adress : integer;
size : integer;
flag : integer;
//1:empty , 0:nohave
end;procedure ini();
function allocate(name : PChar ; size : integer):Boolean;
function reclaim(name : PChar):Boolean;//c语言中是char *name,这样表达对不对?
procedure output();
var amem[M] : AMem ;//不知道该如何正确的申明
rmem[N] : RMem ;
解决方案 »
- 200分高难度问题,解决立即给分(文件统计)
- 动态向SQLDATASET添加SQL语句SELECT NAME FORM TABLE WHERE NAME = ~~ ,其中条件要求在COMBOBOX中获得,该怎么解决条件的引号问题呢?
- 如何用代码创建应用程序的桌面快捷方式,或创建一个指向某一网页的桌面快捷方式?
- 关于Combobox控件,up者有分!
- 请问各位如何实现内存中图象翻页的功能?
- 关于数据的提交
- 这样的语句是否可以执行
- DBGrid中怎么得到当前选中的行号?
- 数据库问题,急!
- delphi 6 的CD KEY?
- 中国的delphi高手们请帮忙,谢谢!一定帮帮我啊!
- 十分着急的问题:怎么获得域中所有机器的当前登陆用户?
a:array[0..m] of AMem;
b:array[0..n] of RMem;
function reclaim(var name :string):Boolean;