StringList "rotieren"?

[toms]

oder so:

Delphi-Quellcode:

function RotateString(sl: TStrings): string;
const
  LINE_MAX_LENGTH = 10;
var
  s: string;
  v, h: Integer;
begin
  s := '';
  for h := 1 to LINE_MAX_LENGTH do
  begin
    for v := 0 to sl.Count - 1 do
      s := s + Copy(sl[v], h, 1)
    s := s + #13#10;
  end;
  Result := s;
end;

Aufruf:

 sl.Text := RotateString(sl);