Работа с файлами

← →
KillOfCats (2004-04-28 18:43) [0]

Процедура записи в файл не работает после процедуры чтения из
файла, хотя по отдельности работают все нормально, в чем тут дело?

procedure TForm1.RzButton2Click(Sender: TObject);
begin
s:=Shells.Directory;
AssignFile(F,"setting.txt");
ReWrite(F);
Write (F, s);
CloseFile(F);
RzDir.Directory:=s;
ShowMessage(s);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
AssignFile(F,"setting.txt");
Reset(F);
Read (F, s);
RzDir.Directory:=s;
CloseFile(F);
end;

← →
Anatoly Podgoretsky © (2004-04-28 18:48) [1]

Что такое S, F, Shels, RzDir
Чему равно Shells.Directory, какой текущий каталог, искал ли ты файл в других каталогах.
Почему решил что не работает, этому утверждению есть ли какое ни будь обоснование?

← →
WebErr © (2004-04-28 18:51) [2]

В приведённом Вами коде ошибок нет, ищите их вне его, я бы посоветовал в каждой процеДуре сделать по локальной переменной
F: TextFile;
Тогда всякая неоднозначность при обращению к файлу исчезнет.

← →
Anatoly Podgoretsky © (2004-04-28 18:53) [3]

Неодназначность никуда не деленется, а только незначительно уменьшится, точнее даже и не уменьшится.

← →
KillOfCats (2004-04-28 19:46) [4]

procedure TForm1.FormActivate(Sender: TObject);
begin
AssignFile(F,"setting.txt");
Reset(F);
Read (F, s);
//---------------
RzDir.Directory:=s;
//---------------
CloseFile(F);
end;

Процедура записи перестает работать после установки каталога
в списке директорий, убераешь это - и все работает...

Что за???

← →
Андрей Сенченко © (2004-04-28 19:58) [5]

KillOfCats (28.04.04 19:46) [4]

Ты так и не ответил на вопрос ...

что такое RzDir

← →
KillOfCats (2004-04-28 20:15) [6]

Это Простой DirectoryListBox

← →
miwa © (2004-04-28 22:53) [7]

Ответь для начала на все вопроссы Anatoly Podgoretsky © (28.04.04 18:48) [1]. Учти, что между ФормАктивэйт и РзБаатон2Клик может много чего произойти. В том числе и поменятся значения глобальных переменных, которые ты используешь и которых, кстати, знающие люди рекомендуют избегать.

И учти это не мне эти ответы нужны, а тебе

Предположу, что текущий каталог. Лучше бы тебе писать типа
AssignFile(F,"Z:\MyDir\setting.txt");

Предположу, что текущий каталог
Я, конечно, хотел сказать, что он меняется при RzDir.Directory:=s; 8)

Работа с файлами Найти похожие ветки