Sortieralgorithmen

[himitsu]

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.