Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.016 c