Datei in Datei schreiben

[Zead]

Hallo,

ich schreibe grad ein Programm, was ausgewählte Dateien(egal was für welche) in eine einzelne Datei schreibt.

Mein Problem dabei ist, dass die geschriebene Datei nur einen Teil der Originaldatei enthält.
Der geschriebene Text enthält zwar komplette Zeilen der Originaldatei, aber überwiegend sind Zeilen abgeschnitten oder die meisten gar nicht da.

Wenn ich eine Datei mit 250kb auslese und neu schreibe, ist die neue nur ca. 36kb groß.
Nehme ich zwei Dateien mit 250kb dann ist die geschriebene Datei ca 43kb groß.

Hier meine lese und schreiberoutine:

Delphi-Quellcode:

        assignfile(paket2,grafikass.Edit1.Text);
        rewrite(paket2);
        for i := 0 to grafikass.ListBox1.Count - 1 do
         begin
           assignfile(paket,grafikass.ListBox1.Items[i]);
           reset(paket);
           repeat
             readln(paket,z);
             writeln(paket2,z);
           until EOF(paket);
           closefile(paket);
         end;
        closefile(paket2);

die Variable z in der ich jede Zeile schreibe ist ein Ansistring. Der sollte eigentlich groß genug sein um eine einzelne Zeile zu speichern denke ich.

[edit=alcaeus]Delphi-Tags hinzugefuegt. In Zukunft bitte selbst tun Mfg, alcaeus[/edit]