Registriert seit: 1. Feb 2018
3.691 Beiträge
Delphi 11 Alexandria
|
AW: Fragen zum aufstellen von Formeln
9. Jun 2018, 01:10
Vielleicht könnt ihr helfen.
Delphi-Quellcode:
procedure TForm2.Button5Click(Sender: TObject);
begin
if Edit1.Text = '' then // <- wenn Edit1 keinen Inhalt hat dann...
begin // <- hiermit einen block anfangen der für die zeile drüber zuständig ist
// alles was passieren soll wenn Bedingung (Edit1.Text = '') zutrifft kommt hier rein.
showmessage ('Bitte Geben sie die Nutzfläche an');
Label11.Caption := 'Fehlende Angaben';
exit; // <- das bewirkt das die procedure TForm2.Button5Click vorzeitig beendet wird.
end; // <- hier endet der Begin block, JEDES BEGIN BRAUCHT AUCH EIN END;!
if Zahl2 = 0 then
begin
showmessage ('Bitte machen Sie eine Angabe zum Wärmeschutz');
Label11.Caption := 'Fehlende Angaben';
exit;
end;
if Zahl3 = 0 then
begin
showmessage ('Bitte machen Sie eine Angabe zur Belegungsdichte');
Label11.Caption := 'Fehlende Angaben';
exit;
end;
try
Zahl1 := StrToFloat(Edit1.Text);
finally
Label11.Caption := FloatToStr(BerechneFeuchteschutz(Zahl1,Zahl2,Zahl3));
end;
end;
end.
So vielleicht?
Geändert von KodeZwerg ( 9. Jun 2018 um 01:25 Uhr)
|