| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Кнопка вернуть

jonis_84 ©   (2013-02-17 11:47:00) 

Доброго времени суток!!!
Имеется 2-а кнопки вернуть и очистить, поле мемо , n-кол-во эдитов и текстовый документ.тхт
______________________________________________________________
в эдиты вводим какие-либо данные,если нажать "очистить" ,то текст из эдитов сохраняется построчно в мемо(для каждого своя строка) дальше в текстовый документ.тхт, эдиты очищаются. кнопка вернуть возвращает из текстовый документ.тхт в мемо а дальше в эдиты,все просто!!!
______________________________________________________________
Если текстовый документ.тхт пустой то сохраняется только 1-я строка??????
//Очистить
...
Memo7.Lines[0]:=Edit47.Text;
Memo7.Lines[1]:=Edit48.Text;
Memo7.Lines[2]:=Edit58.Text;
Memo7.Lines[3]:=Edit49.Text;
Memo7.Lines[4]:=Edit50.Text;
Memo7.Lines[5]:=Edit51.Text;
....
    Memo7.Lines.SaveToFile('dannRe.txt');
Edit47.Clear;
Edit48.Clear;
Edit49.Clear;
Edit50.Clear;
Edit51.Clear;
Edit58.Clear;
...


...//Вернуть
Memo7.Lines.LoadFromFile('dannRe.txt');
Edit47.text:=Memo7.Lines[0];
Edit48.text:=Memo7.Lines[1];
Edit58.text:=Memo7.Lines[2];
Edit49.text:=Memo7.Lines[3];
Edit50.text:=Memo7.Lines[4];
Edit51.text:=Memo7.Lines[5];
...


---

TStas   (2013-02-19 02:15:00) [1]

А сами эдиты почему в файл записать нельзы? Мемо-то зачем? Если уж так вломину строки в файл сохранять, ну TStarings сохраняйте. Мемо все равно не нуна, может,я чего не понял.
А строки в Stream сохраняются элементарно: сначала длинна строки пишется, апотом, если строка не поустая, по посимвольно. Читаются аналогигисно. Много лет назад навписал две принитивные процедурки и не парюсь. Вместе со строками можно чего ни поподя в поток писать, ничего не собъется и всё прочтется верно, если не нарушать последовательность чтения/завписи.

---

brother   (2013-02-18 17:26:00) [2]

нет конечно, ему он нужен для
SaveToFile('dannRe.txt');
LoadFromFile('dannRe.txt');
а [7] он игнорирует...

---

icWasya   (2013-02-18 16:50:00) [3]

А вообще говоря, нужен ли Мемо для этой задачи?

---

Anatoly Podgoretsky   (2013-02-18 08:17:00) [4]

> Jonis_84  (17.02.2013 12:17:03)  [3]

Самый простой с таким же результатом это begin end

---

RWolf   (2013-02-17 13:19:00) [5]

впрочем, через TStringStream это делается ещё удобнее.

---

RWolf   (2013-02-17 13:08:00) [6]

это делается через TextFile/WriteLn/ReadLn.

---

O'ShinW   (2013-02-17 12:45:00) [7]

потому что строк нет
Memo7.Lines[0]:=Edit47.Text; vsMemo7.Lines.Add(Edit47.Text)

---

Jonis_84   (2013-02-17 12:21:00) [8]

Спасибо,решил проблему.

procedure TForm1.FormActivate(Sender: TObject);

for i := 0 to 14 do memo7.Lines.add('*');//Заполняю M7


не в .тхт был косяк ,а в мемо.Если мемо изначально пустое,то записывается только Lines[0], если в Lines[0] изначально что-то записано "memo7",то сохраняет Lines[0] и Lines[1],  
ПОЧЕМУ???

---

Jonis_84   (2013-02-17 12:17:00) [9]

Кажется самый простой вариант

---

Jonis_84   (2013-02-17 12:16:00) [10]

ПОЧЕМУ???

---

brother   (2013-02-17 12:10:00) [11]

у тебя все не правильно

---

Наверх