Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- unit RootUnit;
- {*******************************************************************************
- Generated By : JsonToDelphiClass - 0.65
- Project link : https://github.com/PKGeorgiev/Delphi-JsonToDelphiClass
- Generated On : 2019-09-22 10:33:41
- Created By : Petar Georgiev - (http://pgeorgiev.com)
- Adapted Web By : Marlon Nardi - (http://jsontodelphi.com)
- *******************************************************************************}
- interface
- uses Generics.Collections, Rest.Json;
- type
- TSysClass = class
- private
- FCountry: String;
- FMessage: Extended;
- FSunrise: Extended;
- FSunset: Extended;
- public
- property country: String read FCountry write FCountry;
- property message: Extended read FMessage write FMessage;
- property sunrise: Extended read FSunrise write FSunrise;
- property sunset: Extended read FSunset write FSunset;
- function ToJsonString: string;
- class function FromJsonString(AJsonString: string): TSysClass;
- end;
- TCloudsClass = class
- private
- FAll: Extended;
- public
- property all: Extended read FAll write FAll;
- function ToJsonString: string;
- class function FromJsonString(AJsonString: string): TCloudsClass;
- end;
- TWindClass = class
- private
- FDeg: Extended;
- FSpeed: Extended;
- public
- property deg: Extended read FDeg write FDeg;
- property speed: Extended read FSpeed write FSpeed;
- function ToJsonString: string;
- class function FromJsonString(AJsonString: string): TWindClass;
- end;
- TMainClass = class
- private
- FGrnd_level: Extended;
- FHumidity: Extended;
- FPressure: Extended;
- FSea_level: Extended;
- FTemp: Extended;
- FTemp_max: Extended;
- FTemp_min: Extended;
- public
- property grnd_level: Extended read FGrnd_level write FGrnd_level;
- property humidity: Extended read FHumidity write FHumidity;
- property pressure: Extended read FPressure write FPressure;
- property sea_level: Extended read FSea_level write FSea_level;
- property temp: Extended read FTemp write FTemp;
- property temp_max: Extended read FTemp_max write FTemp_max;
- property temp_min: Extended read FTemp_min write FTemp_min;
- function ToJsonString: string;
- class function FromJsonString(AJsonString: string): TMainClass;
- end;
- TWeatherClass = class
- private
- FDescription: String;
- FIcon: String;
- FId: Extended;
- FMain: String;
- public
- property description: String read FDescription write FDescription;
- property icon: String read FIcon write FIcon;
- property id: Extended read FId write FId;
- property main: String read FMain write FMain;
- function ToJsonString: string;
- class function FromJsonString(AJsonString: string): TWeatherClass;
- end;
- TCoordClass = class
- private
- FLat: Extended;
- FLon: Extended;
- public
- property lat: Extended read FLat write FLat;
- property lon: Extended read FLon write FLon;
- function ToJsonString: string;
- class function FromJsonString(AJsonString: string): TCoordClass;
- end;
- TRootClass = class
- private
- FBase: String;
- FClouds: TCloudsClass;
- FCod: Extended;
- FCoord: TCoordClass;
- FDt: Extended;
- FId: Extended;
- FMain: TMainClass;
- FName: String;
- FSys: TSysClass;
- FTimezone: Extended;
- FWeather: TArray<TWeatherClass>;
- FWind: TWindClass;
- public
- property base: String read FBase write FBase;
- property clouds: TCloudsClass read FClouds write FClouds;
- property cod: Extended read FCod write FCod;
- property coord: TCoordClass read FCoord write FCoord;
- property dt: Extended read FDt write FDt;
- property id: Extended read FId write FId;
- property main: TMainClass read FMain write FMain;
- property name: String read FName write FName;
- property sys: TSysClass read FSys write FSys;
- property timezone: Extended read FTimezone write FTimezone;
- property weather: TArray<TWeatherClass> read FWeather write FWeather;
- property wind: TWindClass read FWind write FWind;
- constructor Create;
- destructor Destroy; override;
- function ToJsonString: string;
- class function FromJsonString(AJsonString: string): TRootClass;
- end;
- implementation
- {TSysClass}
- function TSysClass.ToJsonString: string;
- begin
- result := TJson.ObjectToJsonString(self);
- end;
- class function TSysClass.FromJsonString(AJsonString: string): TSysClass;
- begin
- result := TJson.JsonToObject<TSysClass>(AJsonString)
- end;
- {TCloudsClass}
- function TCloudsClass.ToJsonString: string;
- begin
- result := TJson.ObjectToJsonString(self);
- end;
- class function TCloudsClass.FromJsonString(AJsonString: string): TCloudsClass;
- begin
- result := TJson.JsonToObject<TCloudsClass>(AJsonString)
- end;
- {TWindClass}
- function TWindClass.ToJsonString: string;
- begin
- result := TJson.ObjectToJsonString(self);
- end;
- class function TWindClass.FromJsonString(AJsonString: string): TWindClass;
- begin
- result := TJson.JsonToObject<TWindClass>(AJsonString)
- end;
- {TMainClass}
- function TMainClass.ToJsonString: string;
- begin
- result := TJson.ObjectToJsonString(self);
- end;
- class function TMainClass.FromJsonString(AJsonString: string): TMainClass;
- begin
- result := TJson.JsonToObject<TMainClass>(AJsonString)
- end;
- {TWeatherClass}
- function TWeatherClass.ToJsonString: string;
- begin
- result := TJson.ObjectToJsonString(self);
- end;
- class function TWeatherClass.FromJsonString(AJsonString: string): TWeatherClass;
- begin
- result := TJson.JsonToObject<TWeatherClass>(AJsonString)
- end;
- {TCoordClass}
- function TCoordClass.ToJsonString: string;
- begin
- result := TJson.ObjectToJsonString(self);
- end;
- class function TCoordClass.FromJsonString(AJsonString: string): TCoordClass;
- begin
- result := TJson.JsonToObject<TCoordClass>(AJsonString)
- end;
- {TRootClass}
- constructor TRootClass.Create;
- begin
- inherited;
- FCoord := TCoordClass.Create();
- FMain := TMainClass.Create();
- FWind := TWindClass.Create();
- FClouds := TCloudsClass.Create();
- FSys := TSysClass.Create();
- end;
- destructor TRootClass.Destroy;
- var
- LweatherItem: TWeatherClass;
- begin
- for LweatherItem in FWeather do
- LweatherItem.Free;
- FCoord.Free;
- FMain.Free;
- FWind.Free;
- FClouds.Free;
- FSys.Free;
- inherited;
- end;
- function TRootClass.ToJsonString: string;
- begin
- result := TJson.ObjectToJsonString(self);
- end;
- class function TRootClass.FromJsonString(AJsonString: string): TRootClass;
- begin
- result := TJson.JsonToObject<TRootClass>(AJsonString)
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement