Vereinfachen von Quellcode?

[Nisbo]

habe jetzt eine notlösung gefunden wie man ein einfaches undo / redo hinbekommt, ist aber nicht wirklich zufriedenstellend

man nehme noch 2 zusätzliche SynEdits und setze diese auf visible := false
diese werden dann als zwischenspeicher verwendet

mit den undo und redo buttons wird dann dieser code ausgeführt

Delphi-Quellcode:

// Undo
procedure TForm1.ToolButton7Click(Sender: TObject);
begin
  SynEdit3.Lines := SynEdit1.Lines; // aktueller text sichern
  SynEdit1.Lines := SynEdit2.Lines; // backup einfügen
  SynEdit2.Lines := SynEdit3.Lines; // backup durch aktuellen text ersetzen

  ToolButton7.enabled := false;
  ToolButton9.enabled := true;
end;

// Redo
procedure TForm1.ToolButton9Click(Sender: TObject);
begin
  SynEdit3.Lines := SynEdit1.Lines; // aktueller text sichern
  SynEdit1.Lines := SynEdit2.Lines; // backup zurückschreiben
  SynEdit2.Lines := SynEdit3.Lines; // backup durch aktuellen text ersetzen

  ToolButton7.enabled := true;
  ToolButton9.enabled := false;
end;

die beiden buttons immer abwechselnd enabled oder disabled

beim schreiben neuer zeilen wird vor den einfügen immer

SynEdit2.Lines := SynEdit1.Lines;

gemacht um den aktuellen zwischenspeicher zu lesen sowie der redobutton aus und der undo button eingeschaltet

ToolButton9.enabled := false;
ToolButton7.enabled := true;

vielleicht hilft es ja einen der das topic durch die suche findet