Entwickler-Ecke
Sonstiges (Delphi) - Funktion 'Rückgängig' bei RichEdit?
Delete - Sa 30.04.11 20:30
Titel: Funktion 'Rückgängig' bei RichEdit?
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-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| 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 :)
---
Moderiert von 
Narses: Beiträge zusammengefasst---
Okay ich hab eine Boolean Variable eingeführt (hätte ich vorher drauf kommen müssen >.<) :
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| var Änderungen: Array of TStrings;
Anzahl_Änderungen: Integer;
Abbrechen: Boolean
procedure TEingabetext_Formular.EingabetextChange(Sender: TObject);
begin
if Abbrechen = False
then begin
Anzahl_Änderungen := Anzahl_Änderungen + 1;
SetLength(Änderungen, Anzahl_Änderungen);
Änderungen[Anzahl_Änderungen] := Eingabetext.Lines;
end;
end;
procedure TEingabetext_Formular.RückgängigClick(Sender: TObject);
begin
Abbrechen := True;
Eingabetext.Lines.Clear;
Anzahl_Änderungen := Anzahl_Änderungen - 1;
Eingabetext.Lines := Änderungen[Anzahl_Änderungen - 1];
SetLength(Änderungen, Anzahl_Änderungen);
Abbrechen := False;
end; |
Allerdings erscheint immer noch die gleiche Fehlermeldung, vielleicht jemand eine Idee woran das liegen könnte?
"nil kann nicht zu TRichEditStrings zugewiesen werden."
Wird das vielleicht nicht ordentlich eingespeichert? Muss ich vielleicht eine andere Variable / ein anderes Array nehmen??
Narses - Sa 30.04.11 22:09
Moin!
"Wieviel" Undo willst du denn haben? Schonmal in der laufenden Anwendung Strg+Z gedrückt nach einer Änderung am RichtEdit? Das kannst du auch im Code mit der Methode .Undo machen. :idea:
Wenn du "mehr" rückgängig machen möchtest, dann musst du allerdings die Änderungen verfolgen. :nixweiss:
cu
Narses
HenryHux - Sa 30.04.11 22:26
Du könntest zum Beispiel bei jedem x-ten OnChange Event den Text in einem Array speichern und beim Rückgängig machen halt immer den vorherigen aufrufen.
Dazu kannst du dann auch noch schön passend eine Wiederherstellen-Funktion einbauen.
Viel Glück,
lg
Delete - Sa 30.04.11 22:47
Okay aber selbst wenn ich bei jedem X-ten OnChange Event den Text speichere, wird das dann doch so aussehen wie oben der Quelltext oder?
Dann hätte ich wieder die Fehlermeldung wie oben... Weißt denn einer was an dem Code an sich falsch ist?
Narses - Sa 30.04.11 23:46
Moin!
ehemaliger Nutzer hat folgendes geschrieben  : |
| Weißt denn einer was an dem Code an sich falsch ist? |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| var Änderungen: Array of TStrings;
Anzahl_Änderungen: Integer;
Abbrechen: Boolean = False;
procedure TEingabetext_Formular.EingabetextChange(Sender: TObject);
begin
if NOT Abbrechen
then begin
Anzahl_Änderungen := Anzahl_Änderungen + 1;
SetLength(Änderungen, Anzahl_Änderungen);
Änderungen[Anzahl_Änderungen] := Eingabetext.Lines;
end;
end; |
Ich würde dir allerdings empfehlen nicht alle Variablen global zu deklarieren. :idea:
cu
Narses
Delete - So 01.05.11 11:07
Okay ich habe es jetzt mit einem Array of String gemacht:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
| var Abbrechen: Boolean;
Änderungen: Array of String;
procedure TEingabetext_Formular.FormCreate(Sender: TObject);
begin
Eingabetext_Formular.Eingabetext.OnChange(nil);
end;
procedure TEingabetext_Formular.EingabetextChange(Sender: TObject);
begin
if Abbrechen = False
then begin
SetLength(Änderungen, Length(Änderungen) + 1);
Änderungen[Length(Änderungen) - 1] := Eingabetext.Text;
end;
end;
procedure TEingabetext_Formular.RückgängigClick(Sender: TObject);
begin
Abbrechen := True;
if Length(Änderungen) <> 0
then begin
Eingabetext.Lines.Clear;
Eingabetext.Lines.Text := Änderungen[Length(Änderungen) - 2];
SetLength(Änderungen, Length(Änderungen) - 1);
end
else Beep;
Abbrechen := False;
end; |
Allerding stürzt es immer an der Stelle ab, wenn keine Zeichen mehr da sind, und ich nochmal auf Rückgängig klicke: Genau in der Zeile SetLength (ist ja irgendwie logisch, dass es da abstürzt...) Aber das dürfte dann doch nicht mehr ausgeführt werden??
---
Moderiert von Narses: Beiträge zusammengefasst---
Okay hab den Fehler gefunden: Bei Length(Änderung) = 1 ist ja nur noch Änderung[0] da ...
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| if Length(Änderungen) > 1
then begin
Eingabetext.Lines.Clear;
Eingabetext.Lines.Text := Änderungen[Length(Änderungen) - 2];
SetLength(Änderungen, Length(Änderungen) - 1);
end
else Beep; |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!