Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
18. Jan 2008
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;
procedure TForm1.Button1Click(Sender: TObject);
var ek, mwst, endbetrag, prozent1, prozent2, prozent3, prozent4,proend1, proend2, proend3,...
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
18. Jan 2008
am Besten du zeigst mal deinen Codabschnitt her
also wie du es gemacht hast, denn so könnten wir sehn was eventuell alsch ist.
welche Delphi-Version nutzt du denn? (idealer Weise gleich im Profil angeben)
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
18. Jan 2008
also per IF ließe sich dieses eine Problem schon lösen,
du brauchts nur zu prüfen ob das Property .Text deines Edits einem Leerstring entspricht und dann entsprechend reagieren...
// z.B. am Anfang der Ereignisprozedur diese wieder beenden
if LabelEdit1.Text = '' then exit;
// oder den entsprechenden Codeteil nur ausführen, wenn nich leer ist
if LabelEdit1.Text <> '' then
begin
......