全排列

123 132
213
231
312
321
function ZsList(mStr: string): string; { 全排列 }
procedure pZsList(mLeft, mRight: string);
var
I, L: Integer;
Temp: string;
begin
L := Length(mLeft);
if L = 0 then
Result := Result + mRight + #13#10
else for I := 1 to L do begin
Temp := mLeft;
Delete(Temp, I, 1);
pZsList(Temp, Concat(mRight, mLeft));
end;
end; { [ZsList<pZsList>] }
begin
Result := '';
pZsList(mStr, '');
end; { ZsList }