Записать весь record в один файл

[Alex Cones]

Я самоучка, поэтому часто не знаю элементарных вещей. Вот например, как эта:

TReco = record
 Stroka:String[20];
 Bit:TBitMap;
End;

Var
Reco:TReco;
Begin
Stroka:='bla-bla-bla';
Bit:=TBitMap.Create;
Bit.LoadFromFile('1.bmp');

Возникает вопрос, как сохранить всю запись в один файл? Кажись что-то связанное с F:File of TReco, хотя не уверен...

[ArtInt]

Да можно сделать как MyFile: file of TReco. Примерно будет так:

type
TReco = record
 Stroka:String[20];
 Bit:TBitMap;
 end;

var
  Form1: TForm1;
  Reco:TReco;
  Myfile: file of TReco;
begin
{вставляем где надо следующий код}

Reco.Stroka:='bla-bla-bla';
Reco.Bit:=TBitMap.Create;
 AssignFile(Myfile, 'C:\temp\test.txt');
Reco.Bit.LoadFromFile('C:\temp\load.bmp');
Rewrite(Myfile);
 Write(Myfile,Reco);
CloseFile(MyFile);

end;

Кстати для интереса посмотри следующую тему
http://programmersforum.ru/showthread.php?t=51827

[Alex Cones]

Изображение весит 475 кб, в файл пишется только 20 байт.

[mutabor]

Это называется типизированные файлы, почитай про них, попробуй на практике и можешь сразу про них забыть
Кстати битмап ты туда не засунешь никак.

Я советую использовать поток TFileStream, можно писать что угодно, и как угодно, все динамическое и все в твоих руках. Я даже концепт кода набросаю для твоего случая.

var
fs: TFileStream;

fs.Create('filename', fmCreate);
fs.write(strbuf, 20); //обычная дельфи строка не прокатит, массив из символов (однобайтных, если у тебя D2009) создай
reco.bit.WriteToStream(fs, ...);
fs.Free; //закрываем поток

[Alex Cones]

Кстати битмап ты туда не засунешь никак.

Это печально...

TFileStream

Почитаем, почитаем, спасибо за инфу.

[ArtInt]

Возможно, дело в том что в record для типа TBitmap пишется только ссылка заголовок, поэтому наверное лучше в данном случае писать в файл все по отдельности. Например, использовать потоки.
Создаем процедуру для записи в файл (брал из Дельфи World шаблон)

procedure TForm1.AddStrToFile(S: string; const FileName: string; doNextLine:
  boolean);
{Добавление строки к файлу doNextLine - перевод строки}
const
  CR = #13#10;
var
  f: TFileStream;
begin
  if FileExists(FileName) then
    f := TFileStream.Create(FileName, fmOpenWrite + fmShareDenyNone)
  else
  begin
    f := TFileStream.Create(FileName, fmCreate);
    f.Destroy;
    f := TFileStream.Create(FileName, fmOpenWrite + fmShareDenyNone);
  end;
  f.Position := f.Size;
  if doNextLine and (f.Size > 0) then
    f.Write(CR, 2);
  f.Write(pointer(s)^, length(s));
  f.Destroy;
end; {AddStrToFile}

Потом, например можно сделать так

  Reco.Bit.SaveToFile('C:\temp\test.txt');
  AddStrtoFile(Reco.Stroka,'C:\temp\test.txt',true);

[Stilet]

Изображение весит 475 кб, в файл пишется только 20 байт.

Все верно - туда ссылка лезет )

Кстати битмап ты туда не засунешь никак.

Глупости )
Битмап кидаем в Stream а уже его в файл. Без малой крови не обойтись, но можно. А если такое в класс обернуть так вообще потом проще будет писать.

[mutabor]

Глупости )
Битмап кидаем в Stream а уже его в файл. Без малой крови не обойтись, но можно. А если такое в класс обернуть так вообще потом проще будет писать.

Вы ничего не путаете? В типизированный файл?

[Пепел Феникса]

mutabor, Виталий говорит про поток TFileStream