Category Archives: Delphi

Delphi IDE Colorizer – did you know about?

Posted on 14.01.2018 by Stanislav_Panteleev

Yesterday opened for myself Delphi IDE Colorizer (DIC). Cool thing – see attachment pic !!! It has dozens of themes, transparent menu, with Delphi Theme Editor together you can customize IDE as you wish. And it is free. I downloaded … Continue reading →

Posted in Delphi | Comments Off

Delphi. UniGUI. Synchronious and ASynchronious modes

Posted on 20.12.2017 by Stanislav_Panteleev

about ShowModal in VCL and not only http://www.unigui.com/doc/online_help/synch-and-asynch-operations.htm

Posted in Delphi | Comments Off

Delphi. Converting TRichView2PDF

Posted on 01.12.2017 by Stanislav_Panteleev

According to this and this i created my wrapper unit to convert trichview docs to pdf like this download and install SynopsePDF use my unit 09_SynopsePDF to convert to PDF from trichView like this also helpful for me was that forum having sRichView which … Continue reading →

Posted in Delphi | Comments Off

MySQL. Seconds to hours / min / sec

Posted on 15.11.2017 by Stanislav_Panteleev

example from project

  select 4827 div 60 div 60 into @h;
  select (4827-@h*60*60) div 60 into @m;
  select (4827-(@h*60*60)-(@m*60)) into @s;
  select @h,@m,@s;

select 4827 div 60 div 60 into @h;

select (4827-@h*60*60) div 60 into @m;

select (4827-(@h*60*60)-(@m*60)) into @s;

select @h,@m,@s;

elementary, but in practice… or just select SEC_TO_TIME(4827); documentation is your friend!

Posted in Delphi | Comments Off

Delphi. Tiobe. November 2017 – 9th and growing!

Posted on 14.11.2017 by Stanislav_Panteleev

https://tproger.ru/news/tiobe-november-2017/amp/

Posted in Delphi | Comments Off

Delphi. Pearson criteria for testing normal distribution

Posted on 05.11.2017 by Stanislav_Panteleev

Ok, Pearson criteria may be used for any distribution you like, but most popular is normal theory from book “Econometrics” of Kochetkov and Tolokonnikov Pearson criteria will help to understand if distribution in normal?

Posted in Delphi | Comments Off

Delphi. Descriptive statistics. Intro

Posted on 29.10.2017 by Stanislav_Panteleev

libs that i found on the net tpmath alglib example of counting Pearson Correlation and binom probability

unit uMyMath;

interface

uses
  System.SysUtils, System.Classes, Math;

type
  TMyMath = class(TDataModule)

  public
    class function CorrelPearson(x, y: TArray<double>): double;
    class function Factorial(aNumber: Integer): extended;
    class function BinomProbability(k, n: Integer; p: double): extended;
    class function BinominalKoeff(k, n: Integer): extended;
    class function AlphaCronbah(avCorr:Double; n: Integer): extended;
  end;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

class function TMyMath.AlphaCronbah(avCorr:Double; n: Integer): extended;
var 
  d1, d2, d3:double;
begin
  d1 := avCorr * n;
  d2 := 1 + (n-1) * avCorr;
  result := d1 / d2;
end;

class function TMyMath.BinominalKoeff(k, n: Integer): extended;
var
  d1, d2, d3: extended;
begin
  d1 := Factorial(n);
  d2 := Factorial(n - k);
  d3 := Factorial(k);
  Result := d1 / (d2 * d3);
end;

class function TMyMath.BinomProbability(k, n: Integer; p: double): extended;
var
  bk: Double;
  p1, p2: Extended;
begin
  bk := BinominalKoeff(k, n);
  p1 := Power(p, k);
  p2 := Power(1 - p, n - k);
  Result := bk * p1 * p2;
end;

class function TMyMath.CorrelPearson(x, y: TArray<double>): double;
var
  d1, d2, d3, d4: double;
  i: Integer;
begin
  d1 := 0.00;
  d2 := 0.00;
  d3 := 0.00;
  d4 := 0.00;
  for i := Low(x) to High(x) do
  begin
   d1 := d1+(x[i]-mean(x))*(y[i]-mean(y));
   d2 := d2+Power((x[i]-mean(x)),2);
   d3 := d3+Power((y[i]-mean(y)),2);
  end;
  d4 := Sqrt(d2 * d3);
  Result := d1 / d4;
