Fragen zum aufstellen von Formeln

[KodeZwerg]

Zitat von DelphiforIngBachelor:

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?

[bytecook]

Um es zusammenzufassen:

Schritt 1)

Auf Inhalt / Gültigkeit der Editfelder prüfen. Quick'n'Dirty mt try / except / end auf vorhandene, respektive gültige Zahl prüfen..
Liegt keine Zahl vor (leer/ nichtnumerische Characters), würde ich das Editfeld im Except-Teil mit einer '0' vorbelegen...

Schritt 2) Bei Gültigkeit das Ergebnis ausgeben bzw eine Fehlerinfo mit Showmessage anzeigen.

[Rollo62]

Ich würde schonmal raten zumindest die Berechnung als eigene Klasse in eine separate Unit auszulagern.
So kannst du das zumindest 100% Testen und deine Logik ist schon,al sauber getrennt von deiner Form, wenn sich da nochmal was ändert.

Delphi-Quellcode:

type
  TBerechnung = class
  private
      FEingabe1 : Integer
      FEingabe2 : Integer

  public
      function IsValid  : Boolean;
      function Ergebnis : Double;
  
      property Eingabe1 : Integer
      property Eingabe2 : Integer
  end;

TBerechnung.IsValid : Boolean;
begin
    Result := (Eingabe1 <> 0) and (Eingabe2 <> 0); // Und was immer du da brauchst
end;

TBerechnung.Ergebnis : Double;
begin
    if IsValid then
        Result := Eingabe1 * Eingabe2  // Was immer du da brauchst
    else
        Result := NaN;  // Wenn die Berechnung nicht möglich ist
end;

[KodeZwerg]

Zitat von bytecook:

Liegt keine Zahl vor (leer/ nichtnumerische Characters), würde ich das Editfeld...

...eine Maske für Zahlen verpassen mit default Wert 0.

Ps: Ich glaube nicht das der TE (Delphi for Ing Bachelor) groß Interesse hat wie man es in Zukunft korrekt handhaben sollte sondern lediglich das sein "Problem" weg ist.

[blawen]

Zitat von KodeZwerg:

Ps: Ich glaube nicht das der TE (Delphi for Ing Bachelor) groß Interesse hat wie man es in Zukunft korrekt handhaben sollte sondern lediglich das sein "Problem" weg ist.

Dies ist auch meine Vermutung. Von einem Bachelor Kandidaten würde ich mehr Engagement erwarten...

[bytecook]

Zitat von KodeZwerg:

Zitat von bytecook:

Liegt keine Zahl vor (leer/ nichtnumerische Characters), würde ich das Editfeld...

...eine Maske für Zahlen verpassen mit default Wert 0.

Ps: Ich glaube nicht das der TE (Delphi for Ing Bachelor) groß Interesse hat wie man es in Zukunft korrekt handhaben sollte sondern lediglich das sein "Problem" weg ist.

Tja, deswegen auch QnD. Wenn man sich ernsthaft mit Delphi befasst, legt man sich ohnehin eine Komponentenableitung an, die nur numerische Eingaben inkl. deren Constraints
berücksichtigt. Hier gehts ja nur um einen Schnellschuss...

Die Ernsthaftigkeit würde ich ob des Zeitrahmens nicht (unbedingt) infrage stellen, wir kennen den TE zuwenig.
Funktion vor Design bei Quickshots, danach aufräumen. Wiewohl ich oft erlebt habe, dass Behelfslösungen ein Produkt überlebten

[Delphi-Laie]

Wie kann man denn kurz vor dem Ingenieur-Bachelor stehen und Programmieranfänger sein? Sollte der Niveauverfall der Bildung tatsächlich schon so weit "gediehen" sein, daß so etwas möglich ist?

[Rollo62]

Als Delphi Neunfänger würde ich nach diesem sinnlosem Bashing auch zu C# wechseln

[KodeZwerg]

Ich erwarte zwar keine Rose von einem Bachelor aber zumindest einen Kommentar ob denn ein Problem nun beendet ist bevor man schnurstracks das nächste Thema anfängt, soviel Anstand sollte man schon haben, ob Delphi oder C oder Asm spielt dabei keine Rolle.