type

CommonDescriptionFile = Record // 레코드 하나 선언하구요...

boolIsComplete : Bool;

strPageCourse : String[1];

strPageName : String[15];

strAuthor : String[4];

strLevel : String[8];

strProgress : String[5];

wdQuestType : Word;

wdCaseNO : Word;

wdLCaseNO : Word;

wdRcaseNO : Word;

wdCountNO : Word;

end;



KoreaDescriptionFile = Record //레코드 2개째 선언이요...

strKIEcode : String[15];

strPageNum : String[5];

strSubjectCode: String[5];

strArea : String[6];

strTotProgress : String[10];

end;



....

var

CDescription : CommonDescriptionFile;

KDescription : KoreaDescriptionFile;

CF : File of CommonDesCriptionFile; //첫번째 레코드

KF : File of KoreaDesCriptionFile; //두번째 레코드





//그리고요..

// 이렇게 구현을 했는데...



AssignFile(CF, CDescription.strPageName + '.Desc');

ReWrite(CF);

Write(CF, CDescription);

CloseFile(CF); // 여기까지 CF꺼한번쓰고





// CF 그파일 열어서 추가해서 다른내용 쓰기요..

AssignFile(KF, CDescription.strPageName + '.Desc');

Append(KF); // =>여기서 에러가 나요...incompatible types라며...

Write(KF, KDescription);

CloseFile(KF);



//.. 간단하게 풀릴거 같은데요.. 제가 초보거든요...

//꼭 알려주세용~~~