如果要找a,在‘a.....a......a'中的位置,你可<br>var<br> stringlast,stringfirst:string;<br> p:integer;<br>begin<br> stringlast := 'a.....a......a';<br> strfirst :='';<br> p := Pos('a',stringlast);<br> while p<>0 do<br> begin<br> stringfirst := stringfirst+Copy(stringlast,1,p);<br> stringLast := Copy(stringlast,p+1,length(stringlast)-length(stringfirst));<br> p := Pos('a',stringlast);<br> end;<br>end;