Запись массива на диск

Материал из DRKB

Запись массива на диск[править | править код]

Скажем, ваша структура данных выглядит следующим образом:

type
  TMyRec = record
    SomeField: Integer;
    SomeOtherField: Double;
    TheRest: array[0..99] of Single;
  end;


и TBlobField имеет имя MyBlobField. TMyRec назван как MyRec. Для копирования содержимого MyRec в MyBlobField необходимо сделать следующее:

var
  Stream: TBlobStream;
begin
  Stream := TBlobStream.Create(MyBlobField, bmWrite);
  Stream.Write(MyRec, SizeOf(MyRec));
  Stream.Free;
end;


Есть другой путь:

var
  Stream: TBlobStream;
begin
  Stream := TBlobStream.Create(MyBlobField, bmRead);
  Stream.Read(MyRec, SizeOf(MyRec));
  Stream.Free;
end;


Сборник Kuliba


Author: Steve Schafer
Source: Взято из Советов по Delphi от Валентина Озерова
ID: 00247



type
  TCharArray = array[500] of Char;

{ Примечание:
Объявление массива как параметр Var позволяет передавать только ссылку на массив,
а не копировать его целиком в стек, если же вам нужна безопасная работа с массивом,
то вам не следует передавать его как var-параметр. }
procedure WriteToFile(var aArray: TCharArray; sFileName: string);
var
  nArrayIndex: Word;
  fFileHandle: TextFile;
begin
  AssignFile(fFileHandle, sFileName);
  Rewrite(fFileHandle);

  for nArrayIndex := 1 to 500 do
  begin
    Write(fFileHandle, aArray[nArrayIndex]);
  end;

  CloseFile(fFileHandle);
end; {end Procedure, WriteToFile()}


Source: http://delphiworld.narod.ru
ID: 00793