Zahlen verteilen

[mkinzler]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,j: integer;
begin
  for i := 1 to (Memo.Lines.Count Div MaxZahlen)+1  do
    begin
      for j := 0 to Min( MaxZahlen, Memo.Lines.Count - (i-1) * MaxZahlen )-1 do
        (FindComponent('Memo'+IntToStr(i)) as TMemo).Lines.Add(Memo.Lines[(i-1)*Maxzahlen+j]);
    end;
end;