Zahlen verteilen

[mkinzler]

Delphi-Quellcode:

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