Hallo,
ich habe eine Art Texteditor geschrieben, und will nun eine Funktion Rückgängig machen. Als Grundidee hatte ich gedacht, mache ich eineArray of TStrings und speichere im OnChange-Ereignis des RichEdits jede Änderung in einer neuen Variable von TStrings.
Dann beim Klick auf den Button 'Rückgängig' soll die Letzte Version wiederhergestellt werden. Das Problem ist nur (zumindest denke ich das es das Problem ist), das beim wiederherstellen des alten Textes wieder das OnChange Ereignis wieder aufgerufen wird.
Dann kommt Folgende Fehlermeldung:
"nil kann nicht zu TRichEditStrings zugewiesen werden."
Hat vielleicht jemand von euch eine Idee wie ich das umgehen kann?
Ich poste mal den Quelltext:
Delphi-Quellcode:
var Änderungen: Array of TStrings;
Anzahl_Änderungen: Integer;
procedure TEingabetext_Formular.EingabetextChange(Sender: TObject);
begin
Anzahl_Änderungen := Anzahl_Änderungen + 1;
SetLength(Änderungen, Anzahl_Änderungen);
Änderungen[Anzahl_Änderungen] := Eingabetext.Lines;
end;
procedure TEingabetext_Formular.RückgängigClick(Sender: TObject);
begin
Eingabetext.Lines.Clear;
Anzahl_Änderungen := Anzahl_Änderungen - 1;
Eingabetext.Lines := Änderungen[Anzahl_Änderungen];
SetLength(Änderungen, Anzahl_Änderungen);
end;
Danke schonmal
