Hi Patrick
ich hab das noch nicht getestet, aber beim Überfliegen hab ich folgendes bermerkt:
Quelltext
1: 2: 3: 4:
| ... for i:=0 to memo1.Lines.Count-1 do memo1.Lines[i]:=code1.EncryptString(memo1.Lines[i]); ... |
Was passiert, wenn bei der Zuweisung durch das Verschlüsseln in String mit dem Zeichen $0D entsteht? Dann würdest du die aktuelle Zeile ersetzen und gleichzeitg noch eine hinzufügen, weil das ja als Zeilenumbruch angesehen wird. Das heisst das dein Count nicht mehr die aktuelle Anzahl der Zeilen enthält. Das würde erklären, warum am Schluss einige Zeilen stehen bleiben.
Versuch doch einfach mal die Ausgabe in ein zweites Memofeld zu schreiben.
Gruss Lothar
Der BH ist für die Brust, der Plan ist für'n Ar...