Positive Zahlen in negative umwandeln

[taaktaak]

Moin, Moin.
Es fällt mir schwer, zu diesem Zeitpunkt noch etwas originelles zu finden. Nachdem nun viele streng mathematische Ansätze gepostet wurden, ist es an der Zeit die Optik ins Spiel zu bringen. Vorteil ist, dass in diesem Fall auf ein Vorzeichen verzichtet werden kann; die Negation erschließt sich dem geneigten Betrachter auch ohne dieses speicherplatzfressende zusätzliche Zeichen.

Hier meine Interpretation einer Negation von Zahlen
(hier nur ein Auszug aus dem hochkomplexen Programm)

Delphi-Quellcode:

procedure TfoTest17.buToggleClick(Sender:TObject);
begin
  FToggle:=not(FToggle);
  if FToggle then begin Color:=clblack;  Label1.Font.Color:=clBtnFace end
             else begin Color:=clBtnFace;Label1.Font.Color:=clBlack   end;
end;

Wer sich darunter noch nix vorstellen kann, darf sich des Anhangs bedienen.

PS1: Die für den komplizierten Umwandlungsprozess verwendet Zahl ist übrigens bedeutungsschwanger und wird für ewig an den TE und den Abend des 31.10.2008 erinnern.

PS2: Für das Programm ist eine direkte Schnittstelle zur DP-Maschinerie geplant, um den darzustellenden Zahlenwert ständig aktualisieren zu können. Um dies technisch umsetzen zu können wird allerdings die Mithilfe eines Spezialistenteams der DP notwendig sein.