Ergebnis der Suchanfrage

• Forum: Software-Projekte der Mitglieder

  AW: Programm "Waren"

   
    by p80286, 16. Jan 2017
  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.
  
  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
• Forum: Software-Projekte der Mitglieder

  AW: Programm "Waren"

   
    by p80286, 14. Jan 2017
  Da ich nur D7 habe muß ich mich auf den Sourcecode beschränken:
  
  begin
  if Waren.Warenverkauf>=10 then
  checkboxRabatt.Checked:=true;
  if checkboxRabatt.Checked then
  Waren.StPreis:=((Waren.StPreis)-1);
  checkboxRabatt.Checked:=false;
  MessageDlg(format(Preismeldung,),mtInformation,,0);
  end;