关于文件搜索 ，请高手进来一下好吗？？？(0)

高手，请注释一下好吗，还有一个问题 if sr.name[1] <>'.'中的[1]是什么意思procedure tform1.maketree;var sr:tsearchrec; err:integer; filepath:string;begin err:=findfirst('*.*',$37,sr); while (err=0) do begin if sr.Name[1]<>'.' then begin if (sr.Attr and fadirectory)=0 then begin end; if (sr.attr and fadirectory)=16 then begin filepath:=expandfilename(sr.name); memo1.lines.add(filepath); chdir(sr.Name); maketree; chdir('..'); end; end; err:=findnext(sr); end; end;

字符串第一个字符

字符串第一个字符不是sr.name[0]吗？？？？？

请告诉我好吗，我很菜

pascal默认字符串类型 string 的下标是从1开始的,(0位置是表示字符串的长度)如 var s:string;s:='asdf顶用sdf';下标范围 s[1]到s[length(s)]s[0]里存储 length(s)这个数值你的基础太差了,建议自己多学学,不要在这上面问的好

要宽容菜鸟，谁都是那个时候过来的。

不看书的菜鸟不能宽容。