VAR P:^char; i:integer; s:string; begin p:[email protected]; for i:=0 to 200 do begin s:=s+^p; //出错 inc(p); end; showmessage(s); end; 如何解决这个问题?????
VAR P:^char; i:integer; s:string; begin p:[email protected]; // ~~--->取地址是什么意思,listview.selected.data本来就是一个指针了。 s := ''; for i:=0 to 200 do begin s:=s+^p; //出错 // s := s + p^ inc(p); end; showmessage(s); end;
s:=s+^p; //出错 原因是P不是一个字符串,DELPHI找不到NIL结尾,因此益处!
hehe,指针好东西啊,各位怎么认为
各位试过这样吗?在大富翁上看的。 条件:在form上有个edit var E : ^TEdit; begin New(E); E^ := Edit1; E^.Text := 'ok'; Dispose(E); end;
C++ . and -> Delphi only . others are same except written-way
你给我分我捧你!
不给我分我扁你!
pascal中的指针(除了pchar)不能像C中那样当数组用,这一点极不爽。
还不知道自己用了指针,delphi包装的好,
其它你用的对象、过程等都是指针。
P:^char;
i:integer;
s:string;
begin
p:[email protected];
for i:=0 to 200 do
begin
s:=s+^p; //出错
inc(p);
end;
showmessage(s);
end;
如何解决这个问题?????
P:^char;
i:integer;
s:string;
begin
p:[email protected];
// ~~--->取地址是什么意思,listview.selected.data本来就是一个指针了。
s := '';
for i:=0 to 200 do
begin
s:=s+^p; //出错
// s := s + p^
inc(p);
end;
showmessage(s);
end;
原因是P不是一个字符串,DELPHI找不到NIL结尾,因此益处!
条件:在form上有个edit
var E : ^TEdit;
begin
New(E);
E^ := Edit1;
E^.Text := 'ok';
Dispose(E);
end;
Delphi only .
others are same except written-way