pascal版修改两问

killer_zingy

请问谁能告诉我把数字改成文字?
比如左右把1, 2 改成 是, 否
性别把0,1,2 改成男, 女, 太监?

killer_zingy

我这样做对吗?
strs[31] := ' 否';
strs[32] := ' 是';

if rrole[rnum].AttTwice = 0 then
  begin
  drawshadowtext(@strs[31, 1], x + 210, y + 5 + 21, colcolor($40), colcolor($4E));
  end
  else if rrole[rnum].AttTwice = 1 then
  begin
  drawshadowtext(@strs[32, 1], x + 210, y + 5 + 21, colcolor($40), colcolor($4E));
  end
end;

winson7891

你编译来看看不就知道了？

不过应该是对的吧~~没比照代码~呵呵~

[发帖际遇]: winson7891偷拍五岳并派大会内幕，登上铁血晚报头条，刷新当晚销量，得到银两21。

killer_zingy

问题是我做的不对!!!

winson7891

不知道你哪里不对，把错误的讯息贴出来看看？

是不是你strs增加了两项，但忘了调整数组的体积？

有什么问题多贴代码吧~~或者自己先研究一下~~

killer_zingy

就像这样, 说不定又是小白问题

[发帖际遇]: killer_zingy拜岳老三为师，得到见面礼银两15.

killer_zingy

自己解决了, 但不支持中文, 等会换个方法试试
//左右
  if rrole[rnum].AttTwice = 0 then
  begin
  str := 'No';
  end
  else
  begin
  str := 'Yes';
  end;

  drawengshadowtext(@str[1], x + 230, y + 5 + 21 * 13, colcolor($66), colcolor($63));

[发帖际遇]: 胡斐要去和程灵素约会，出门前killer_zingy帮他打整了一下络腮胡，得到打赏银两28.

killer_zingy

用这个办法也行, 但就是不支持中文
//左右
  if rrole[rnum].AttTwice = 0 then
  begin
  str := strs[31];
  end
  else
  begin
  str := strs[32];
  end;

  drawengshadowtext(@str[1], x + 230, y + 5 + 21 * 13, colcolor($66), colcolor($63));

[发帖际遇]: killer_zingy带小龙女去蒙地卡罗吃西餐喝红酒，被赵志敬撞见，破财消灾，花费银两16.

killer_zingy

这是性别
//性别
  if rrole[rnum].Sexual = 0 then
  begin
  str := 'Male';
  end
  else if rrole[rnum].Sexual = 1 then
  begin
  str := 'Female';
  end
  else
  begin
  str := 'BT';

  end;

  drawengshadowtext(@str[1], x + 110, y + 131 , colcolor($66), colcolor($63));

winson7891

不支持中文？那属性面板的中文是哪来的？

str是widestring格式？不可能不行~

你自己检查一下漏了什么吧~

[发帖际遇]: winson7891找到一柄破剑，经专家鉴定为独孤求败早年使用的不知名利剑，价值银两27.

killer_zingy

如果是这样的话, 显示'男'的地方就会显示问号
//性别
  if rrole[rnum].Sexual = 0 then
  begin
  str := '男';
  end
  else if rrole[rnum].Sexual = 1 then
  begin
  str := '女';
  end
  else
  begin
  str := '太监';

  end;

  drawengshadowtext(@str[1], x + 110, y + 131 , colcolor($66), colcolor($63));

[发帖际遇]: killer_zingy跟踪成昆进入明教密道，结果：奋勇救小昭脱险，得到小昭感谢银两23.

winson7891

你用了drawengshadowtext，这是写英文的

用drawshadowtext就可解决

eng是english的缩写，OK？

拜托细心点行不？

[发帖际遇]: winson7891帮张无忌翻译小昭写的情书，得到辛苦费银两20.

killer_zingy

对不起, 粗心是我的老毛病

[发帖际遇]: killer_zingy勾结杨康抢夺武穆遗书，行动成功，得到银两25.

winson7891

学会看delphi下面的错误提示

它提示的错误原因不一定正确，但查看它表示的行数，检查上下两行一般可以很好地发现问题

如果指示行数跟你修改的地方相差太远，那也不需要紧张，很多时候大概就是你漏了个begin或者end了，所以整个页面的begin和end都错位了，认真看一下begin和end是否配对就好

这些错误我犯过千遍以上了~~相信楼主也碰到过，所以楼主要努力哦~

[发帖际遇]: winson7891参与红花会陈家洛的计划：成功绑架乾隆，得到奖励银两23.

killer_zingy

谢谢ls的鼓励, 以后一定认真看

[发帖际遇]: 参与红花会陈家洛的计划：行动失败，遭清廷缉捕损失银两24.

南宫梦

在中文前加个空格
另外记得要用繁体字输入

killer_zingy

不是繁体好象也行, 我就从来没用繁体

[发帖际遇]: killer_zingy偷得虚竹身上的美女图卷轴，被慕容复发现后遭痛殴，花去医药费银两34.