希望大虾看看下面的代码,小弟初学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 ;
a:array[0..m] of AMem;
b:array[0..n] of RMem;
function reclaim(var name :string):Boolean;