|
Вопрос # 4 229/ вопрос открыт / |
|
Здравствуйте!
помогите пожалуйста исправить ошибку в нижепредставленном коде. 2 месяца уже не могу понять что не так работает. код предназначен для многошаговой операции отмены действий в текстовом редакторе через сохранение на каждый richedit.modified в TObjectList потока со всеми данными находящимися в Richedit. или подскажите как модифицировать код чтобы сохранялось в список только сделанное действие, а не весь текст.. (listview в коде предназначен для графического отображения текущего состояния элемента в потоке)
Приложение: Переключить в обычный режим- var
- Form1: TForm1;
- UndoList: TObjectList;
- i:integer;
- L:TListItem;
- CurCount: integer;
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.RedoButtonClick(Sender: TObject);
- var
- S: TMemoryStream;
- begin
- if CurCount>=0 then begin
-
- s:=UndoList[ CurCount + 1 ] as TMemoryStream;
- assert(s <> nil);
- Richedit.OnChange := nil;
- Richedit.lines.LoadFromStream(s);
- Richedit.Modified := False;
- Richedit.OnChange := RicheditChange;
- CurCount:= CurCount+1;
- ListView.ItemIndex:=CurCount;
- end;
- end;
-
- procedure TForm1.RichEditChange(Sender: TObject);
- var
- s:TMemoryStream;
- begin
- if Richedit.Modified then begin
- s:=TMemoryStream.create;
- Richedit.Lines.SaveToStream(s);
- s.seek(0, soFromBeginning);
- UndoList.add(s);
- CurCount:= UndoList.Count;
- L:= ListView.Items.Add;
- L.Caption:=inttostr(CurCount);
- ListView.ItemIndex:=CurCount-1;
- end;
- end;
-
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- UndoList:= TObjectList.Create( True );
- end;
-
- procedure TForm1.FormDestroy(Sender: TObject);
- begin
- UndoList.Free;
- end;
-
- procedure TForm1.UndoButtonClick(Sender: TObject);
- var
- S: TMemoryStream;
- begin
- if CurCount >= 0 then begin
- s:=UndoList[CurCount - 1 ] as TMemoryStream;
- assert(s <> nil);
- Richedit.OnChange := nil;
- Richedit.lines.LoadFromStream(s);
- Richedit.Modified := False;
- Richedit.OnChange := RicheditChange;
- CurCount:=CurCount-1;
- ListView.ItemIndex:=CurCount;
- end;
- end;
- procedure TForm1.sclrbx1Change(Sender: TObject);
- begin
- Richedit.SelAttributes.Color:=sclrbx1.Selected;
- end;
-
- end.
 |
Вопрос задал: DeLF (статус: Посетитель)
Вопрос отправлен: 25 мая 2010, 23:27
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 26 мая 2010, 11:13; участников в обсуждении: 2.
|
|
DeLF (статус: Посетитель), 25 мая 2010, 23:48 [#1]:
забыл про суть ошибки. при первом нажатии кнопки нечего не происходит, кроме того что курсор из ричедита кудато убирается. после второго нажатия начинает делать откат по списку, но 1 элемент остается лишним, после отката которого вылетает "list out of bounds -1". кнопка redo вобще чистит полностью Ричедит.
|
|
min@y™ (статус: Доктор наук), 26 мая 2010, 08:16 [#2]:
Цитата (DeLF):
но 1 элемент остается лишним, после отката которого вылетает "list out of bounds -1"
Ну, здесь всё очевидно.
procedure TForm1.UndoButtonClick(Sender: TObject);
var
S: TMemoryStream;
begin
if CurCount >= 0 then begin
s:=UndoList[CurCount - 1 ] as TMemoryStream; // При CurCount = 0: "list out of bounds -1"
assert(s <> nil);
Richedit.OnChange := nil;
Richedit.lines.LoadFromStream(s);
Richedit.Modified := False;
Richedit.OnChange := RicheditChange;
CurCount:=CurCount-1;
ListView.ItemIndex:=CurCount;
end;
end;
Для выяснения остального воспользуйся отладчиком. Он для этого и предназначен.
З.Ы. Есть компонент TRxRichEdit, в котором реализованы Undo и Redo. Посмотри его исходник, может пригодиться.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
DeLF (статус: Посетитель), 26 мая 2010, 10:57 [#3]:
копался я в его исходнике, но я начинающий, и либо там нечего нету, либо я не знаю где смотреть...
|
|
|
min@y™ (статус: Доктор наук), 26 мая 2010, 11:13 [#4]:
Цитата (DeLF):
копался я в его исходнике, но я начинающий, и либо там нечего нету, либо я не знаю где смотреть...
Если ты начинающий, то лучше тогда и не копайся.
Ковыряй свой код в дебаггере, ищи логические ошибки, если что-то работает неверно.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
