Скачать: CL | DM;

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

← →
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Клик может много чего произойти. В том числе и поменятся значения глобальных переменных, которые ты используешь и которых, кстати, знающие люди рекомендуют избегать.

---

← →
Anatoly Podgoretsky ©   (2004-04-28 22:56) [8]

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

---

← →
Fay ©   (2004-04-29 04:15) [9]

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

---

← →
Fay ©   (2004-04-29 04:16) [10]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.021 c