end;

class function TMyMath.Factorial(aNumber: Integer): extended;
var
  i: Integer;
begin
  if aNumber < 0 then
    raise Exception.Create('The factorial function is not defined for negative integers.');
  Result := 1;
  for i := 1 to aNumber do
    Result := Result * i;
end;

end.

unit uMyMath;

interface

uses

System.SysUtils, System.Classes, Math;

type

TMyMath = class(TDataModule)

public

class function CorrelPearson(x, y: TArray<double>): double;

class function Factorial(aNumber: Integer): extended;

class function BinomProbability(k, n: Integer; p: double): extended;

class function BinominalKoeff(k, n: Integer): extended;

class function AlphaCronbah(avCorr:Double; n: Integer): extended;

end;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

class function TMyMath.AlphaCronbah(avCorr:Double; n: Integer): extended;

var

d1, d2, d3:double;

begin

d1 := avCorr * n;

d2 := 1 + (n-1) * avCorr;

result := d1 / d2;

end;

class function TMyMath.BinominalKoeff(k, n: Integer): extended;

var

d1, d2, d3: extended;

begin

d1 := Factorial(n);

d2 := Factorial(n - k);

d3 := Factorial(k);

Result := d1 / (d2 * d3);

end;

class function TMyMath.BinomProbability(k, n: Integer; p: double): extended;

var

bk: Double;

p1, p2: Extended;

begin

bk := BinominalKoeff(k, n);

p1 := Power(p, k);

p2 := Power(1 - p, n - k);

Result := bk * p1 * p2;

end;

class function TMyMath.CorrelPearson(x, y: TArray<double>): double;

var

d1, d2, d3, d4: double;

i: Integer;

begin

d1 := 0.00;

d2 := 0.00;

d3 := 0.00;

d4 := 0.00;

for i := Low(x) to High(x) do

begin

d1 := d1+(x[i]-mean(x))*(y[i]-mean(y));

d2 := d2+Power((x[i]-mean(x)),2);

d3 := d3+Power((y[i]-mean(y)),2);

end;

d4 := Sqrt(d2 * d3);

Result := d1 / d4;

end;

class function TMyMath.Factorial(aNumber: Integer): extended;

var

i: Integer;

begin

if aNumber < 0 then

raise Exception.Create('The factorial function is not defined for negative integers.');

Result := 1;

for i := 1 to aNumber do

Result := Result * i;

end;

end.

Posted in Delphi | Comments Off

Delphi. FastReport. VCL. Even and not even table strings

Posted on 27.10.2017 by Stanislav_Panteleev

Link

Posted in Delphi, FastReport | Comments Off

Delphi.FastReport. fr3 and fp3 difference

Posted on 21.10.2017 by Stanislav_Panteleev

Hello. Has a task to save prepared reports and open them later in fastReportViewer, Spend 4 days to write this .fr3 is a model – it doesn’t contains data .fp3 is a data, prepared report So, how to save prepared … Continue reading →

Posted in Delphi | Comments Off

MySQL. Cursor. Example from project

Posted on 21.10.2017 by Stanislav_Panteleev

What is cursor – it is like query that returns some dataset… but all code works on SQL server side… Code by my friend…

