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

← →
Comp © (2002-11-25 20:05) [0]

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);

← →
LongIsland © (2002-11-25 20:08) [1]

Rewrite(f);
write(f,us.POP+us.SMTP+us.User+...);

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

← →
Comp © (2002-11-25 20:16) [2]

Ага..
С учётом того, что 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:39) [3]

> Comp © (25.11.02 20:16)

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

← →
Comp © (2002-11-26 11:35) [4]

Да нет...
Тут и мне понятно, что несоответствие типов файловой переменной и записываемых переменных...
делфи тоже не дура......

← →
GydruS © (2002-11-26 11:51) [5]

Дело в том, что Reset открывает файл на прочтение. Для перезаписи используйте ReWrite или Append для дозаписи.

Удачи!

← →
Comp © (2002-11-26 11:58) [6]

Ладно, я понял... Это были проблемы с диском.
А как считать эти записи в Комбобокс?

← →
LongIsland © (2002-11-26 12:01) [7]

Я бы советовал все-таки через TStringList

← →
Comp © (2002-11-27 11:56) [8]

LongIsland

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

← →
arcoant © (2002-11-27 14:57) [9]

Rewrite надо!!! Вместо Reset.

← →
Comp © (2002-11-28 11:55) [10]

arcoant
Так а если надо дозаписать в файл а не начать новый?
У меня получается, только не очень - новое почему-то стирает старое.
Как это исправить?

Append вместо Rewrite

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

Тады Reset и Seek(0, soFromEnd); Reset открывает файл для чтения- записи если не установлен один хитрый флаг в программе (по умолчанию он не установлен).

Почему файл остаётся пустым? Найти похожие ветки