送分啦->>问个非常菜的问题。大家进来看看

Question

如何将  'Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255)' = Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255)呢？

Answer 1

Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255)这个是保存在INI中的，所以取回肯定是字符类型，但现在需要将其再转成一个对应的结果(例如：Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255=1p234)，不知道如何做，谢谢大家的指点。

Answer 2

你的想法很好，但是我觉得你要自己解析
'Chr(27)+'p'+Chr(0)+Chr(60)+Chr(255)'
其实你只要存为 '^27!p^0^60^255'
然后你判断^后面的字符加CHR
你再想想看

Answer 3

保存为:
Str=27,p,60,255读取时:
function GetStr(Str:String):String;
var ilist:TStrings;
    i,iv:integer;
    S:String;
begin
ilist:=TListString.Create;
Result:='';
try
ilist.Items.CommaText:=Str;
for i:=0 to ilist.Items.Count-1 do
if TryStrToInt(ilist.Items.Strings[i],iv) then Result:=Result+Chr(iv)
else Result:=Result+ilist.Items.Strings[i];
finally
ilist.Free;
end;
end;

Answer 4

保存为:
Str=27,p,60,255读取时:(刚才写错了应该如下)
function GetStr(Str:String):String;
var ilist:TStrings;
    i,iv:integer;
    S:String;
begin
ilist:=TListString.Create;
Result:='';
try
ilist.CommaText:=Str;
for i:=0 to ilist.Count-1 do
if TryStrToInt(ilist.Strings[i],iv) then Result:=Result+Chr(iv)
else Result:=Result+ilist.Strings[i];
finally
ilist.Free;
end;
end;

Answer 5

在INI中就直接那么保存不行吗？我没做过提示一下。

Answer 6

lwgygz(小欣)  看样子只能将数据进行分隔，然后分别执行chr了。不过还想等等有没有其他高人的见解。