Okay ich habe es jetzt soweit übernommen, aber an einer Stelle stürzt das trotzdem immer wieder ab:
wenn keine Zeichen mehr da sind und ich auf Rückgängig klicke...
Delphi-Quellcode:
if Length(Änderungen) <> 0
then begin
Eingabetext.Lines.Clear;
Eingabetext.Lines.Text := Änderungen[Length(Änderungen) - 2];
SetLength(Änderungen, Length(Änderungen) - 1);
end
else Beep;
Genau bei SetLength kommt die Fehlermeldung (ist ja auch logisch) aber das dürfte doch gar nicht mehr ausgeführt werden??