Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];
Вниз
Почему файл остаётся пустым? Найти похожие ветки
← →
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
Так а если надо дозаписать в файл а не начать новый?
У меня получается, только не очень - новое почему-то стирает старое.
Как это исправить?
← →
Smithson (2002-11-28 12:13) [11]Append вместо Rewrite
← →
Comp (2002-11-28 12:19) [12]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:23) [13]Тады Reset и Seek(0, soFromEnd); Reset открывает файл для чтения- записи если не установлен один хитрый флаг в программе (по умолчанию он не установлен).
← →
Comp (2002-11-28 12:58) [14]Smithson ©
Спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c
