Запись в файл

← →
DimaK © (2003-10-25 13:01) [0]

Уважаемые знатоки, как лучше организовать запись в файл. Дело в том, что все даннуе вводятся и выводятся в RichEdit, но на форме так же существует кнопка "очистить экран", которая очищает RichEdit, так же при работе с программой (это терминал под стециальный сотовый коммутатор) в некоторых местах происходит полное стирание экрана, естественно, то что пишется в файл тоже стирается, что не есть хорошо.

Я пишу типа этого:

var Path: String;
begin
path:=ExtractFilePath(Application.ExeName);
if path[length(path)]<>"\" then path:=path+"\";
SaveDialog1.InitialDir:=path;
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;

← →
mOOx_ © (2003-10-25 13:19) [1]

Что-то не совсем понятно, что надо. И почему "...стирание экрана, естественно, то что пишется в файл тоже стирается, что ..."? Что значит, естественно? Как тебе надо, так и сделай. Что мешает? Надо, чтоб не стирался, так не стирай его, а дозаписывай.
ЗЫ. Или я не понимаю чего :)?

← →
TUser © (2003-10-25 13:21) [2]

Добавляй кждую новую строчку в конец файла. Типа, в onKeyPress, проверь, если нажался #13 - то записывай.

← →
Anatoly Podgoretsky © (2003-10-25 14:21) [3]

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

← →
DimaK © (2003-10-25 17:43) [4]

Да мне надо чтобы в файл постоянно дописывалась информация из RichEdit, а не именно то, что в данный момент в нем набрано.

← →
Anatoly Podgoretsky © (2003-10-25 17:50) [5]

Ситуация становится все темнее и темнее

← →
DimaK © (2003-10-25 18:50) [6]

Да что тут темного, просто если файл существует и там есть какой-то текст то не стирать его, а ДОПИСЫВАТЬ В КОНЕЦ ТЕКСТА.

← →
Anatoly Podgoretsky © (2003-10-25 19:02) [7]

Ну наконец лучик света в темном царстве, добавить в переводе Append, для этого отказываемся от SaveToFile в пользу WriteLn

← →
DimaK © (2003-10-25 21:39) [8]

Анатолий, можно по подробнее.
Просто как-то никогда не приходилось именно дописывать данные, просто хотелосьбы к понендельнику доделать прогу и отдать на работе.
Непонятна фраза:
(отказываемся от SaveToFile в пользу WriteLn)

Как?

← →
Anatoly Podgoretsky © (2003-10-25 21:51) [9]

http://www.delphikingdom.com/lyceum/seminar.asp?partID=4

← →
DimaK © (2003-10-31 00:15) [10]

И что? :(
Лучше дайте ссылку(или совет) как log файлы пишутся, чем ссылаться на разные статьи.

← →
Palladin © (2003-10-31 01:26) [11]

> DimaK © (31.10.03 00:15) [10]

На вопрос "Как?" существует множество ответов, но к сожелению в данном случае мне вспомнились только нецензурные. Почему бы тебе всетаки не посетить вышеуказанную ссылку. Может не все потеряно, научишься приводить свои мысли в порядок.

Да ходил я на ссылку, только не хрена не понял :(

Это уже серьезная проблема.

А можно без приколов? Лучше помогите, очень надо :(

var
F:TextFile;
.....
assignFile(F,Opendialog.Filename);
{$i-}
reset(f);
{$I+}
If IOresult<>0 then rewrite(F);
CloseFile(F);
Append(F);
Writeln(f,Text);
CloseFile(F);

Зря статаешься, в указанной ссылке, тема разобратна по полочкам с практическими примерами. Проблема с непониманием, с хреновостью. Если у него будут конкретные вопросы, что именно не понимает, то тогда и стоит тратить силы.

Запись в файл Найти похожие ветки