Форум: "Начинающим";
Текущий архив: 2013.11.24;
Скачать: [xml.tar.bz2];

Вниз

Кнопка вернуть   Найти похожие ветки 

← →
jonis_84   (2013-02-17 11:47) [0]

Доброго времени суток!!!
Имеется 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];
...


---

← →
brother ©   (2013-02-17 12:10) [1]

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

---

← →
Jonis_84   (2013-02-17 12:16) [2]

ПОЧЕМУ???

---

← →
Jonis_84   (2013-02-17 12:17) [3]

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

---

← →
Jonis_84   (2013-02-17 12:21) [4]

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

procedure TForm1.FormActivate(Sender: TObject);

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


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

---

← →
O'ShinW ©   (2013-02-17 12:45) [5]

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

---

← →
RWolf ©   (2013-02-17 13:08) [6]

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

---

← →
RWolf ©   (2013-02-17 13:19) [7]

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

---

← →
Anatoly Podgoretsky ©   (2013-02-18 08:17) [8]

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

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

---

← →
icWasya ©   (2013-02-18 16:50) [9]

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

---

← →
brother ©   (2013-02-18 17:26) [10]

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

---

← →
TStas   (2013-02-19 02:15) [11]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.11.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.002 c