Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запись в файл

KIR © (2002-06-25 10:15:00)
Народ, подскажите, что не так (в файл ничего не записывается):
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.

KIR (2002-06-25 13:27:00) [1]
Все, народ, спасибо, я разобрался. MBo был прав, а я ступил.

MBo (2002-06-25 13:14:00) [2]
>KIR
У меня без проблем ;)
Правда, я счастливый обладатель диска C:

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

Игорь Шевченко (2002-06-25 13:13:00) [3]
Если не работает, так как у Mbo, то ошибка в ДНК

Wild (2002-06-25 13:13:00) [4]
2KIR
Согласен с MBo. Только что проверил - все работает (D6,W2K)
У тебя какая система?

Kaban (2002-06-25 13:11:00) [5]
может вместо английского "c" русское "c" затесалось
или вообще диска с нет

KIR (2002-06-25 13:07:00) [6]
>MBo Так вот не работает...

MBo (2002-06-25 13:01:00) [7]
Что еще нужно-то? Работает ведь
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;

Игорь Шевченко (2002-06-25 12:34:00) [8]
KIR © (25.06.02 12:24)

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

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

KIR (2002-06-25 12:24:00) [9]
>Kaban. "c:\mpv_demo.sms" - это реальный файл из проекта, а 1.ttt - это для примера. Я просто кусок кода когда вырезал, в одном месте поменял, а вдругом нет. Невнимательность. Я уже и ReWrite пробовал - не выходит.

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

Anatoly Podgoretsky (2002-06-25 10:40:00) [10]
У тебя должна была выскочить одна кан-тайм ошибка и после этого у тебя ничего не будет работать, пока не удалишь "c:\1.ttt"
Вся проблема в том, что ты пытаешься смешать низкоуровневые операции FileCreate с высокоуровневыми ReWrite, а вот если бы ты взглянул в хелп по теме FileCreate, то сразу бы прочитал, что делать этого нельзя.
Кроме того у тебя также вообще не будет писать при наличии c:\mpv_demo.sms"
Налицо полная непроработанность программы.

Kaban (2002-06-25 10:39:00) [11]
Объясни, почему ты проверяешь отсутствие файла
If not FileExists("c:\mpv_demo.sms") then
а пишешь в
S := "c:\1.ttt";

Kaban (2002-06-25 10:36:00) [12]
Дело в том, что функция ReWrite создает файл, если его нет

KIR (2002-06-25 10:32:00) [13]
не помогло...
тем более, не факт, что файл 1.ttt должен существовать, возможен вариант, что его придется создать и записать в него определенное число

Kaban (2002-06-25 10:23:00) [14]
Тоже верно, FileCreate(S) не нужен

Kaban (2002-06-25 10:21:00) [15]
Так может файл существует:
If not FileExists("c:\mpv_demo.sms") then

MBo (2002-06-25 10:20:00) [16]
FileCreate(S); выкинь

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »