Здравствуйте, Женя32!
Вы спросили сразу о нескольких задачах. Попробуем по порядку:
1:
Подскажите, пожалуйста, как создать файл своего формата,
Обычно, проблемы создания собственного формата нет, т.к. придумать, как сохранить собственные данные в файл, почти нет: об этом говорит множество форматов графических файлов, например. Причем, выжили не многие. Лучше следовать каким-то правилам, например, перед записью массива, сначала записывать количество его элементов.
Пример (без стримов, а то говорят, что без них никаг):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
type
TMyData=packed record
Name:string[20];
Weight:Double;
Height:extended;
Index:Cardinal;
end;
TMyDataArr=array of TMyData;
const
MySign:Cardinal=$1234;
procedure SaveMyData(var f:file; const Data:TMyData)
begin
BlockWrite(f,Data,SizeOf(Data));
end;
procedure SaveMyDataArr(var f:file;const DataArr:TMyDataArr);
var
l,i:integer;
begin
l:=Length(DataArr);
BlockWrite(f,MySign,SizeOf(MySign));
BlockWrite(f,l,SizeOf(l));
for i:=0 to l-1 do SaveMyData(f,DataArr[i]); //Можно ускорить
end;
procedure TestSave(const FileName:string;const DataArr:TMyDataArr);
var
f:file;
begin
Assign(f,FileName);
ReWrite(f,1);
SaveMyData(f,DataArr);
Close(f);
end;
var
i:Cardinal;
d:TMyDataArr;
begin
SetLength(d,100);
for i:=Low(d) to High(d) do
with d[i] do
begin
Name:=format('Name%u',[i]);
Weight:=Random*100;
Height:=Random*2;
Index:=i;
end;
TestSave('TestData.MyData',d);
end;
2:
чтоб этот файл можно было прочитать только в моей программе,
Очень странное требование, т.к. "полезность" программы определяется, в большой степени, количеством форматов, которые она умеет читать и в которые умеет писать. Предложенный формат, скорее всего, никто нормально не прочтет, т.к. нахненужно, с другой стороны, если станет нужно - прочтут легко. Нормальный способ защититься от этого - потоковое шифрование, на основе введенного пароля, например. Если шифрование нормальное, то и Вы не сможете прочесть, если пароль не знаете. Если просто хочется, чтобы данные в глаза не бросались при просмотре файла, можно в процедуре SaveMyData выполнить какой-нибудь xor.
[/quot]
3:
загружая из него текст в ListBox?
Это просто смешно: давайте сделаем программу, которая покорит мир, но на ее иконке должен быть котенок :)
