Ich habe jetzt die (bzw. eine mögliche) Lösung gefunden. Ich muss mich insoweit korrigieren, als es doch mit verschachtelten If Schleifen funktioniert. Für den Fall, dass jemand Interesse haben sollte, habe ich den Quelltext der Lösung gleich noch mal beigefügt.
Jetzt wüsste ich nur gern noch, ob jemand eine Idee hat, wie man das ganze
schneller machen könnte
und ob man das
Begin und
End weglassen kann, in die ich jeweils die Abfrage
If Not IDv?.Checked Then Write(TF,BDummy); eingefasst habe.
Hier der Quelltext:
Delphi-Quellcode:
P:=0;
While Not EOF(FF) Do
Begin
Read(FF,BDummy);
If (P>=V1Pos) And (P<=V1Size) Then
Begin
If Not IDv1.Checked Then Write(TF,BDummy);
End
Else
Begin
If (P>=V2Pos) And (P<=V2Size) Then
Begin
If Not IDv2.Checked Then Write(TF,BDummy);
End
Else
Begin
If (P>=VLPos) And (P<=VLSize) Then
Begin
If Not IDvL.Checked Then Write(TF,BDummy);
End
Else
Begin
If (P>=VAPos) And (P<=VASize) Then
Begin
If Not IDvA.Checked Then Write(TF,BDummy);
End
Else Write(TF,BDummy);
End;
End;
End;
End;