unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;

type

  Himmelskoerper = record
  Durchmesser: Integer;
  Temperatur: Integer;
  Beschreibung: String;
  Bild: String;
 end;
  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Memo1: TMemo;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
  Planet: Array [0..4] of Himmelskoerper;

implementation

{$R *.lfm}

{ TForm1 }

procedure DatenLaden;
begin
   // Mars
   Planet[0].Durchmesser:= 6792;
   Planet[0].Temperatur:= -133;
   Planet[0].Beschreibung:= 'Der Mars zählt zu den erdähnlichen Planeten. Der Mars wird oft auch als der Rote Planet bezeichnet. Diese Färbung geht auf Eisenoxid-Staub (Rost) zurück, der sich auf der Oberfläche und in der dünnen CO2-Atmosphäre verteilt hat.';
   Planet[0].Bild:= 'mars.png';
   // Saturn
   Planet[1].Durchmesser:= 120536;
   Planet[1].Temperatur:= -139;
   Planet[1].Beschreibung:= 'Der Saturn wird wegen seiner sichtbaren Ringes oft auch der Ringplanet genannt. Er ist ein Gasplanet, dessen untersuchte obere Schichten zu etwa 96 % Stoffanteil aus Wasserstoff bestehen. Bisher wurden 62 Saturnmonde entdeckt.';
   Planet[1].Bild:= 'saturn.png';
   // Jupiter
   Planet[2].Durchmesser:= 142984;
   Planet[2].Temperatur:= -108;
   Planet[2].Beschreibung:= 'Jupiter ist der größte Planet des Sonnensystems. Aufgrund seiner chemischen Zusammensetzung zählt er zu den Gasplaneten. ';
   Planet[2].Bild:= 'jupiter.png';
   // Uranus
   Planet[3].Durchmesser:= 51118;
   Planet[3].Temperatur:= -197;
   Planet[3].Beschreibung:= 'Der Uranus wird zu den äußeren, jupiterähnlichen Planeten gerechnet. Seine blassgrüne Scheibe ist von der Erde aus betrachtet etwa 3,5? groß. Aufgrund von Eisvorkommen im Inneren wird Uranus Eisriese genannt. ';
   Planet[3].Bild:= 'uranus.png';
   // Venus
   Planet[4].Durchmesser:= 12103;
   Planet[4].Temperatur:= 437;
   Planet[4].Beschreibung:= 'Venus ist der drittkleinste Planet des Sonnensystems. Sie hat eine ähnliche Größe wie die Erde. Die Atmosphäre besteht zu 96 % aus CO2. Nach dem Mond ist Venus das hellste Gestirn am nächtlichen Himmel. ';
   Planet[4].Bild:= 'venus.png';
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  Edit1.Text:= IntToStr(Planet[Radiogroup1.ItemIndex].Durchmesser);
  Edit2.Text:= IntToStr(Planet[Radiogroup1.ItemIndex].Temperatur);
  Memo1.Text:= Planet[Radiogroup1.ItemIndex].Beschreibung;
  Image2.Picture.LoadFromFile(Planet[Radiogroup1.ItemIndex].Bild);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Terminate;
end;

begin
  DatenLaden;
end.

