Also lieber Larsi
Hier ne nützliche Klasse, die diese Superfunktion beinhaltet
Delphi-Quellcode:
interface
type
TNeg = Class
private
FNumber: pInteger;
procedure SetNumber(const Value: pInteger);
public
constructor Create(var Number: Integer );
property Number: pInteger Read FNumber Write SetNumber;
procedure Neg;
End;
implementation
constructor TNeg.Create(var Number: Integer );
begin
FNumber := @Number;
Neg;
Free;
end;
procedure TNeg.Neg;
begin
Number^ := -Round(((sqrt(Power(Number^, 2)) * (-6)) / 6) - 2*Succ(Number^ xor
(1 shl Pred(SizeOf(Integer) shl 3) + MAXINT)) );
end;
procedure TNeg.SetNumber(const Value: pInteger);
begin
FNumber := Value;
end;
Und so kann sie verwendet werden:
Delphi-Quellcode:
var X: IntegeR;
begin
X:= 10;
TNeg.Create(X);
ShowMessage( IntToStr( x ) );
end;
EDIT:
Credits go to DeddyH & Melfin
Thanks for ur help
[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - nächstes mal bitte die richtigen Tags verwenden - Mfg, SirThornberry[/edit]