실수:핸들,카운트[2],기술가격,기술레벨; 핸들 := 환경열어("C:\Program Files\X-753 RPG\G-D\기술\지역별 기술\" + 파일명 + ".ini"); 환경섹션키읽어(핸들, "기술", 리스트박스0.내용); 환경닫아(핸들); //배울수 있는 기술 목록을 리스트박스0에 집어 넣는다.
리스트박스1.내용.파일읽어("C:\Program Files\X-753 RPG\U-F\" + 사용자 + "\기술.txt"); 리스트박스3.내용.파일읽어("C:\Program Files\X-753 RPG\U-F\" + 사용자 + "\기술lv.txt"); //사용자의 소유 기술을 리스트박스1에 집어 넣는다. //사용자의 소유 기술 레벨을 리스트박스3에 집어 넣는다.
핸들 := 환경열어("C:\Program Files\X-753 RPG\G-D\기술\지역별 기술\" + 파일명 + ".ini"); 환경섹션키값읽어(핸들, "기술", 리스트박스2.내용); 환경닫아(핸들); //배울수 있는 기술의 가격 목록을 리스트박스2에 집어 넣는다.
리스트박스1.내용.갱신시작; 반복{ 리스트박스1.내용.삽입(카운트[1], 리스트박스1.내용.부분문자(카운트[1]) + "[LV:" + 리스트박스3.내용.부분문자(카운트[1]) + "]"); 리스트박스1.내용.삭제(카운트[1] + 1); 카운트[1]:=카운트[1]+1; } 까지(카운트[1]<리스트박스0.내용.줄수); 리스트박스1.내용.갱신끝; //배운 기술 목록을 알려주고 레벨을 알려준다.
리스트박스0.내용.갱신시작; 반복{ 기술가격 := 문을수(리스트박스2.내용.부분문자(카운트[0]),0); 기술레벨 := 문을수(리스트박스3.내용.부분문자(카운트[0]),0); 기술가격 := 기술가격 * 기술레벨; 리스트박스0.내용.삽입(카운트[0], 리스트박스0.내용.부분문자(카운트[0]) + "[" + 수를문(기술가격) + "전]"); 리스트박스0.내용.삭제(카운트[0] + 1); 카운트[0]:=카운트[0]+1; } 까지(카운트[0]<리스트박스0.내용.줄수); 리스트박스0.내용.갱신시작; //배우는 기술의 가격을 알려준다.
//리스트박스0 사당 기술 목록 //리스트박스1 사용자 기술 목록 //리스트박스2 사당 습득 가능 기술 가격 //리스트박스3 사용자 기술 레벨
====================================
문법검사에서 합격 했는데요.. 프로그램을 작동 시켜서 확인 해보니 리스트박스0.내용에 아무런 내용도 안적히는 군요.. 그리고 파일명과 같은 함수는 초기화 명령어에 등록된 함수 입니다. |