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

Вниз

Запись и чтение экземпляра класса в файл   Найти похожие ветки 

 
Grant   (2006-12-27 12:38) [0]

Всем привет. У меня есть класс, например:
 TMy = class
     private
       a: Integer;
       b: string;
     public
 end;

Дальше создаю экземпляр класса, заношу что-то в a и b. Мне необходимо сохранить этот экземпляр в файл(типизированный или не типизированный). А потом вычитать его из файла. Подскажите как это сделать. Заранее спасибо.


 
Reindeer Moss Eater ©   (2006-12-27 12:40) [1]

with TFileStream.Create(filename,fmcreate) do
try
 write(a,SizeOf(a));
 write(b[1],length(b));
finally
 Free;
ena;


 
Dmitrij_K   (2006-12-27 12:43) [2]


> Мне необходимо сохранить этот экземпляр в файл

это ОЧЕНЬ сложно, т.е. почти невозможно
см.
http://forum.vingrad.ru/topic-94245/view-all.html


 
Dmitrij_K   (2006-12-27 12:44) [3]

Удалено модератором
Примечание: дубль


 
Сергей М. ©   (2006-12-27 13:16) [4]


> Grant   (27.12.06 12:38)


Сделай TMy наследником TComponent
Перенеси a, b в published-секцию.

Отныне твой объект сохраняется в FileStream методом WriteComponent, а восстанавливается из FileStream методом ReadComponent


 
icWasya ©   (2006-12-27 16:20) [5]

ещё вот
http://rsdn.ru/article/delphi/serialization.xml



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

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

Наверх





Память: 0.45 MB
Время: 0.027 c
2-1170018465
san1
2007-01-29 00:07
2007.02.18
real в integer


2-1170134129
MASTAFA
2007-01-30 08:15
2007.02.18
Вопрос по связи MathCad и Delphi


1-1167225169
DVM
2006-12-27 16:12
2007.02.18
Отловить изменение числа мониторов. Проблема.


2-1170336039
Lera
2007-02-01 16:20
2007.02.18
Наличие файла


2-1170357940
ZiTRaX
2007-02-01 22:25
2007.02.18
Ошибка при работе с директивой absolute





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский