Zahlen verteilen

[der_kumpel]

Nabend.

Ich bräuchte mal wieder einen kleinen Denkanstoß, und zwar:


Ich habe eine beliebig lange Liste mit ungeordnet Zahlen. Diese Zahlen sollen nun verteilt werden, und zwar auf weitere Listen.

Dazu bestimme ich erstmal
const MaxZahlen = 10; , also die maximale Anzahl der Zahlen pro neue Liste.


Und hier den Code, den ich bisher habe:

Delphi-Quellcode:

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

Memo0: Hier stehen die Zahlen, die verteilt werden sollen.
Memo1-x: Hier werden die Zahlen reingesteckt.


1. Frage: Bei z.B. 14 Zahlen in Memo0 werden die ersten 10 Zahlen in Memo1 geschrieben, die Zahlen 11-14 werden ins Memo2 geschickt, aber zusätzlich noch 6 weitere Leerzeilen. Wie kann ich das verhindern?
2. Frage: Gibt es eine bessere (effizientere) Methode, die Zahlen zu verteilen?

Anmerkung: Das mit den Memos hab ich nur zum Testen des Ganzen gebaut, damit ich besser überprüfen kann, was passiert.


Danke schonmal.

kumpel