如何使用 Pointer 修改 string

[s11ss]

procedure TForm1.Button1Click(Sender: TObject);
var
p: Pointer;
s: string;
begin
s := 'a23';
p := PChar(s);
Byte(p^) := Ord('1');//想要实现 s[1] := '1'，但这里报错
ShowMessage(s);
end;

[preserve]

是编译通不过么？
Byte(p^)换成PByte(p)^试试

[s11ss]

[Quote=引用 1 楼 preserve 的回复:]
是编译通不过么？
Byte(p^)换成PByte(p)^试试
[/Quote]编译能通过,换成这个PByte(p)^以后编译也能通过,但运行时还是报错,还是 Access Violation.

[huoxin8226]

p := PChar(s)+1;
PByte(p)^:= Ord('1');
试试看

[s11ss]

谢谢,不过不管用啊 :([Quote=引用 3 楼 huoxin8226 的回复:]
  p := PChar(s)+1;
  PByte(p)^:= Ord('1');
试试看
[/Quote]

[Seamour]

s指向的是常量字符串，当然不能直接写了

[s11ss]

那为什么 s[1] := '1' 可以呢？[Quote=引用 5 楼 seamour 的回复:]
s指向的是常量字符串，当然不能直接写了

[/Quote]

[mdejtod]

S是变量，在任何情况下你都可以直接修改，但是
p := PChar(s);
这之后，P就是一个常量指针，常量指针所指的内容不可被修改，但是指针的指向地址可以修改
而指针常量的话，则是指针本身是常量，指向的地址不可以变化,但是指向的地址所对应的内容可以变化
var
p: PChar;
s: string;
begin
s := 'a23';
p := PChar(s);
GetMem(p,Length(S));
CopyMemory(p,PChar(s),Length(s));
P[0] := '1';
s := p;
ShowMessage(s[1]);
FreeMem(p,Length(s));
end;
搞不明白楼主为什么要绕一个圈子来实现这功能。。。。。
希望我没搞错，水平有限。。。

[Seamour]

[Quote=引用 6 楼 s11ss 的回复:]
那为什么 s[1] := '1' 可以呢？
[/Quote]
看反汇编就知道了，str[N] 为 l-value 时会调用 system._UniqueString*，把常量字符串变成了变量。所以 str[N] 为 l-value 时效率非常低