TDictionary: SaveToFile / LoadFromFile
Какое элегантное решение! Начнем с того, что все работает так, как ожидалось.
Содержимое сохраняется в файл в формате JSON, который выглядит правильно. Но после перезагрузки файла возникает проблема:
Type
TEnumCategTypes = ( e_SQL1, e_VBA, e_Text );
TCategParams = class
fontStyles : TFontStyles;
rgbColor : COLORREF;
end;
TdictCategory = class ( TDictionary<TEnumCategTypes, TCategParams> )
public
public class function LoadFromFile( const AFileName: string ): TdictCategory;
public class procedure SaveToFile( const AFileName: string; dict: TdictCategory );
end;
implementation
class procedure TdictCategory.SaveToFile( const AFileName: string; dict: TdictCategory );
var
stream : TStringStream;
begin
try
stream := TStringStream.Create( TJson.ObjectToJsonString( dict ) ) ;
stream.SaveToFile( AFileName )
finally
stream.Free;
end;
end;
//---
class function TdictCategory.LoadFromFile( const AFileName: string ): TdictCategory;
var
stream: TStringStream;
begin
stream := TStringStream.Create;
try
stream.LoadFromFile( AFileName );
result := TJson.JsonToObject<TdictCategory>( stream.DataString );
finally
stream.Free;
end;
end;
Затем следует испытание. И вся слава кончается. Вот код, включая комментарий:
..
var
cc: Colorref;
begin
.. // fill values
cc := DictCategory.Items[ e_SQL1 ].rgbColor; // Okay, it works
TdictCategory.SaveToFile( 'category.json', DictCategory ); // Even the contents of the file, looks good
DictCategory.Clear;
DictCategory.Free;
DictCategory := nil;
DictCategory := TdictCategory.LoadFromFile( 'category.json' ); // DictCategory is no longer NIL, and it looks optically well..
cc := DictCategory.Items[ e2_sql_aggregate ].rgbColor; // C R A S H !!! with AV
Похоже, что Delphi (Берлин 10.1) не может сериализовать словарь! Если это правда, мне действительно больно. Я считаю, что есть много других. Или в прикрепленном коде есть ошибка?
TJson.JsonToObject<T>(..)
(и, возможно,TJson.ObjectToJsonObject<T>(..)
тоже) не работает должным образом с универсальными классами, такими какTList<T>
илиTDictionary<T>
. - person Günther the Beautiful   schedule 15.12.2017