simples problem :/ integer wert

[mkinzler]

Delphi-Quellcode:

...
erg: extended;
...
procedure TForm1.Edit1Change(Sender: TObject);
begin
    deu := StrToIntDef(Edit1.text, 1); //1 ist Defaultwert
end;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
    erg := (deu + phy + eng) / 3; //Jetzt kann genauer wert ermittlet werden
    Memo1.Lines.Add(FloatToStr(erg));
end;

BTw. Es wäre besser mit lokalen Variablen zu arbeiten