Delphi-Quellcode:
// Memo1 = ContainerListe
// Memo2 = VerladeListe
// OpenDialog1 = VerladeDatei
// OpenDialog2 = ContainerDatei
// das, was maximal in einen Container rein passt = Anzahl
begin
...
VerladeListe.LoadFromFile(VerladeDatei.FileName);
while (ContainerListe.Lines.Count < Anzahl) and (VerladeListe.Lines.Count > 0) do
begin
ContainerListe.Lines.Add(VerladeListe.Lines[0]);
VerladeListe.Lines.Delete(0);
end;
ContainerListe.SaveToFile(ContainerDatei.FileName);
end;
Vielen Dank an euch!! So habe ich es hinbekommen.
Das Programm berechnet ja die max. Fässeranzahl pro Container für variable Fässermaße.
Mit der Schleife wird ja
ein Container komplett beladen und die Containernummern in die zweite Textdatei geschrieben.
Indem man das erste Memo(Containerliste) durchzählt und durch die Anzahl der verladbaren Fässer pro Container teilt, kommt man ja auf die Gesamtanzahl der benötigten Container.
Ist es jetzt möglich (vielleicht mit einer zweiten Schleife?) einen Container zu beladen und Container1 drunter zu schreiben und dann eben den zweiten Container zu beladen und so weiter und so weiter....das das ganze also in der Textdatei in etwa so aussieht bis alle Fässer verladen sind?(für 10 Fässer pro Container):
Code:
39808
67362
10872
26748
91609
26630
62995
38765
28935
41792
in Container 1
59480
60755
70998
80617
61144
36405
76567
85699
11357
97761
in Container 2
...
...
Gruß
Didi
und nochmals danke...ihr habt mir wirklich sehr geholfen!
