Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Realisierung Programm wurde gewisse Zeit nicht bedient ?
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)
|