c->pascal问题 (50分)

L

lxmzm

Unregistered / Unconfirmed
GUEST, unregistred user!
struct buf {
unsigned char *pnt;
long size;
long pos;
struct buf *next;
struct buf *prev;
};
如何翻译为PASCAL语言?
 
K

Kisber

Unregistered / Unconfirmed
GUEST, unregistred user!
PBuf = ^TBuf;
TBuf = record
pnt :pChar;
size :Integer;
pos :Integer;
next :pBuf;
prev :pBuf;
end;
 
C

creation-zy

Unregistered / Unconfirmed
GUEST, unregistred user!
type
PBuf=^Buf;
Buf=record
pnt:^Byte;
size:Integer;
pos:Integer;
next:pBuf;
prev:pBuf;
end;
 
J

jsxjd

Unregistered / Unconfirmed
GUEST, unregistred user!
是个双向链表的结构
 
L

lxmzm

Unregistered / Unconfirmed
GUEST, unregistred user!
typedef struct {
unsigned long fileposition;
unsigned char val[2];
} wbuffer;
/* Yes, yes, I know I shoulddo
something about these globals */
wbuffer writebuffer[WRITEBUFFERSIZE];
如何翻译!
 

小雨哥

Unregistered / Unconfirmed
GUEST, unregistred user!
type
buf = record
pnt: PByte;
size: LongInt;
pos: LongInt;
next: PBUF;
prev: PBUF;
end;

type
wbuffer = record
fileposition: LongInt;
val: Array[0..2-1] of Byte;
end;
 
L

lxmzm

Unregistered / Unconfirmed
GUEST, unregistred user!
这一句wbuffer writebuffer[WRITEBUFFERSIZE];???
 
J

jsxjd

Unregistered / Unconfirmed
GUEST, unregistred user!
writebuffer:Array[0..WRITEBUFFERSIZE-1] of wbuffer ;
 
L

lxmzm

Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
567
import
I
D
回复
0
查看
865
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
顶部