Positive Zahlen in negative umwandeln

[DeddyH]

Ja und? Das sind Menschen wie Du und ich, meine Frau ist Lehrerin an einer Schule für geistig und körperlich Behinderte und hat täglich mit solchen Menschen zu tun. Die, die ich davon kenne, sind absolut liebenswürdige Personen.

[Die Muhkuh]

Wenn Du mal einer Gruppe von behinderten zuhörst, die ziehen sich ständig deswegen auf.
Und außerdem wollen die nicht bevorzugt werden, sondern auch als Mensch betrachtet werden. Und mehr macht das Bild nun nicht.

[Noedel]

is ja gut ...
beruhigt euch mal wieder! :) *smile*

[DeddyH]

Ich bin doch ruhig, nur wenn Dieter Bohlen auf dem Foto den Preis übergeben hätte, wäre ich jetzt stocksauer ;)

[Die Muhkuh]

Dann wäre sein Einwand wenigstens berechtigt gewesen :lol:

[The Riddler]

Zitat:

Zitat von Roachford

Zitat:

Zitat von The Riddler

@Deddy: Nene, es gibt nur Menschen die keinen Spass verstehen. Also lass dir deinen Preis nicht mies machen!

Ich kann Spass verstehen, du hättest viele Bilder linken können und ich habe kein Problem damit, so lange es nicht diskriminierend ist, was ich bei dem oben eingestellten verlinke. Das Problem ist leider meistens, das der grosse Anteil der Menschen nicht mit behinderten Menschen zu tun haben und deshalb (wenn auch vllt. unabsichtig) recht unsensibel sind.

Schwachsinn. Ich lache über Behinderte, Kinder, Frauen und andere Minderheiten genauso wie über "normale" Menschen. Genau das ist das schlimme was diese Menschen erleiden müssen, dass manche Menschen denken man muss sie anders behandeln nur weil sie behindert sind. :roll:

Und nun keep on working at OP's question.

@ST: Erwischt. :mrgreen:

[mr_emre_d]

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]

[Die Muhkuh]

Delphi-Quellcode:

Zahl := round(SinH(ln(1/(x+sqrt(sqr(x)+1)))));

(Autor ist jemand anders, nicht ich, will aber anonym bleiben, gell Mike)

[Dax]

Delphi-Quellcode:

PByte(Integer(@Zahl))^ := PByte(Integer(@Zahl))^ or 128;

:mrgreen:

[DeddyH]

Dieser Thread erinnert mich in Grundzügen an das hier: http://soren.overgaard.org/writings/...ameworks-suck/