Zitat:
Delphi-Quellcode:
for i := 0
to Memo1.Lines.Count -1
do
begin
//sicherstellen, dass der String min. ein Zeichen hat.
if Memo1.Lines.Strings[i] = '
'
then
begin
Memo1.Lines.Delete(i);
dec(j);
//klappt trotzdem nicht
Wegen dieser Konstruktion.
- "klappt trotzdem nicht" ist keine Fehlerbeschreibung!
- und wegen der Schleife, rate ich dir dringend mal die Indexprüfung zu aktivieren, in deinen Projektoptionen.