Common.Utils.pas

unit Common.Utils;

interface

uses
  System.Classes,
  System.SysUtils,
  System.UITypes;

function GetInitiales( aName: string ): string;
function HtmlColorToAlphaColor( const HtmlColor: string ): TAlphaColor;
function SecondsToDateTime( const aNbSeconds: Integer ): TDateTime;

implementation

function GetInitiales( aName: string ): string;
begin
  var LFirst := aName[ 1 ];

  var LPos := pos( ' ', aName );
  if ( LPos > 0 ) and ( LPos < Length( aName ) ) then
  begin
    repeat
      Inc( LPos );
    until ( aName[ lpos ] <> ' ' );

    var LSecond := aName[ LPos ];

    Exit( UpperCase( LFirst + LSecond ) );
  end
  else if ( Length( aName ) > 1 ) then
  begin
    Exit( aName.Substring( 0, 2 ).ToUpper );
  end
  else
  begin
    Exit( aName );
  end;
end;

function HtmlColorToAlphaColor( const HtmlColor: string ): TAlphaColor;
var
  Hex: string;
begin
  Hex := HtmlColor;
  if ( Length( Hex ) > 0 ) and ( Hex[ 1 ] = '#' ) then
    Delete( Hex, 1, 1 );

  // On préfixe FF pour l'alpha (opaque)
  Result := TAlphaColor( StrToInt( '$' + Hex ) );
end;

function SecondsToDateTime( const aNbSeconds: Integer ): TDateTime;
var
  Lh, Lm, Ls: Integer;
begin
  Lh := aNbSeconds div 3600;
  Lm := ( aNbSeconds mod 3600 ) div 60;
  Ls := aNbSeconds mod 60;

  if not ( TryEncodeTime( Lh, Lm, Ls, 0, Result ) ) then
  begin
    Result := 0;
  end;
end;

end.