Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#19

AW: Realisierung Programm wurde gewisse Zeit nicht bedient ?

  Alt 27. Jan 2011, 18:46
Delphi-Quellcode:
var
 c,d:cardinal;
 i:Integer;
 Procedure AddAndDisplay;
  begin
   c := c + 10;
   d := d + 10;
   Memo1.Lines.Add(IntToStr(c-d) + ' - ' + IntToStr(c) + ' - ' + IntToStr(d));
  end;
begin
   c := 4294967290;
   d := c - 20;
   Memo1.Lines.Add(IntToStr(c-d) + ' - ' + IntToStr(c) + ' - ' + IntToStr(d));
   for I := 0 to 10 do AddAndDisplay;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat