Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.02.14;
Скачать: [xml.tar.bz2];

Вниз

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

 
Dragon-zla ©   (2009-12-14 21:36) [0]

Помогите пожалуйста с кодом. Дана запись вида
поле: запись
поле: указатель

У меня не получается реализовать две процедуры : записи в файл и считывания из файла. Подскажите как это реализуется (нужно считать из файла список и записать его).
Список реализуется при помощи указателей


 
Омлет ©   (2009-12-14 21:57) [1]

Что именно вызывает сложность?

procedure SaveData(const FileName: string);
var
 MS: TMemoryStream;
begin
 MS := TMemoryStream.Create;
 try
   // пишем структуры в память
   for to do
     MS.Write(чего надо);

   // сохраняем память
   MS.SaveToFile(FileName);
 finally
   MS.Free;
 end;
end;


Чтение аналогично - в каком порядке записали, в том и читаем.


 
Омлет ©   (2009-12-14 22:03) [2]

Вообще разработка структуры хранения данных - дело не такое простое.
Нужно продумать защиту от порчи данных (контрольные суммы), предусмотреть возможное расширение формата, обратную совместимость и т.п.
Обычно, сначала идет заголовочная часть, в которой описаны размеры данных, количества записей, ссылки на блоки конкретных данных, сигнатура, версия формата, контрольная сумма и т.д.
Потом идут блоки данных, адреса на которые указываются в заголовке. Каждый блок заканчивается контрольной суммой.


 
Leonid Troyanovsky ©   (2009-12-14 22:07) [3]


> Омлет ©   (14.12.09 22:03) [2]

> Вообще разработка структуры хранения данных - дело не такое
> простое.

Не умничай, код давай.

--
Regards, LVT.


 
Германн ©   (2009-12-15 00:28) [4]


> Leonid Troyanovsky ©

Учтем"c.


 
Германн ©   (2009-12-15 00:29) [5]


> Германн ©   (15.12.09 00:28) [4]

Промахнулся веткой. :)



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

Форум: "Начинающим";
Текущий архив: 2010.02.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.004 c
1-1237195269
man Yury
2009-03-16 12:21
2010.02.14
Ошибка 32 при вызове TFileStream


2-1260646194
BenderAnt
2009-12-12 22:29
2010.02.14
TelnetServer


1-1223987293
Vunda
2008-10-14 16:28
2010.02.14
Ошибка при создании ole объекта


2-1260795346
DDD329
2009-12-14 15:55
2010.02.14
Access+Delphi перехват исключения


2-1260801136
serhiyiv
2009-12-14 17:32
2010.02.14
FREE TBITMAP





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский