Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

как сделать анлимитед анду/реду для мемо? 


лут   (2002-04-13 15:23) [0]

у кого какие идеи насчет того как сделать анлимитед анду/реду для мемо.

сделал 2:один сохраняет в листбоксе другой в в темп файлах но ниодна мне не нравиться:(

1- когда текст большой (не измерял точность)вызывает сбой, ясное дело низя список строк в одной строке сохранить-у нее же есть лимит наверное(но какой у нее лимит?)
2-сжирает место на винте.


1)
var
undo:boolean;

implementation

{$R *.DFM}

procedure TForm1.button_redoClick(Sender: TObject);
var
i:integer;
begin
i:= ListBoxRedo.Items.Count;

if listboxRedo.Items.Text<>""then
begin
memo1.Text:=ListBoxRedo.Items[i-1];
ListBoxRedo.Items.Delete(i-1);
button_redo.Enabled:=true;
end
else
begin
button_redo.Enabled:=false;
end;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
if undo then
undo:= false
else
ListBoxUndo.Items.Insert(0,memo1.text);

if memo1.Text<>""then
button_undo.Enabled:=true;
end;

procedure TForm1.button_undoClick(Sender: TObject);
begin
undo:=true;
ListBoxUndo.Items.Delete(0);

if memo1.Text<>""then
ListBoxRedo.Items.Add(Memo1.Text);

if listboxUndo.Items.Text<>""then
begin
memo1.Text:=ListBoxUndo.Items[0];
button_undo.Enabled:=true;
end
else
begin
memo1.Text:="";
button_undo.Enabled:=false;
end;

button_redo.Enabled:=true;


2).
procedure TForm1.Memo2Change(Sender: TObject);
begin
inc(i);
memo2.Lines.SaveToFile("temp"+inttostr(i)+".txt");

end;



SPeller   (2002-04-13 16:27) [1]

Можно запоминать в масив 3 параметра - текст, начало выделения, конец выделения или вообще один текст. Сначала заполнять массив, а затем добавлять новые и удалять старые данные.



Fantasist   (2002-04-13 21:29) [2]

Запоминай последовательность нажатых клавишь и удаленных букв.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.041 c
4-81105           Oleg1                 2002-02-17 20:43  2002.04.25  
winexit


3-80832           Tolstomordik          2002-04-05 17:12  2002.04.25  
Получить значение выбранной ячейки в DBGrid


14-81085          VictorT               2002-03-13 14:36  2002.04.25  
Болванка с картинкой


6-81021           Дмитрий Катаев        2002-02-10 00:21  2002.04.25  
Как вытащить исходный текст с помощью HTML?


3-80742           diMAN                 2002-03-29 18:45  2002.04.25  
Прогресс-бар при выполнении длительных SQL-запросов