| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
сохранение записи в файл [D6, Win2k]
ltexcimer © (2004-07-10 11:55:00)Приветствую, уважаемые мастера!
У меня возникла проблема с сохранением записей в файл, вот кусок кода:
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 в данном случае работал было бы просто классно ;)
Заранее благодарен за все ответы!
yaJohn (2004-07-10 13:19:00) [1]>Если бы Append в данном случае работал
reset + seek спасет отца русской демократии
для пущей крутости можно еще filemode посмотреть
MBo (2004-07-10 12:53:00) [2]>data: PChar;
Нет смысла сохранять в файл указатель
Profi (2004-07-10 12:11:00) [3]Rewrite(f) - означает удолить все содержимое файла и открыть для новой записи, удали эту строку и все! И еще не writeln, а
write(f,letter)!
| |
