simples problem :/ integer wert

[schmerzbegrenzer]

danke schonmal für die antworten

ok hier der source mit float für erg deklariert

Delphi-Quellcode:

var
  Form1: TForm1;
  deu, eng, phy: integer;
  erg : float;
  Key : Char;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
deu := Strtoint(Edit1.text);
if Edit1.Text = '' then
Edit1.Text := '1'
end;

// hier die anderen beiden editfelder drin

procedure TForm1.Button1Click(Sender: TObject);
begin
erg := (deu + phy + eng) DIV 3;
Memo1.Lines.Add(floattostr(erg));
end;