C++代码翻译

[yangdongxueC]

请帮忙将下列C++代码翻译成delphi的，谢谢

void ReadFile( char* fileName, int* shapeIdArray)
{
	int width;
	int height;
	char* attibutes;
	unsigned short* elevations;
	FILE* file;

	file = fopen (ffileName, "rb");
	_ASSERTE (file);

	width = 256;
	height = 256;

	elevations = (unsigned short*) malloc (width * height * sizeof (unsigned short));
	attibutes = (char*) malloc (width * width * sizeof (char));
	fread (elevations, sizeof (unsigned short), width * height, file);

	memset (attibutes, 1, width * height * sizeof (char));
	if (shapeIdArray) {
		for (int i = 0; i < width * height; i ++) {
			attibutes[i] = char(shapeIdArray[0]);
		}
	}
}

[sololie]

这个函数问题不少，还是先不要翻译了