Registriert seit: 8. Jun 2018
3 Beiträge
|
AW: Fragen zum aufstellen von Formeln
8. Jun 2018, 16:48
Danke Für die Antworten. Habe das Problem gelöst bekommen. Stehe aber schon wieder vor dem nächsten.
Und zwar soll eine Fehlermeldung kommen wenn Angaben nicht getroffen wurden. Funktioniert auch für die Button Felder. Das einzige Problem stellt jetzt das Edit Feld dar. Wenn da nichts drin steht bekomme ich immer die Fehlermeldung dass '' kein Gleitkommawert ist.
Das sieht dann bei mir so aus:
--------------
procedure TForm2.Button5Click(Sender: TObject);
begin
Zahl1 := StrToFloat(Edit1.Text);
Label11.Caption := FloatToStr(BerechneFeuchteschutz(Zahl1,Zahl2,Zahl3 ));
if
Edit1.Text = ''
then
showmessage ('Bitte Geben sie die Nutzfläche an');
Label11.Caption := 'Fehlende Angaben';
if
Zahl2 = 0
then
showmessage ('Bitte machen Sie eine Angabe zum Wärmeschutz');
Label11.Caption := 'Fehlende Angaben';
if
Zahl3 = 0
then
showmessage ('Bitte machen Sie eine Angabe zur Belegungsdichte');
Label11.Caption := 'Fehlende Angaben';
end;
end.
---------------
Vielleicht könnt ihr helfen.
|