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.