CREATE DEFINER=`root`@`localhost` PROCEDURE `CopyOrders`(lid_ord int,lid_firm int,ldt_begin date,ldt_end date,lworker int)
BEGIN

  DECLARE aDate date default ldt_begin;
  DECLARE aid_ord int;
  DECLARE aold_id_oj int;
  DECLARE anew_id_oj int;
  DECLARE done INT DEFAULT FALSE;
  DECLARE old_cur CURSOR FOR select id_oj
                         from   ord_job 
                         where  id_ord=lid_ord 
       order by id_oj;
  DECLARE new_cur CURSOR FOR select id_oj
                         from   ord_job 
                         where  id_ord=aid_ord  
       order by id_oj;
  DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = TRUE;                       
  DECLARE EXIT HANDLER FOR SQLEXCEPTION ROLLBACK; 
  DECLARE EXIT HANDLER FOR SQLWARNING ROLLBACK;
     
  START TRANSACTION;
  
  select ADDDATE(aDate, INTERVAL -1 DAY) into aDate;
      
  REPEAT
  
    select ADDDATE(aDate, INTERVAL 1 DAY) into aDate;
  
    insert into orders (id_firm,dt_ord) 
           values (lid_firm,aDate);
    SET aid_ord = (select LAST_INSERT_ID());  
        
 insert into ord_job (id_ord,id_job,count,time_begin,time_end,sex,age,ethnic,memo,med_book)
          (select aid_ord,id_job,count,time_begin,time_end,sex,age,ethnic,memo,med_book 
                 from ord_job 
                 where id_ord=lid_ord and fl_active=1);
    
    if lworker=1 then
    
    Open old_cur;
       Open new_cur;
       SET done = FALSE;
       
       read_loop: LOOP
       
       FETCH old_cur INTO  aold_id_oj;
       FETCH new_cur INTO  anew_id_oj;
       
       IF done THEN LEAVE read_loop;  END IF;
       
       insert into orders_b (id_ord,id_oj,id_user,id_worker,id_job,time_begin,time_end,tarif,shtraf,bonus)
      (select aid_ord,anew_id_oj,id_user,id_worker,id_job,time_begin,time_end,tarif,shtraf,bonus 
                from orders_b 
                where id_oj=aold_id_oj and fl_active=1);
       

       END LOOP;    
       
       Close old_cur;
    Close new_cur;
        
    end if;
    
  UNTIL aDate >= ldt_end 
  END REPEAT;
     
  COMMIT;  
  
END

CREATE DEFINER=`root`@`localhost` PROCEDURE `CopyOrders`(lid_ord int,lid_firm int,ldt_begin date,ldt_end date,lworker int)

BEGIN

DECLARE aDate date default ldt_begin;

DECLARE aid_ord int;

DECLARE aold_id_oj int;

DECLARE anew_id_oj int;

DECLARE done INT DEFAULT FALSE;

DECLARE old_cur CURSOR FOR select id_oj

from ord_job

where id_ord=lid_ord

order by id_oj;

DECLARE new_cur CURSOR FOR select id_oj

from ord_job

where id_ord=aid_ord

order by id_oj;

DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = TRUE;

DECLARE EXIT HANDLER FOR SQLEXCEPTION ROLLBACK;

DECLARE EXIT HANDLER FOR SQLWARNING ROLLBACK;

START TRANSACTION;

select ADDDATE(aDate, INTERVAL -1 DAY) into aDate;

REPEAT

select ADDDATE(aDate, INTERVAL 1 DAY) into aDate;

insert into orders (id_firm,dt_ord)

values (lid_firm,aDate);

SET aid_ord = (select LAST_INSERT_ID());

insert into ord_job (id_ord,id_job,count,time_begin,time_end,sex,age,ethnic,memo,med_book)

(select aid_ord,id_job,count,time_begin,time_end,sex,age,ethnic,memo,med_book

from ord_job

where id_ord=lid_ord and fl_active=1);

if lworker=1 then

Open old_cur;

Open new_cur;

SET done = FALSE;

read_loop: LOOP

FETCH old_cur INTO aold_id_oj;

FETCH new_cur INTO anew_id_oj;

IF done THEN LEAVE read_loop; END IF;

insert into orders_b (id_ord,id_oj,id_user,id_worker,id_job,time_begin,time_end,tarif,shtraf,bonus)

(select aid_ord,anew_id_oj,id_user,id_worker,id_job,time_begin,time_end,tarif,shtraf,bonus

from orders_b

where id_oj=aold_id_oj and fl_active=1);

END LOOP;

Close old_cur;

Close new_cur;

end if;

UNTIL aDate >= ldt_end

END REPEAT;

COMMIT;

END

Posted in Delphi | Comments Off

Category Archives: Delphi

Delphi IDE Colorizer – did you know about?

Delphi. UniGUI. Synchronious and ASynchronious modes

Delphi. Converting TRichView2PDF

MySQL. Seconds to hours / min / sec

Delphi. Tiobe. November 2017 – 9th and growing!

Delphi. Pearson criteria for testing normal distribution

Delphi. Descriptive statistics. Intro

Delphi. FastReport. VCL. Even and not even table strings

Delphi.FastReport. fr3 and fp3 difference

MySQL. Cursor. Example from project

MY PROJECTS

Recent Posts

Categories