to netlib
我用了你的方法试了
Delphi报:
[Error] UnBugNameTree.pas(154): Element 0 inaccessible - use 'Length' or 'SetLength'
我用了你的方法试了
Delphi报:
[Error] UnBugNameTree.pas(154): Element 0 inaccessible - use 'Length' or 'SetLength'
setlength(str,1)
var
S: String;
ch: char;
begin
S:= '1234';
ch:=s[1];
showmessage(ch);
end;