Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
ВнизЗапись в файл Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.005 c