Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Geldautomat

   
    by Jumpy, 3. Mär 2011
  Wenn man den Betrag in Cent hat (also Eingabe*100) und das dann irgendwie in Integer umwandelt ginge auch:
  
  
  var
  R,a : Integer;
  M : array
  begin
  M=200;M=100;M=50;M=20;M=10;M=5;M=2;M=1;
  
  R=CurrencyToInt(RückgeldInEuro * 100); //CurrencyToInt ??? s.o.
• Forum: Object-Pascal / Delphi-Language

  AW: Geldautomat

   
    by Jumpy, 3. Mär 2011
  Kann man nicht das ganze mit nur einer Schleife lösen?
  
  while R<> 0 do
  begin
  if R>2 then
  begin
  listbox.Add ...;
  R=R-2;
  end
  else if R>1 then