У меня есть следующие структуры в Delphi 2009:
type
IndiReportIndi = record
IndiName: string;
NameNum: integer;
ReportIndiName: string;
end;
var
XRefList: array of IndiReportIndi;
где XRefList — динамический массив.
Я хочу сохранить XRefList в FileStream. Как мне это сделать И включить все строки IndiName и ReportIndiName, чтобы их можно было снова получить при последующей загрузке из этого FileStream?
Используйте: http://code.google.com/p/kblib/.
type
IndiReportIndi = record
IndiName: string;
NameNum: integer;
ReportIndiName: string;
end;
TXRefList = array of IndiReportIndi;
var
XRefList: TXRefList;
Чтобы сохранить весь XRefList в поток, используйте:
TKBDynamic.WriteTo(lStream, XRefList, TypeInfo(TXRefList));
Чтобы загрузить его обратно:
TKBDynamic.ReadFrom(lStream, XRefList, TypeInfo(TXRefList));
var
S: TStream;
W: TWriter;
A: array of IndiReportIndi;
E: IndiReportIndi;
...
begin
S := nil;
W := nil;
try
S := TFileStream.Create(...);
W := TWriter.Create(S);
W.WriteInteger(Length(A));
for E in A do
begin
W.WriteString(E.IndiName);
W.WriteInteger(E.NameNum);
W.WriteString(E.ReportIndiName);
end;
finally
W.Free;
S.Free
end;
end;
Чтобы прочитать эти данные, вы используете TReader и ReadInteger/ReadString.
Простой TFileStreamEx для сохранения переменных
http://forum.chertenok.ru/viewtopic.php?t=4642
Работаю с ними с 2005-го года, без проблем...
Проверенное решение:
procedure TForm1.FormCreate(Sender: TObject);
VAR Stream: TFileStream;
R: IndyRecordIndy;
begin
Stream:= TFileStream.Create;
TRY
//put rec in stream
Stream.WriteBuffer(R, SizeOf(R));
//restore record from stram
Stream.Position := 0;
Stream.ReadBuffer(R, Stream.Size);
FINALLY
FreeAndNil(Stream);
END;
end
;
Просто чтобы ответ был точным:
Попробуйте взглянуть на TDynArray обертка, способная сериализовать любую запись в бинарную, а также в/из динамических массивов.
Существует множество методов, подобных TList, включая новые методы (например, хеширование или бинарный поиск).
Очень оптимизирован для скорости и использования диска, работает с Delphi 5 до XE2 и с открытым исходным кодом.
См. также Как хранить динамические массивы в TList?
