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

Вниз

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

 
VJar   (2002-11-12 17:30) [0]

Допустим у меня есть такой тип:

Type TAnketa = Record
Name = string[10];
Surname = string[20]
Age = word;
end

Var F:File of TAnketa;

Как мне, открыв файл F, проверить имеет ли даный
файл информацию типа TAnketa, т.е. проверить
подходит ли мне этот файл для удачного чтения?


 
MBo ©   (2002-11-12 17:34) [1]

да в общем, только проверкой, входят ли байты, располагающиеся в местах, где должны быть строки, в диапазон печатных ASCII-символов (или, скажем, только русских букв)


 
Smithson ©   (2002-11-12 17:40) [2]

Сделай еще такой тип

type
TFileHeader = record
SIGNATURE: Array[1..3] of Char;
Version: String[10];
Info: String[50];
// например. Или еще какие поля...
end;


И записывай его в начало файла. Тогда прочитав его из испытуемого файла (елси ты задавал в SIGNATURE уникальные символы), ты по ним сможешь определить, что у тебя за файл - твои или нет.
Можно еще сделать функцию, проверяющую наоличие в начале файле заданой сигнатуры.
Один раз не поленисмь и самому много раз пригодится!


 
KoluChi ©   (2002-11-12 17:41) [3]

Попробавать прочитать - если не получиться, значит не подходит :)


 
Андрей Прокофьев ©   (2002-11-12 17:45) [4]

Поместить в первый запись СВОЮ информацию
(например
Name = "Файл"
Surname = "анкет",
Age = 77;)

и проверять ее при открытии
или см MBo



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
1-69353
max_28
2002-11-13 00:12
2002.11.21
защита программы от копирования


1-69246
Nick-From
2002-11-09 21:37
2002.11.21
Такой вот вопрос


3-69113
pavelsinicinV
2002-11-03 20:29
2002.11.21
Aизический номер записи в таблице через SQL запрос


6-69481
Pelot
2002-07-16 13:57
2002.11.21
Удаленное Выключение под ХР


14-69501
romych
2002-10-22 12:51
2002.11.21
InDy