сохранение записи в файл

← →
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 посмотреть

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