Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.08;
Скачать: CL | DM;

Вниз

как записать в файл переменную нестандартную переменную?   Найти похожие ветки 

 
boger   (2002-06-25 11:27) [0]

привет всем
Возникла маленькая проблема: цвет шрифта хранится в виде

type tcolor= -$7fffffff-1..$7fffffff;

я хочу записать его ini файл(при помощи TIniFile) и потом при очередном запуске считать. все проблема в том что можно записывать только определеные типы переменных (integer,string,boolean,float,binaryStream).Как сделать преобразование типов при записи и чтении?
ps можно ли сделать запись переменной произвольного типа в файл и востановление ее обратно ?


 
Skier ©   (2002-06-25 11:38) [1]

> boger
А в чём проблема-то ?
Ведь TColor это и есть integer и его
можно записыть и считывать как integer.
Т.е. можно кастить TColor(Integer) и наоборот
Integer(TColor)


 
boger   (2002-06-25 11:54) [2]

работает, а я все в string хотел преобразовать =)
а как можно set преобразовавать?
string(set) не работает


 
Skier ©   (2002-06-25 12:05) [3]

> boger
А что конкретно нужно сделать ?
И как у тебя объявлен этот set ??


 
boger   (2002-06-25 12:20) [4]

Работает :)вся проблема была в том что я в виде string пытался сохранить =)
а как можно сохранить Set или целиком свойство Form1.font?


 
Anatoly Podgoretsky ©   (2002-06-25 12:23) [5]

Set это непрерывный набор байтов, его размер SizeOf()


 
Skier ©   (2002-06-25 12:24) [6]

> boger
Обратись к модулю typinfo.pas


 
boger   (2002-06-25 14:08) [7]

спасибо за помощь



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

Текущий архив: 2002.07.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
6-23708
VS2001
2002-04-18 18:03
2002.07.08
Помогите ПЛИЗ !!! Проблема с удалением файла на ФТП сервере


14-23745
VAleksey
2002-06-06 07:09
2002.07.08
Delphi 5. Компиляция и запуск.


7-23794
Deniz
2002-04-08 08:48
2002.07.08
Модем ???


3-23497
Wassily
2002-06-17 13:34
2002.07.08
Добавить строку в таблицу Paradox


4-23852
lab
2002-05-08 11:35
2002.07.08
перезагрузить при наличии TNMUDP