uses
  JsonConverter;

type
  TPerson = record
    Name: string;
    Age: Integer;
    BirthDate: TDate;
    Skills: array of string;
  end;

procedure TestJsonConversion;
var
  Person, RestoredPerson: TPerson;
  JsonStr: string;
begin
  // ��ʼ������
  Person.Name := '����';
  Person.Age := 30;
  Person.BirthDate := EncodeDate(1990, 1, 1);
  Person.Skills := ['Delphi', 'JSON', '���ݿ�'];
  
  // �ṹ��תJSON
  JsonStr := TJsonRecordConverter.RecordToJson<TPerson>(Person);
  // ���: {"Name":"����","Age":30,"BirthDate":"1990-01-01","Skills":["Delphi","JSON","���ݿ�"]}
  
  // JSONת�ṹ��
  RestoredPerson := TJsonRecordConverter.JsonToRecord<TPerson>(JsonStr);
end;

// ���浽�ļ�
TJsonRecordConverter.RecordToJsonFile<TPerson>(Person, 'person.json');

// ���ļ���ȡ
RestoredPerson := TJsonRecordConverter.JsonFileToRecord<TPerson>('person.json');

var
  Options: TConvertOptions;
begin
  Options.Init;
  Options.CustomFormat := TFormatSettings.Create;
  Options.CustomFormat.ShortDateFormat := 'yyyy-mm-dd';
  Options.CustomFormat.LongTimeFormat := 'hh:nn:ss';
  
  JsonStr := TJsonRecordConverter.RecordToJson<TPerson>(Person, Options);
end;

type
  TAddress = record
    Street: string;
    City: string;
    ZipCode: string;
  end;

  TEmployee = record
    EmployeeID: Integer;
    FirstName: string;
    LastName: string;
    BirthDate: TDate;
    HireDate: TDateTime;
    Salary: Currency;
    HourlyRate: Double;
    IsActive: Boolean;
    Addresses: array of TAddress;    // Ƕ�׽ṹ����
    Skills: array of string;         // �ַ�������
    PerformanceScores: array of Integer;  // ��������
    WorkDates: array of TDate;       // ��������
    WorkTimes: array of TTime;       // ʱ������
    AttendanceRecords: array of TDateTime; // ����ʱ������
  end;

  TCompany = record
    CompanyName: string;
    Employees: array of TEmployee;   // Ա������
    FoundedDate: TDate;
  end;

try
  Result := TJsonRecordConverter.JsonToRecord<TMyRecord>(JsonStr);
except
  on E: TJsonConvertException do
  begin
    WriteLn('ת������: ' + E.Message);
    WriteLn('�������: ' + IntToStr(E.ErrorCode));
    // ���ݴ�����������Ӧ����
  end;
end;

Class2Json/
?????????????????? JsonConverter.pas              # ??????????????????????????????????
?????????????????? CompleteJsonConverterTest.dpr  # ????????????????????????????????????????
?????????????????? SimpleTests.dpr               # ????????????????????????
?????????????????? DebugContactInfo.dpr          # ????????????????????????????????????
?????????????????? DebugComplexContactInfo.dpr   # ????????????????????????????????????
?????????????????? TestEnumRoundTrip.dpr         # ????????????????????????????????????
?????????????????? README.md                     # ????????????????