Problem mit OnChange

[himitsu]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ek, mwst, endbetrag, prozent1, prozent2, prozent3, prozent4,proend1, proend2, proend3, proend4: real;
begin
  if labelededit1.Text = '' then exit;
  ek := strtofloat (labelededit1.text);
  ...
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ek, mwst, endbetrag, prozent1, prozent2, prozent3, prozent4,proend1, proend2, proend3, proend4: real;
begin
  if labelededit1.Text <> '' then
  begin
    ek := strtofloat (labelededit1.text);
    ...
  end;
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ek, mwst, endbetrag, prozent1, prozent2, prozent3, prozent4,proend1, proend2, proend3, proend4: real;
begin
  if labelededit1.Text <> '' then 
  begin
    ek := strtofloat (labelededit1.text);
    ...
  end
  else
  begin
    //... hier eine Fehlermeldung
  end;
end;

also Möglichkeiten gibt es viele, wobei für dich wohl für den Anfang die letzen Beiden (ohne Exit) wohl besser sind.

aber da nicht nur der Leerstring eine fehlerhafte Zahl darstellen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ek, mwst, endbetrag, prozent1, prozent2, prozent3, prozent4,proend1, proend2, proend3, proend4: real;
begin
  if TryStrToFloat(labelededit1.Text, ek) then
  begin
    mwst := ek * 1.19;
    endbetrag := (ek * 1.20) * 1.19;
    proend1 := (ek * 1.10) * 1.19;
    proend2 := (ek * 1.30) * 1.19;
    proend3 := (ek * 1.40) * 1.19;

    labelededit2.text := floattostr (mwst);
    labelededit3.text := floattostr (endbetrag);
    labelededit8.text := floattostr (proend1);
    labelededit9.Text := floattostr (proend2);
    labelededit10.Text := floattostr (proend3);
  //end
  //else
  //begin
  //  ... hier eine Fehlermeldung
  end;
end;