mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-23 02:56:19 +02:00
105 lines
2.0 KiB
PHP
105 lines
2.0 KiB
PHP
|
|
Class Function TORDINALHELPER.Parse(const AString: string): TORDINALTYPE; inline; static;
|
|
|
|
begin
|
|
Result:=StrToInt(AString);
|
|
end;
|
|
|
|
Class Function TORDINALHELPER.Size: Integer; inline; static;
|
|
|
|
begin
|
|
Result:=SizeOf(TORDINALTYPE);
|
|
end;
|
|
|
|
Class Function TORDINALHELPER.ToString(const AValue: TORDINALTYPE): string; overload; inline; static;
|
|
|
|
begin
|
|
Result:=IntToStr(AValue);
|
|
end;
|
|
|
|
Class Function TORDINALHELPER.TryParse(const AString: string; out AValue: TORDINALTYPE): Boolean; inline; static;
|
|
|
|
Var
|
|
C : Integer;
|
|
|
|
begin
|
|
Val(AString,AValue,C);
|
|
Result:=(C=0);
|
|
end;
|
|
|
|
Function TORDINALHELPER.ToBoolean: Boolean; inline;
|
|
|
|
begin
|
|
Result:=(Self<>0);
|
|
end;
|
|
|
|
Function TORDINALHELPER.ToDouble: Double; inline;
|
|
|
|
begin
|
|
Result:=Self;
|
|
end;
|
|
|
|
Function TORDINALHELPER.ToExtended: Extended; inline;
|
|
|
|
begin
|
|
Result:=Self;
|
|
end;
|
|
|
|
Function TORDINALHELPER.ToBinString: string; inline;
|
|
|
|
begin
|
|
Result:=BinStr(Self,SizeOf(TORDINALTYPE)*8);
|
|
end;
|
|
|
|
Function TORDINALHELPER.ToHexString(const AMinDigits: Integer): string;
|
|
overload; inline;
|
|
|
|
begin
|
|
Result:=IntToHex(Self,AMinDigits);
|
|
end;
|
|
|
|
Function TORDINALHELPER.ToHexString: string; overload; inline;
|
|
|
|
begin
|
|
Result:=IntToHex(Self,SizeOf(TORDINALTYPE)*2);
|
|
end;
|
|
|
|
Function TORDINALHELPER.ToSingle: Single; inline;
|
|
|
|
begin
|
|
Result:=Self;
|
|
end;
|
|
|
|
Function TORDINALHELPER.ToString: string; overload; inline;
|
|
|
|
begin
|
|
Result:=IntToStr(Self);
|
|
end;
|
|
|
|
Function TORDINALHELPER.SetBit(const index: TORDINALBITINDEX) : TORDINALTYPE; inline;
|
|
|
|
begin
|
|
Self := Self or (TORDINALTYPE(1) shl index);
|
|
Result:=Self;
|
|
end;
|
|
|
|
Function TORDINALHELPER.ClearBit(const index: TORDINALBITINDEX) : TORDINALTYPE; inline;
|
|
|
|
begin
|
|
Self:=Self and not TORDINALTYPE((TORDINALTYPE(1) shl index));
|
|
Result:=Self;
|
|
end;
|
|
|
|
Function TORDINALHELPER.ToggleBit(const index: TORDINALBITINDEX) : TORDINALTYPE; inline;
|
|
|
|
begin
|
|
Self := Self xor TORDINALTYPE((TORDINALTYPE(1) shl index));
|
|
Result:=Self;
|
|
end;
|
|
|
|
Function TORDINALHELPER.TestBit(const Index: TORDINALBITINDEX):Boolean; inline;
|
|
|
|
begin
|
|
Result := (Self and TORDINALTYPE((TORDINALTYPE(1) shl index)))<>0;
|
|
end;
|