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

сохранение записи в файл   Найти похожие ветки 

← →
ltexcimer   (2004-07-10 11:55) [0]

Приветствую, уважаемые мастера!
У меня возникла проблема с сохранением записей в файл, вот кусок кода:
type
out = record
from: string[20];
_to:   string[20];
         data:   PChar;
end;

...

var
f: file of out;
letter: out;

begin
letter.from := Edit1.Text;
letter._to := Edit2.Text;
letter.data := PChar(Edit3.Text);
AssignFile(f, "c:\file.dat");
// Append(f) не работает в данном случае, к сожалению.
Rewrite(f);
WriteLn(letter);
CloseFile(f);
end;

В данном случае я получаю структурированный файл, но могу держать в нем только одну запись.
Задача в том, чтобы получить файл, в котором можно хранить сколько угодно записей типа out и вызывать их оттдуа по очереди.
Если бы Append в данном случае работал было бы просто классно ;)
Заранее благодарен за все ответы!

---

← →
Profi ©   (2004-07-10 12:11) [1]

Rewrite(f) - означает удолить все содержимое файла и открыть для новой записи, удали эту строку и все! И еще не writeln, а
write(f,letter)!

---

← →
MBo ©   (2004-07-10 12:53) [2]

>data:   PChar;
Нет смысла сохранять в файл указатель

---

← →
yaJohn   (2004-07-10 13:19) [3]

>Если бы Append в данном случае работал
reset + seek спасет отца русской демократии

для пущей крутости можно еще filemode посмотреть

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.045 c