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




Вниз

Как быстро и без напряг реализовать такую штуку... 


[NIKEL]   (2002-02-14 14:04) [0]

Есть допустим Memo и две кнопки (<< и >>) :) ... надо по нажатию кнопки >> сохранить текст из Memo (Memo очищаеться) где нибудь , чтоб по нажатию второй кнопки << предыдущий текст загружался в Memo... в общем список по индексу которого получаешь его значение... как реализовать в коде? (желательно на Builder)



MBo   (2002-02-14 14:14) [1]

яснее бы вопрос поставил
что за предыдущий текст,
что за список?
Думаю, сформулировав вопрос так, чтобы его поняли все, увидишь готовое решение.



[NIKEL]   (2002-02-14 14:21) [2]

... набираю текст в Memo , по нажатию кнопки, ТЕКСТ надо сохранить (ГДЕ можно???),при этом Memo очищаеться, и так надо делать много раз... потом мне надо чтоб я без напряг получал все текста которые я насохранял в той же последовательности

P.S. яснее больше не получиться :)



MBo   (2002-02-14 14:42) [3]

Hold:array of tstringlist;
count:=0;
readcount:=0;

>>.onclick
inc(count);
setlength(hold,count);
hold[count-1]:=tstringlist.create;
hold[count-1].assign(memo1.lines);
memo1.lines.clear;

<<.onclick
inc(readcount);
memo1.lines.assign(hold[readcount-1]);

или аналогично с TList




Ghost.   (2002-02-14 14:43) [4]

Пиши в файл



alexanderK   (2002-02-14 15:00) [5]

Можно например так:

AnsiString s1;

s1=Memo1->Text; // Сохраняем мемо в строке
Memo1->Lines->Clear(); // очищаем мемо

// Делаем что хотим

Memo1->Text=s1; // Восстановили мемо

Это для одной копии мемо, для нескольких чуть сложнее





MBo   (2002-02-14 15:28) [6]

да, разумно сделать так, как советует alexanderK, записывая Memo.Lines.Text не в Stringlist, а просто в строку.
И держать их в одном Stringlist
s1:=Memo.Lines.Text;
stringlist.add(s1);

читать
Memo1.Lines.Text:=stringlist[i];



[NIKEL]   (2002-02-14 17:02) [7]

Спасибо ! очень помогли !




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




Наверх





Память: 0.72 MB
Время: 0.014 c
3-9077            dimich                2002-02-06 11:34  2002.03.04  
InterBase Server


4-9327            Fellomena             2002-01-04 12:29  2002.03.04  
RichEdit1.SelAttributes.Color := $000FFF; - есть альтернативы для одного символа в строке ?


1-9189            Скалли                2002-02-08 13:27  2002.03.04  
Переход по элементам формы по ENTER


14-9289           mvg_first             2002-01-10 13:38  2002.03.04  
Пара предложений для Мерлина (присоединяйтесь!)


1-9128            f0rm                  2002-02-17 00:00  2002.03.04  
Морской бой и матрица :)