Создать свой формат файла

[Манжосов Денис :)]

Подскажите, можно ли средствами Delphi создать свой собственный формат файла, если можно - то как?
Заранее спасибо.

[alexBlack]

Денис, формат файла - это условность (вопрос соглашений).
Используйте потоки для сохранения Ваших данных. Созданный файл будет в собственном формате. Как правило есть заголовок файла с информацией о типе, версии, датах и т.д. Дальше в файле идут данные. Как они будут записаны это Ваше дело. Посмотрите самое простое - формат dbf-файла.

Или вот, для примера - сохранение объектов в поток:

type
   TMyObject = class
   private
      field1 : integer;
      field2 : string;
   public
      constructor Create;
      procedure Save(F:TStream);
      procedure Read(F:TStream);
   end;

constructor TMyObject.Create;
begin
   inherited Create;
   field1 := 100;
   field2 := 'test';
end;

procedure TMyObject.Save(F:TStream);
var L:integer;
begin
   F.Write(field1, sizeOf(integer));
   L := length(field2);
   F.Write(L, sizeOf(integer));
   if L > 0 then F.Write(field2[1], L);
end;

procedure TMyObject.Read(F:TStream);
var L:integer;
begin
   F.Read(field1, sizeOf(integer));
   F.Read(L, sizeOf(integer));
   if L = 0 then field2 := ''
   else begin
      SetLength(field2, L);
      F.Read(field2[1], L);
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var T1 : TMyObject;
    F:TFileStream;
begin
   T1 := TMyObject.Create;

   F := TFileStream.Create('test.dat', fmCreate);
   try
      T1.Save(F);
   finally
      F.free;
   end;

   F := TFileStream.Create('test.dat', fmOpenRead);
   try
      T1.Read(F);
   finally
      F.free;
   end;
end;

[Манжосов Денис :)]

С этим ясно..Вот например можно написать так?

FileStream := TFileStream.Create;
...
FileStream.SaveToFile('Test.tst');

такого формата же нет, тоесть можно разные окончания приписывать?

[Ozerich]

Конечно можно.НО если этот формат не зарегистрирован в системе его никакой программой не откроешь.Открыть его можно только из твоей программы если есть возможность открывать файл.А если формат Зарегистрировать то при открытии файла будет запускаться прога которая указана в регистрации

[BOBAH13]

2 Манжосов Денис: Определитесь что такое вообще "формат файла"! Это не имя файла ( его окончание ) это просто "правила" по которым надо читать из файла теже байты ( биты если углубляться, но это не важно ). Вот и все. А то какое там расширение, это уже условность самой системы.

[mutabor]

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

[russian-stalker]

Просто расширение не как не влияет на структуру файла, это просто пояснение системе, например чтобы проверить ассациацию. А вот структура - это другой разговор.

[BOBAH13]

Может хватит флудить ? Такие умные "без повторения" ответы... извиняюсь за собственный флуд