unit stabkalk2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, IpHtml, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ShellAPI;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1 : TForm1;
  stabzahl : Integer;
  stabzahlalt : Integer;
  abstandmax : integer;
  abstand : Real;
  abstandalt : Real;
   lichtemass : integer;
   stabstaerke : integer;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
    // Berechnung
  label5.caption:='Berechnung laeuft';
  abstandmax := Strtoint(edit3.Text);
  lichtemass := StrToInt(edit2.text);
  stabstaerke := Strtoint(edit1.Text);

   stabzahl := round(StrToInt(edit2.text)/120); //Anzahl Stäbe zu anfang
   label5.caption:= IntToStr(stabzahl);
repeat
  // Befehlsfolge, die öfters ausgeführt werden soll
     stabzahlalt := stabzahl;
     abstandalt := Abstand;
     abstand:= (lichtemass - (stabzahl * stabstaerke)) / (stabzahl + 1);
     label5.caption:= IntToStr(stabzahlalt)+' Stäbe mit einen Abstand von ' +FloattoStrF(abstandalt,ffFixed,8,1)+'mm';
     stabzahl := stabzahl -1;

until abstand>abstandmax;
   // FloatToStrF(myFloat, ffFixed, 8, 2);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
       ShellExecute(Handle, '', PChar('http://www.dl8aax.de.vu'), '', '', 0);
end;



end.