Functions.CharOdd 方法 |
命名空间: XSharp.Core
1Function Start() 2 LOCAL i AS SHORTINT 3 LOCAL cBuffer AS STRING 4 LOCAL cCharacters, cAttributes AS STRING 5 LOCAL cSong AS STRING 6 cSong := "展示你的真实色彩!" 7 ?? cSong 8 cBuffer := SaveScreenOld(0, 0, 0, 79) 9 cCharacters := CharOdd(cBuffer) 10 cAttributes := CharEven(cBuffer) 11 // 更改属性 12 SEvalA(cAttributes, {|| Chr(i++)}, 1,; 13 SLen(cSong)) 14 // 用新属性重新显示 15 RestScreenOld(1, 0, 1, 79,; 16 CharMix(cCharacters, cAttributes)) 17 RETURN TRUE