label13.caption := ReverseString('abc,abc');为什么不对？

Question

label13.caption := ReverseString('abc,abc');为什么不对？

Answer 1

ReverseString('abc,abc')是什么类型啊。是不是存在TCaption和string类型之间的转换啊。

Answer 2

测试没问题
是不是如楼上所说没有uses strUtils
你的问题是什么？

Answer 3

比如说
'abc,def'
是要变成'fed,cba'
还是'def,abc'

Answer 4

最好能这样 'def,abc'
谢谢！

Answer 5

var
  i: integer;
begin
  i:=Pos(',',labe13.caption);
label13.caption:=Copy(labe13.caption,i+1,Length(labe13.caption)-i)+','+Copy(labe13.caption,1,i-1);
end;

Answer 6

'abc,def'
是要变成'fed,cba'
要变成'def,abc'
procedure TForm1.BitBtn1Click(Sender: TObject);
var
str:string;
i:integer;
begin
  str:='abc,def';
  i:=Pos('c',str);
  str:=RightStr(str,Length(str)-i-1)+','+Leftstr(str,i);
  Label1.Caption:=str;
end;

Answer 7

我的字符串有几千个 'abc,def',楼上的方法到也是可行的

Answer 8

那怎么样把 edit.text变成string类型呀

Answer 9

var
str:string;
srt:=edit.text直接引用不行吗？

Answer 10

我str定义的是packed array[0..9] of char,当定义成string[10]就可以，不知前者为什么不行？

Answer 11

知道了，用strpcopy( str , edit1.Text ),就可以了