Programm "Waren"

[p80286]

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