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

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

← →
KIR ©   (2002-06-25 10:15) [0]

Народ, подскажите, что не так (в файл ничего не записывается):
var
Fl: File of Word;
i: Word;
S: String;
begin
If not FileExists("c:\mpv_demo.sms") then
begin
S := "c:\1.ttt";
FileCreate(S);
AssignFile(Fl,S);
ReWrite(Fl);
i := 1;
Write (Fl,i);
CloseFile(Fl);
end;
end.

---

← →
MBo ©   (2002-06-25 10:20) [1]

FileCreate(S); выкинь

---

← →
Kaban ©   (2002-06-25 10:21) [2]

Так может файл существует:
If not FileExists("c:\mpv_demo.sms") then

---

← →
Kaban ©   (2002-06-25 10:23) [3]

Тоже верно, FileCreate(S) не нужен

---

← →
KIR ©   (2002-06-25 10:32) [4]

не помогло...
тем более, не факт, что файл 1.ttt должен существовать, возможен вариант, что его придется создать и записать в него определенное число

---

← →
Kaban ©   (2002-06-25 10:36) [5]

Дело в том, что функция ReWrite создает файл, если его нет

---

← →
Kaban ©   (2002-06-25 10:39) [6]

Объясни, почему ты проверяешь отсутствие файла
If not FileExists("c:\mpv_demo.sms") then
а пишешь в
S := "c:\1.ttt";

---

← →
Anatoly Podgoretsky ©   (2002-06-25 10:40) [7]

У тебя должна была выскочить одна кан-тайм ошибка и после этого у тебя ничего не будет работать, пока не удалишь "c:\1.ttt"
Вся проблема в том, что ты пытаешься смешать низкоуровневые операции FileCreate с высокоуровневыми ReWrite, а вот если бы ты взглянул в хелп по теме FileCreate, то сразу бы прочитал, что делать этого нельзя.
Кроме того у тебя также вообще не будет писать при наличии c:\mpv_demo.sms"
Налицо полная непроработанность программы.

---

← →
KIR ©   (2002-06-25 12:24) [8]

>Kaban. "c:\mpv_demo.sms" - это реальный файл из проекта, а 1.ttt - это для примера. Я просто кусок кода когда вырезал, в одном месте поменял, а вдругом нет. Невнимательность. Я уже и ReWrite пробовал - не выходит.

>Anatoly Podgoretsky. Никакая у меня ошибка не выскакивает. А, вы, как всегда, лечите, лечите, лечите... вместо того, чтобы конкретно помочь. Смотри хелп по такой-то теме - это вообще стандартный ответ на АБСОЛЮТНО ЛЮБОЙ вопрос!

---

← →
Игорь Шевченко ©   (2002-06-25 12:34) [9]

KIR © (25.06.02 12:24)

А что, хелп смотреть религия запрещает ?
Или отладчиком пользоваться?

Халявщиков развелось...

---

← →
MBo ©   (2002-06-25 13:01) [10]

Что еще нужно-то? Работает ведь
var
Fl: File of Word;
i: Word;
S: String;
begin
S := "c:\1.ttt";
AssignFile(Fl,S);
ReWrite(Fl);
i := 1;
Write (Fl,i);
CloseFile(Fl);
end;

---

← →
KIR ©   (2002-06-25 13:07) [11]

>MBo Так вот не работает...

---

← →
Kaban ©   (2002-06-25 13:11) [12]

может вместо английского "c" русское "c" затесалось
или вообще диска с нет

---

← →
Игорь Шевченко ©   (2002-06-25 13:13) [13]

Если не работает, так как у Mbo, то ошибка в ДНК

---

← →
Wild   (2002-06-25 13:13) [14]

2KIR
Согласен с MBo. Только что проверил - все работает (D6,W2K)
У тебя какая система?

---

← →
MBo ©   (2002-06-25 13:14) [15]

>KIR
У меня без проблем ;)
Правда, я счастливый обладатель диска C:

Скопируй в buttonClick, и скажи, чего именно у тебя не делается

---

← →
KIR ©   (2002-06-25 13:27) [16]

Все, народ, спасибо, я разобрался. MBo был прав, а я ступил.

---

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

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



Память: 0.48 MB
Время: 0.008 c