So hier die Infolk Ich habe sie nahezu Komplett nochmal neu geschrieben, das einzige was ihr noch ergänzen müsst sind die Beschriftungen der Editfelder. Also mal noch Länge, Breite und Ergebnis davorschreiben. Beim Ende_ Button soll vorher noch die Serverzeit angezeigt werden. Das funktioniert noch nicht ganz. Da müsst ihr mal unseren Wildling ansprechen.

der rest

Und wo finde ich die LK???

In Antwort auf:

---

unit URechteckLoesung;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
Label1: TLabel;
edBreite: TEdit;
edhoehe: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label6: TLabel;
edErgebnis: TEdit;
bbEnde: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure edBreiteExit(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure edhoeheExit(Sender: TObject);
procedure bbEndeClick(Sender: TObject);
private
procedure ausgabe;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
b,h:real;
Ergebnis:real;
sZeit:string;

implementation
{$R *.dfm}

procedure TForm1.ausgabe;
begin
edErgebnis.Text:=FloatToStr(Ergebnis);
end;

procedure TForm1.edBreiteExit(Sender: TObject);
begin
b:=strtofloat(edBreite.Text);
if b=0 then
showmessage('Neee! Null geht net - du NULL!!');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Ergebnis:=(h+b)*2;
ausgabe;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Ergebnis:=Sqrt(sqr(b)+sqr(h));
ausgabe;
end;

procedure TForm1.edhoeheExit(Sender: TObject);
begin
h:=strtofloat(edHoehe.Text);
if h=0 then
showmessage('Neee! Null geht net - du NULL!!');
end;

procedure TForm1.bbEndeClick(Sender: TObject);
begin
sZeit:=timetostr(time);
showmessage('Das Programm wurde beendet um '+sZeit);
Application.Terminate;
end;

end.

---