|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.118 Beiträge
Delphi 11 Alexandria
|
Re: Function für Vorzeichen?
8. Sep 2006, 23:37
Moin Dax,
wozu die Pointer?
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
|