Delphi Function für Vorzeichen?

Thema durchsuchen

Ansicht

Themen-Optionen

Function für Vorzeichen?

Ein Thema von Cöster · begonnen am 8. Sep 2006 · letzter Beitrag vom 10. Sep 2006

Vorheriger Beitrag

Nächster Beitrag

Christian Seehase

(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.120 Beiträge

Delphi 11 Alexandria

#29

Re: Function für Vorzeichen?

8. Sep 2006, 23:37

Moin Dax,

wozu die Pointer?

zusammenfalten · markieren

Delphi-Quellcode:

			function Sign(const AValue : double) : integer;

type

  TSignHelp = record

    case boolean of

      true  : (dblValue : double);

      false : (abDummy  : array [1..7] of Byte;

               bValue   : Byte;);

  end;

begin

  Result := (0 - (TSignHelp(AValue).bValue) shr 7) or 1;

end;

funktioniert jedenfalls.

Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist