您的位置：程序门 -> delphi -> 语言基础/算法/系统设计

如何将c++语法翻译为delphi: byte buff1; buff1 = new byte[768576*3];

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何将c++语法翻译为delphi: byte *buff1; buff1 = new byte[768*576*3];[已结贴,结贴人:franbo]

发表于：2007-03-07 09:45:59 楼主

问题一
c++: byte *buff1;
buff1 = new byte[768*576*3];
用delphi 怎么实现上面代码

问题二
c++: cfile ff;
ff.open（ "./filehead ",cfile::moderead);
ff.read（head,54);
ff.close（);
用delphi 怎么实现上面代码

发表于：2007-03-07 11:02:081楼得分:20

一:
var
buff1 : pbyte;
begin
getmem（buff1, 768*576*3);
......
freemem（buff1);
end;

发表于：2007-03-07 11:06:472楼得分:20

二:
var
ihandle : integer;
head : array [0..53] of byte;
begin
ihandle := fileopen（ './filehead ', fmopenread);
if ihandle <> -1 then
begin
fileseek（ihandle, 0, 0);
fileread（ihandle, head[0], 54);
fileclose（ihandle);
end;
end;

发表于：2007-03-07 11:07:433楼得分:30

二: 或者
var
ihandle : integer;
head : pbyte;
begin
getmem（head, 54);
ihandle := fileopen（ './filehead ', fmopenread);
if ihandle <> -1 then
begin
fileseek（ihandle, 0, 0);
fileread（ihandle, head, 54);
fileclose（ihandle);
end;
freemem（head);
end;

发表于：2007-03-07 11:26:404楼得分:30

var
bytearr:array of byte;

setlength（bytearr,54);
动态数组，在delphi中，动态数组名称就是一个指针类型了。。。。。

下一篇：对 delphi 甚感兴趣，想先有个概念，请指教。
上一篇：字符串解析代码出错

其他资讯