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

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

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

Почему файл остаётся пустым?

Comp © (2002-11-25 20:05:00)
us.POP:=Edit1.Text;
us.SMTP:=Edit2.Text;
us.User:=Edit3.Text;
us.name:=Edit4.Text;
us.Email:=edit5.Text;

assignFile(f,"users.usr");

Reset(f);
write(f,us);
Closefile(f);

Comp (2002-11-28 12:58:00) [1]
Smithson ©
Спасибо.

Smithson (2002-11-28 12:23:00) [2]
Тады Reset и Seek(0, soFromEnd); Reset открывает файл для чтения- записиесли не установлен один хитрый флаг в программе (по умолчанию он не установлен).

Comp (2002-11-28 12:19:00) [3]
Smithson
Это только по-моему для текстовых файлов применяется.
А у меня не текстовый.
: File of record POP:string[30]; SMTP:string[30]; User:string[30]; name:string[30]; Email:string[30]; end;

Smithson (2002-11-28 12:13:00) [4]
Append вместо Rewrite

Comp (2002-11-28 11:55:00) [5]
arcoant
Так а если надо дозаписать в файл а не начать новый?
У меня получается, только не очень - новое почему-то стирает старое.
Как это исправить?

arcoant (2002-11-27 14:57:00) [6]
Rewrite надо!!! Вместо Reset.

Comp (2002-11-27 11:56:00) [7]
LongIsland

Да, ты прав.
Возможностей больше, да и удобно...

LongIsland (2002-11-26 12:01:00) [8]
Я бы советовал все-таки через TStringList

Comp (2002-11-26 11:58:00) [9]
Ладно, я понял... Это были проблемы с диском.
А как считать эти записи в Комбобокс?

GydruS (2002-11-26 11:51:00) [10]
Дело в том, что Reset открывает файл на прочтение. Для перезаписи используйте ReWrite или Append для дозаписи.

Удачи!

Comp (2002-11-26 11:35:00) [11]
Да нет...
Тут и мне понятно, что несоответствие типов файловой переменной и записываемых переменных...
делфи тоже не дура......

LongIsland (2002-11-25 20:39:00) [12]

> Comp © (25.11.02 20:16)

А сразу было не сказать?
write(f,us.POP,us.SMTP,us.User+...);

Comp (2002-11-25 20:16:00) [13]
Ага..
С учётом того, что f: File of record
POP:string[30];
SMTP:string[30];
User:string[30];
name:string[30];
Email:string[30];
end;

LongIsland (2002-11-25 20:08:00) [14]
Rewrite(f);
write(f,us.POP+us.SMTP+us.User+...);

Изменить по вкусу:-)

Наверх

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