|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Simulate infrared film
29. Nov 2010, 16:11
@Medium
wo findet der Überlauf statt?
Delphi-Quellcode:
Function GetDoubleByte(i:Integer):Byte;
Begin
Result := i * 2;
if Result > 255 then Result := 255;
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)
|