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