Jump to content

Vandrovnik

Members
  • Content Count

    560
  • Joined

  • Last visited

  • Days Won

    6

Everything posted by Vandrovnik

  1. Vandrovnik

    Parnassus Bookmarks for Delphi 11 Alexandria?

    Or use something like AutoHotkey and remap them to your favourite hotkeys...
  2. Yes. He could also try to use https://fontforge.org/ and create new font (based on the original one) with changed line spacing. Waiting for implementation of this feature in IDE could take ... ehm... some time 🙂
  3. Vandrovnik

    FB-3,09 Getting Avg Percent of an Invoice

    This will evaluate to zero: SELECT CAST (1/3 AS DOUBLE PRECISION) AS RESULT FROM rdb$database This will ealuate to 0.333333333333333333: SELECT CAST (1 AS DOUBLE PRECISION) / 3 AS RESULT FROM rdb$database But original question is about something else (probably windowing functions).
  4. Vandrovnik

    FB-3,09 Case & Cast

    I guess you have copied it without the SELECT...
  5. Vandrovnik

    FB-3,09 Case & Cast

    So there must be something different in your real SQL 🙂 What about: select cast(cast(10 as double precision) / 0.3048 * 14.7776 as NUMERIC (18,2)) from rdb$database a
  6. Vandrovnik

    FB-3,09 Case & Cast

    select cast((10.00000 / 0.3048) * 14.7776 as NUMERIC (18,2)) from rdb$database a It works for me. Without the cast, there is 13 decimal places, so only 5 places is left in front of the decimal point.
  7. In 64bit app, pointer is 64 bit - if PrinterInfo is a pointer, it should be casted to NativeUInt or something like that...
  8. Vandrovnik

    Several F2084 Internal Error on Delphi 10.4.2

    Maybe Emba could use remote debugging - I believe anybody with such a problem would allow Emba to do remote debugging on his/her computer.
  9. Vandrovnik

    Tstringgrid grid index out of bounds

    Can you prepare a small demo project and put it here for download?
  10. Hello, could you try to download .iso and install from it?
  11. Vandrovnik

    TImage (JPG) not scaling, but PNG and BMP DO ???

    It is possible to load a JPG image in original size, or 1/2, 1/4 or 1/8 of original size. Maybe it firsts loads it optimized in, for example, 1/4 of its original size, and later it does not have "pixels enough" to scale up?
  12. Vandrovnik

    Strange Benchmark Results; Am I Missing Something?

    I know (I have used it in my thread example), but is it possible to do also with tParallel.For?
  13. Vandrovnik

    Strange Benchmark Results; Am I Missing Something?

    I have tried this (will probably not work fine for MaxValue not divisible by Workers), it is 3.6 times faster than single thread on an old i7 CPU. I guess it should be possible to use IFuture<Int64>, but I do not know how to pass parameters to it... It is easy to use tParallel.For, but there I used tInterlocked.Add(total, num), which resulted in much worse time than single thread. const MaxValue=1000000000; type tCalcThread=class(tThread) public CalcFrom: integer; CalcTo: integer; Value: Int64; procedure Execute; override; end; procedure tCalcThread.Execute; var PartialTotal: Int64; num: integer; begin PartialTotal:=0; for num:=CalcFrom to CalcTo do if (num mod 3 = 0) or (num mod 5 = 0) Then inc(PartialTotal, num); Value:=PartialTotal; end; function PLoop32: Int64; const Workers = 8; Var total : Int64; Calcs: array[0..Workers-1] of tCalcThread; a: integer; begin total := 0; fillchar(Calcs, sizeof(Calcs), 0); try for a:=0 to Workers-1 do begin Calcs[a]:=tCalcThread.Create(true); Calcs[a].FreeOnTerminate:=false; Calcs[a].CalcFrom:=Int64(MaxValue)*a div Workers; Calcs[a].CalcTo:=Int64(MaxValue)*(a+1) div Workers-1; Calcs[a].Start; end; for a:=0 to Workers-1 do begin Calcs[a].WaitFor; inc(total, Calcs[a].Value); end; finally for a:=0 to Workers-1 do FreeAndNil(Calcs[a]); end; result := total; end;
  14. Vandrovnik

    Strange Benchmark Results; Am I Missing Something?

    I think the result will not be the same - original code adds number 15 just once to the total, while your code will add it twice...
  15. Is there Parnassus Parallel Debugger for Delphi 11.0? Debugging threads is a night mare for me, so I wanted to try this IDE enhancement, but did not found it in GetIt...
  16. Let's hope it wasn't "soon" from a geological perspective...
  17. Vandrovnik

    What is good replacement for FastReports?

    There is https://blogs.embarcadero.com/must-have-this-free-powerful-report-generator-for-your-windows-apps/ , I have not tried it.
  18. Vandrovnik

    docwiki.embarcadero.com is not working

    I suppose it will be more difficult to find information on docwiki.embarcadero.com using Google, because Google Bot probably most of the time also sees just errors...
  19. Vandrovnik

    ANN: Better Translation Manager released

    Thank you! I will try it as soon as possible.
  20. Vandrovnik

    ANN: Better Translation Manager released

    This is very interesting, please are there instructions how to prepare the application to use this tracking?
  21. Vandrovnik

    docwiki.embarcadero.com is not working

    ... and these are silently ignored, I guess 😞 [RSP-37138] Product documentation has been unavailable for several days - Embarcadero Technologies Internal status: Validation. How much time does it need just to validate this problem?
  22. Vandrovnik

    docwiki.embarcadero.com is not working

    It says it cannot connect to MySQL database server, so the problem would probably happen with newer MediaWiki, too.
  23. Vandrovnik

    Free vs Paid Version of an app

    Hello, Inno Setup is able to take a file which is out of the setup.exe and install it, so if they can distribute more then just one file, they can put logo.jpg etc. in the same directory (or a subdirectory, as in my example) and install would find it there. [Files] Source: "{src}\Licence\*.*"; DestDir: "{app}\Bin"; Flags: external comparetimestamp; Components: Licence
  24. Vandrovnik

    Using translations in unit Consts with Delphi 10.4 VCL

    I have copied Vcl.Consts.pas and System.SysConst.pas to my project folder. I have added them to my project and in them, made translations. With each new version of Delphi, I use WinMerge to find differences and solve them, otherwise it does not compile anymore.
  25. Hi, I am using IBX on Windows (32 and 64bit) and Android (32 and 64bit). Database = Firebird (2.5 and 3.0). In Delphi 11, I have not found any problem.
×