StringList "rotieren"?

[LDericher]

Delphi-Quellcode:

function Th4xX0r.ListRotation(Input: TStringList): TStringList;
var
  TempSTRs:array of string;
  I,
  J:integer;
begin
Result:=TStringList.Create;
SetLength(TempSTRs, PWLen);
for I:=0 to(Input.Count-1)do
   begin
   for J:=1 to(Length(Input.Strings[I]))do
      begin
      TempStrs[J-1]:=TempStrs[J-1]+Input.Strings[I][J];
      end;
   end;
for I:=0 to(High(TempStrs))
   do Result.Add(TempStrs[I]);
end;

Das wäre meine Idee zu dem Thema...