delphi TDictionary保存到文件

type

TFilePos = TArray;

TFileDict = TDictionary;

TWordDict = class (TDictionary)

private

procedure LoadFromStream(stream: TStream);

procedure SaveToStream(stream: TStream);

public

procedure LoadFromZip(const AFileName: string);

procedure LoadFromFile(const AFileName: string);

procedure SaveToZip(const AFileName: string);

procedure SaveToFile(const AFileName: string);

end;

procedure TWordDict.LoadFromZip(const AFileName: string);

var

stream: TStream;

localHeader: TZipHeader;

zipFile: TZipFile;

begin

zipFile := TZipFile.Create;

try

zipFIle.Open(AFIleName, zmRead);

zipFile.Read('worddict', stream, localHeader);

try

LoadFromStream(stream);

finally

stream.Free;

end;

zipFile.Close;

finally

zipFile.Free;

end;

procedure TWordDict.SaveToZip(const AFileName: string);

var

stream: TStream;

zipFile: TZipFile;

begin

stream := TMemoryStream.Create;

try

SaveToStream(stream);

stream.Position := 0;

zipFile := TZipFile.Create;

try

zipFile.Open(AFileName, zmWrite);

zipFile.Add(stream, 'worddict');

zipFile.Close;

finally

zipFile.Free;

end;

finally

stream.Free;

end;

procedure TWordDict.SaveToStream(stream: TStream);

var

posi: System.Generics.Collections.TPair;

i: Integer;

pair: System.Generics.Collections.TPair;

writer: TWriter;

begin

writer := TWriter.Create(stream, 4096);

try

writer.WriteListBegin;

for pair in Self do

begin

writer.WriteString(pair.Key);

writer.WriteListBegin;

for posi in pair.Value do

begin

writer.WriteString(posi.Key);

writer.WriteInteger(Length(posi.Value));

for i in posi.Value do

begin

writer.WriteInteger(i);

end;

writer.WriteListEnd;

end;

writer.WriteListEnd;

finally

writer.Free;

end;

procedure TWordDict.LoadFromStream(stream: TStream);

var

sFiles: TFileDict;

aPosi: TFilePos;

size: Integer;

i: Integer;

sWord: string;

reader: TReader;

sFile: string;

begin

Clear;

reader := TReader.Create(stream, 1024);

try

reader.ReadListBegin;

while not reader.EndOfList do

begin

sWord := reader.ReadString;

sFiles := TFileDict.Create;

reader.ReadListBegin;

while not reader.EndOfList do

begin

sFile := reader.ReadString;

size := reader.ReadInteger;

SetLength(aPosi, size);

for I := 0 to size - 1 do

begin

aPosi[I] := reader.ReadInteger;

end;

sFiles.Add(sFile, Copy(aPosi));

end;

reader.ReadListEnd;

Add(sWord, sFiles);

end;

reader.ReadListEnd;

finally

reader.Free;

end;

procedure TWordDict.LoadFromFile(const AFileName: string);

var

stream: TStream;

begin

stream := TFileStream.Create(AFileName, fmOpenRead);

try

LoadFromStream(stream);

finally

stream.Free;

end;

procedure TWordDict.SaveToFile(const AFileName: string);

var

stream: TStream;

begin

stream := TFileStream.Create(AFileName, fmCreate);

try

SaveToStream(stream);

finally

stream.Free;

end;

推荐分享