请教关于pchar的小问题

[gigi2000]

请问各位大虾,怎样循环读出pchar串中的每个字符?
也就是怎样像string[index]那样读?

例如:
var a:pchar;
i:integer;
begin
a:='abcdef';
for i:= 1 to 6 do
begin
分别读出a,b,c,d,e,f
end;
end;

请不吝赐教,小弟感激不敬!

[cheka]

x:=a[i]; 不可以么？

不行的话就 用x:=String(@a)[i];试试

[Putao]

转换为String速度会变慢?!

[LittleStar]

var a:pchar;
i:integer;
begin
a:='abcdef';
for i:= 1 to 6 do
begin
...:=a[i-1];
i:=i+1;
end;
end;

[freeman258]

var a: PChar
i: integer;
c: Char
begin
a := 'abcdef';
for i:=0 to 5 do
begin
c ;= (a+i)^;
//这想不出要单各字符能干吗？
end;
end;

[PoolD]

var
a: pchar;
begin
a :='abcdefghijk';
showmessage(a[7]);
end;

[JGTM2000]

用指针最高效，你不想用指针的话可以用copy(str,startpos,1)，但对于很长的字串效率自然不好。所以，写这么一个函数吧：

function NthChar(s: PChar; index: cardinal): Char;
begin
if index > StrLen(s) then
raise ERangeError.Create('Index is out of range.');
Result:=(s+index)^; // index is 0 based
end;

测试代码：

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
try
for i :=0 to 10 do // will run out of range!
begin
ShowMessage(NthChar(PChar(Caption),0));
end;
except
On E: Exception do // but here we can intercept it
ShowMessage(E.Message);
end;
end;

[JGTM2000]

btw, 对于PChar和ShortString（not compatible to memory layout of PChar/LongString!），[index]的写法也是用指针。

[yeah]

这样做可以读出不定长度的PChar:
var P:Pchar;
i,j:Integer;
begin
P:='abcdefg';
i:=strlen(p);
for j:=0 to i-1 do
showmessage(P[j]);
end;

[tms2000]

Var
a:Pchar;
i:integer;
begin
a:='abcdef';
for i:= 1 to StrLen(a)-1 do
Begin
ch:=Char(A^);
Inc(a);
End;

[tms2000]

var
a:pchar;
p:array[0..n] of char;
begin
strpcopy(p,a);
for i:=0 to n do
...
p[i]
end;