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

← →
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

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

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

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

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

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