怎样把字符串单引号去掉

[顺德达人]

var
str:string;
cutstr
begin
str:='#$a5#$0a#$01#$00#$08#$08#$08#$08#$08#$08#$0b#$a6'; //有单引号的字符变量
cutstr:=str; //我能通过什么方法把cutstr:=#$a5#$0a#$01#$00#$08#$08#$08#$08#$08#$08#$0b#$a6 变成这样。
end;

[hsfzxjy]

var i:integer; for i:=1 to length(cutstr) do str:=str '#$' inttohex(ord(cutstr[i]),2));

[sndmsn80809]

顶
kiboisme
(蓝色光芒)

要不然就是楼主没有说清楚

[火龙岛主]

使用函数
AnsiDequotedStr(str, ''');
即可

[火龙岛主]

你这不是单纯的去除单引号，而是转换，参考3楼吧。

[蓝色光芒]

str:='#$a5#$0a#$01#$00#$08#$08#$08#$08#$08#$08#$0b#$a6'; //有单引号的字符变量

这个字符串中,除了语法的单引号,哪里有单引号?
楼主不会是想去掉前后的单引号吧?如果是的话,得补一下基础知识了,
str := 'aaa';
执行之后, str的内容是 aaa 的字符串,而不是两边带引号的aaa字符串.

[OO_is_just_P]

function HexStrToInt(mStr:string):integer;
var
H,L:integer;
begin
H := ord(mStr[1]);
if H >= 65 then H:=H - 55 else H:=H - 48;
L := ord(mStr[2]);
if L >= 65 then L:=L - 55 else L:=L - 48;
result := H*16 + L;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
cutstr,cutstr2, temp:string;
i: Integer;
begin
cutstr2:=#$a5#$0a#$01#$00#$08#$08#$08#$08#$08#$08#$0b#$a6;
cutstr :='';
str:='#$a5#$0a#$01#$00#$08#$08#$08#$08#$08#$08#$0b#$a6'; //有单引号的字符变量
for i := 0 to (Length(str) div 4 -1) do
begin
temp :=Copy(str,i*4+3,2);
cutstr :=cutstr + Char(HexStrToInt(UpperCase(temp)));
end;
if cutstr=cutstr2 then

ShowMessage(cutstr);
end;

[hsfzxjy]

就1楼的回复嘛。。

[cntigercat]

楼主就是想把字符串转换成十六进制吧

[kaikai_kk]

cutstr是啥类型呀？ 看不懂楼主要干什么

[Mit1208]

感觉蓝色光芒说的挺对的
字符串读出后就是不带单引号的，我感觉你这个没必要去掉，直接ShowMessage(str);就可以