pascal语言翻译成c,c++语言

[qdlgx]

(pascal)
var
vcodes:array of record
id:integer;
data:tbitarray;
newid:integer;

tag:byte;
jumppos:tlongarray;
end;

procedure clearvcode;
var vc:integer;
begin
for vc:=0 to high(vcodes) do begin
setlength(vcodes[vc].data,0);
setlength(vcodes[vc].jumppos,0);
end;
setlength(vcodes,0);

end;
对应的C是什么？？？

[yycec]

typedef struct
{
int id;
unsigned char *data;
int newid;
unsigned char tag;
long *jumppos;
} vcode;

vcode vcodes[maxsize];

void clearvcode(vc)
int vc;
{
for (vc = 0; vc < maxsize; vc++)
{
if (vcodes[vc].data)
{
free(vcodes[vc]);
vcodes[vc] = NULL;
}
if (vcodes[vc].jumppos)
{
free(vcodes[vc].jumppos);
vcodes[vc].jumppos = NULL;
}
}
}