请教关于pchar的小问题(50分)

sugar · 2000-09-03

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

例如:
var a

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

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

snake · 2000-09-03

一样，不过下标从0开始

liguang · 2000-09-03

//请注意以字符数组方式强用PCHAR指针时,数组下标必须从0开始.
procedure TForm1.Button1Click(Sender: TObject);
var
c:char;
a

char;
i:integer;
begin
a:='abcdef';
for i:= 0 to 5 do
begin
c:=a;
MessageBox(Handle,@c,'提示信息',MB_OK);
end;
end;

刘李子 · 2000-09-03

index 从0开始就行了

dop · 2000-09-04

注意用检查字符串的长度，
否则会指Index Out Of Range错误的

gcq · 2000-09-04

呵呵，如果字符里有汉字，就麻烦了！
procedure TForm1.Button1Click(Sender: TObject);
var p

Char;
i:integer;
begin
p:='adf安放sgfd';
showmessage(p[3]+p[4])
end;

Jams · 2000-09-04

fcputao · 2000-09-06

在CSDN上有答案!

sugar · 2000-09-06

接受答案了.