Funktion 'Rückgängig' bei RichEdit?

[user64629]

Okay daran lag es -.- Hab nicht ganz nachgedacht.
Bei Length(Änderung) = 1 ist ja nur noch Änderung[0] da...

Delphi-Quellcode:

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

Jetzt klappt es einwandfrei danke

[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.

[user64629]

Kann ich nicht einfach im OnClose Ereignis sowas wie

 SetLength(Änderung, 0); einfach machen?

[DeddyH]

Wann Du das Array leermachst, musst Du selbst am Besten wissen. Aber es bleibt noch der Hinweis mit evtl. Objekten.