unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
TFGewicht: TEdit;
TFGroesse: TEdit;
TFBMI: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
Gewicht:real;
Groesse:real;
BMI:real;
implementation
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TFGewicht.Text:='';
TFGroesse.Text:='';
TFBMI.Text:='';
end;
end.
okay entschuldigung!!! so was mag ich nicht wenn man mich als noob hinstellt ohne die hintergründe zu kennen!!! jo vllt hast du recht bloß nach einen lösungsweg zu suchen ohne einen ansatz zu wissen ist schwer!!!