Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.658 Beiträge
 
Delphi 7 Personal
 
#10

AW: Programm "Waren"

  Alt 16. Jan 2017, 10:26
Gut zu wissen wer auf der "anderen" Seite sitzt, willkommen bei den alten Säcken, als Kennedy in Dallas war, habe ich die Grundrechenarten gelernt.

Delphi-Quellcode:
      if (FWaren.aktBestand)>=0 thenif checkboxverfuegbar.Checked then
    begin
      showMessage(Warenbest);
    exit end
    else if not checkboxverfuegbar.Checked then

        begin
          if FWaren.Warenverkauf>=10 then
            FWaren.StPreis:=((FWaren.StPreis)-1);
            MessageDlg(format(Preismeldung,[(FWaren.Verkaufspreis),(FWaren.Nettopreis),(FWaren.MWSt)]),mtInformation,[mbOk],0);
        end;
        if (FWaren.aktBestand)<0 then
         begin
           checkboxverfuegbar.Checked:=true;exit;
         end;
Dieses Exit; end mag ein gewollter Stolperstein sein, aber
Delphi-Quellcode:
begin
  //irgendwas
  Exit;
end
liest sich doch besser.

Fällt Dir hier etwas auf:
Delphi-Quellcode:
if checkboxverfuegbar.Checked then
    .......
    else if not checkboxverfuegbar.Checked then
(falls wider Erwarten nicht, else ist schon das gleiche wie not checkboxverfuegbar.Checked )

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat