Datei teilweise kopieren

[neolithos]

Delphi-Quellcode:

Byte:=0;
While Not EOF(FromFile) Do
Begin
   Read(FromFile,Byte);
   if ((P >= Start1) and (P <= Ende1) and not CheckBox1.Checked) or
       (P >= Start2) and (P <= Ende2) and not CheckBox2.Checked) or
       (P >= Start3) and (P <= Ende3) and not CheckBox3.Checked) or
       ...) then
     Write(ToFile,Byte);
   Inc(P);
End;

Eventuell so?