Ich habe es jetzt versucht, das ganze mittels zwei Schleifen zu lösen, aber bei meinen relativ geringen Delphi-Verständnissen und der vielleicht fehlenden Logik, hängt sich das Programm auf bzw. friert ein, da es ja anscheinend in einer Schleife feststeckt? Ist es nicht möglich, zwei Schleifen auf diese Art und Weise zu verknüpfen
Delphi-Quellcode:
begin
while (Fassliste.Lines.count > 0) do
begin
while (Verladeliste.Lines.count < a) and (Fassliste.Lines.Count > 0)do
begin
Verladeliste.Lines.Add(Fassliste.Lines[0]);
Fassliste.Lines.Delete(0);
end;
Fassliste.Lines.Add('--------------------')
end;
Gruß
Didi