Procedure ShellSort(var a: array of Word);


var


  bis, i, j, k: LongInt;


  h: Word;


begin


  bis := High(a);


  k := bis shr 1;// div 2


  while k > 0 do


  begin


    for i := 0 to bis - k do


    begin


      j := i;


      while (j >= 0) and (a[j] > a[j + k]) do


      begin


        h := a[j];


        a[j] := a[j + k];


        a[j + k] := h;


        if j > k then


          Dec(j, k)


        else


          j := 0;


      end; // {end while]


    end; // { end for}


    k := k shr 1; // div 2


  end;  // {end while}





end;

procedure QuickSort(var A: array of Integer; 


                        iLo, iHi: Integer) ;


var


  Lo, Hi, Pivot, T: Integer;


begin


  Lo := iLo;


  Hi := iHi;


  Pivot := A[(Lo + Hi) div 2];


  repeat


    while A[Lo] < Pivot do Inc(Lo) ;


    while A[Hi] > Pivot do Dec(Hi) ;


    if Lo <= Hi then


     begin


       T := A[Lo];


       A[Lo] := A[Hi];


       A[Hi] := T;


       Inc(Lo) ;


       Dec(Hi) ;


     end;


  until Lo > Hi;


  if Hi > iLo then QuickSort(A, iLo, Hi) ;


  if Lo < iHi then QuickSort(A, Lo, iHi) ;


end;

function StrPCopy(Dest: PChar; 


                  const Source: string): PChar;

function StrPas(Str: PChar): string;

function IsWindowsVista: Boolean;   


var VerInfo: TOSVersioninfo;


begin


  VerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);


  GetVersionEx(VerInfo);        


  Result := VerInfo.dwMajorVersion >= 6;


end;

function RoundN(x: Extended): LongInt;


begin


  Result := Int(X) + Int(Frac(X) * 2);


end;

function RoundD(x: Extended; d: Integer): Extended;


// RoundD(123.456, 0) = 123.00


// RoundD(123.456, 2) = 123.46


// RoundD(123456, -3) = 123000


var n: Extended;


begin


  n := IntPower(10, d);


  x := x * n;


  Result := (Int(x) + Int(Frac(x) * 2)) / n;


end;

if (SentenceAge >= '18') then


      if (SentenceAge <= '20') then


Result := IntToStr(TrQi4) + ' - ' + IntToStr(TrB);

if (SentenceAge >= '18') and (SentenceAge <= '20') then


Result := IntToStr(TrQi4) + ' - ' + IntToStr(TrB);

listbox.Perform(LB_SETHORIZONTALEXTENT, 900, 0);

// string to array


 StrPLCopy(pansichar(@arr), str, sizeof(arr));


 


// array to str


procedure AnsiStringFromBuf(var S: AnsiString; Buffer: PAnsiChar; Len: Integer);


// Usage: ansistringfrombuf(str, pansichar(@arr), sizeof(arr));


begin


  setstring(s, buffer, len);


  setlength(s, strlen(buffer));


end;

  private


    procedure EndSessionMsg(var Msg : TMessage); message WM_QUERYENDSESSION;








procedure TForm1.EndSessionMsg(var Msg : TMessage);


begin


  if backingupinprocess then Msg.Result := 0; // prevent system from shutting down or logging off


  Msg.result := 0;


  if Msg.lparam = 0 then


   begin


     ShowMessage('System is shutting down');


   end


  else if (DWORD(Msg.lparam) and ENDSESSION_LOGOFF) = ENDSESSION_LOGOFF then


   begin


     ShowMessage('User is logging off');


   end;


end;  // EndSessionMsg

procedure TForm1.focuscombobox(combobox : tcombobox);


var editHWnd : HWND;


begin


  editHWnd := FindWindowEx(Combobox.handle, 0, nil, nil);  // get the handle of the edit component


  if editHWnd <> 0 then windows.setfocus(editHWnd);


end;