Vandrovnik

When I had 10.2 and 10.3 on my PC and uninstalled 10.2 later, help in 10.3 stop working and must be reinstalled.

Have you tried to use lower resolution and turn the light on?

I have seen the same problem and have "solved" it this way:

  Kamera.Quality := FMX.Media.TVideoCaptureQuality.LowQuality;
  Kamera.Quality := FMX.Media.TVideoCaptureQuality.MediumQuality;

The declaration must be outside of the form...

7 minutes ago, Ian Branch said:

OK.  I'll have another try.

I have had a look at the article above and am trying to integrate the ShutdownBlockReason.... functions.

Where are the declared/defined?

Did you read, what Cristian Peța linked?

function ShutdownBlockReasonCreate(hWnd: HWND; Reason: LPCWSTR): Bool; stdcall; external user32;
function ShutdownBlockReasonDestroy(hWnd: HWND): Bool; stdcall; external user32;

12 minutes ago, David Heffernan said:

If what you say were true, then class forward references would not exist.

I believe Anders is right.

Class reference is just a pointer - its size is known. When you use this class as a member of another class (fChild: tChild, where tChild is a class), you cannot reference its members in properties (property x: integer read fChild.x). If fChild is a record (fChild: tChild, where tChild is a record), you can reference its members in properties, like in Anders' example (property x: integer read fChild.x).

If size was the only problem, I can imagine something like this ("human preprocessor"):

type

 tRecordA = record of size 8;

 tRecordB = record
  ...
  function Test: tRecordA;
 end;

 tRecordA = record
  x, y: integer;
 end;

4 minutes ago, David Heffernan said:

I'm sure that a first pass to define record type layouts followed by a second pass for everything else would not be costly.

Something like a record helper 🙂

I always wonder why there can be just one class/record helper...

19 minutes ago, David Heffernan said:

Yeah, should be using '%p' format string

Or NativeInt(pointer(... or NativeUInt(pointer(...

Just when I see this typecasting pointer to integer, I can't help thinking that 64 bit IDE is far away 🙂

44 minutes ago, David Heffernan said:

Amazing that they can't produce a 64 bit IDE.... 

64 bit IDE would probably require all design time packages to be 64 bit, too...

I was surprised to see typecast "integer(pointer(..." in https://blog.marcocantu.com/blog/2020-may-custom-managed-records.html ...

2 hours ago, Mike Torrettinni said:

Is there any situation when this might trigger some unexpected issues?

With this info in mind, for bad customers you can start programming like that:

const 
 _ = 1;
 _____ = 2;

x =   _____                                   + 
     (_-_-_)                                  +
        0                                     +
     _+0-0+_                                  ;

May be https://github.com/neslib/FastMath and/or http://docwiki.embarcadero.com/RADStudio/Rio/en/Floating_point_precision_control_(Delphi_for_x64) can help.

tDictionary alone will not allow you to store more values for the same key (it seems you need it: "I get all values of (TKey1 = 1) for the data. ").

You could use two dictionaries:

tDictionary<tKey1, tObjectList>

tDictionary<tKey2, tObjectList>

In these object lists, there will be all objects with corresponding values of the tKey1, resp. tKey2.

It happens to me +- once every two weeks, too.

4 minutes ago, Remy Lebeau said:

What does that code have to do with TListBox/TListView?  Their Sort() methods are quite different than TObjectList's Sort() method.

 

Sorry, I did not read carrefully the title.

You mean something like this?

type tSledovaniVykonuSeznamVysledku=class(tObjectList<tSledovaniVykonuVysledky>)
...  
 var Cmp: IComparer<tSledovaniVykonuVysledky>;
 begin
 Cmp:=tDelegatedComparer<tSledovaniVykonuVysledky>.Create(
  function(const Left, Right: tSledovaniVykonuVysledky): Integer
   begin
   result:=CompareStr(Left.Nazev, Right.Nazev);
  end);
 Sort(Cmp);

Thank you, AsmProfiler suites the best.

Hello,

Please can you advise a profiler for Win32/Win64 applications (made in Delphi)? Free, when possible (I do not need the profiler often).

What I have found using Google was expensive or quite outdated or buggy.

Kind regards,

Karel

I have just tried to download it using Chrome (Czech version 81.0.4044.122 (Oficiální sestavení) (64bitový) ), downloaded without problems, browser allowed me to start the downloaded .exe.

7 minutes ago, David Schwartz said:

This is running inside a VM and I cannot install Delphi in it, so the debugger cannot be used.

What about remote debugging?

This compiles, but I have not tested, whether it works as expected 🙂

     ToField<T> = class(tObject)
      private
       fData : T;
      protected
       procedure SetFromVariant(const aValue : Variant);
     end;


procedure ToField<T>.SetFromVariant(const aValue: Variant);
 var val: TValue;
 begin
 val := TValue.FromVariant(aValue);
 fData := val.AsType<T>;
end;

Do you have an idea, how many users really need new functions for old versions of Delphi? If there are not many of them, I would suggest to drop support for old versions - you can probably spend your time better than keeping code compatible with old Delphi...

Probably the same problem as in Project Window https://quality.embarcadero.com/browse/RSP-27182  It is reported, but when it will be fixed...

What about DirectWrite? It should support OpenType fonts.

Does AV happen on one computer, or all? Every query, or just some (with parameters? with string result? with only integer result? etc.)?