Funktion 'Rückgängig' bei RichEdit?

[DeddyH]

Auf diese Weise bekommst Du aber das letzte Array-Element nicht gelöscht. Wie wäre es so?

Delphi-Quellcode:

 if Length(Änderungen) > 0
    then begin
          Eingabetext.Lines.Clear;
          SetLength(Änderungen, Length(Änderungen) - 1);
          if Length(Änderungen) > 0 then
            Eingabetext.Lines.Text := Änderungen[High(Änderungen)];
         end

BTW: Wenn das Array Objekte enthalten sollte, musst Du diese noch freigeben, sonst hast Du ein feines Speicherleck produziert.