function GetNextStr(str: string): string;
const
L=33; //最低字符
H=126; //最高字符
var
i,Ascii:integer;
begin
Result:='';
i:=length(str);
Ascii:=ord(str)+1;
while (Ascii>H) and (i>0) do
begin
Str:=chr(L);
i:=i-1;
Ascii:=ord(str)+1;
end;
if i=0 then exit;
Str:=chr(Ascii);
Result:=Str;
end;
//当返加一个空字符串时,穷举完成。