Berocoder

I assume those Delphi developers that using a Mac M1, M2 or M3 would be happy if Embarcadero would recompile Delphi IDE and compiler to Windows ARM.
What is the potential problem with that ?

Peganza and pascal expert is great products. I  use them both in my daily work to ensure quality!

39 minutes ago, dummzeuch said:

I'm not sure how efficient the implementation of IndexStr is. Assuming it's a linear search, the case statement is worse on two accounts:

1. It more difficult to read and understand.

2. It's a bit less efficient.

 

On top of that this implementation is error prone. If somebody inserts a new string rather than appending it to the array the indices in the case statement will all have to be corrected.

 

It has only one advantage: It's less to type. And of course, it looks cleaner.

 

Some kind of sorted list or hash table storing the strings and an enum value would be more efficient and less error prone (edit: in short: a dictionary). Of course that list must be initialized before or can be used, preferably only once.

 

People who are used to languages that support case statements with strings will of course laugh at that code anyway.

I would prefer alternative 2. But you are right that it is error prone on change as it is harder to read.

And as David said using enum would be best choice.

Currently alternative 1 is used so I think I leave it as is for now 🙂

What code to you prefer and why?

Alternative 1

  if aMessageType = 'EXPREG' then
    DecodeExportReg(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPACC' then
    DecodeExportAcc(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPERR' then
    DecodeExportErr(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPREL' then
    DecodeExportRel(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPREF' then
    DecodeExportRef(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPREQ' then
    DecodeExportReq(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPINF' then
    DecodeExportInf(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPREJ' then
    DecodeExportRej(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPCLA' then
    DecodeExportCla(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPCON' then
    DecodeExportCon(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPAME' then
    DecodeExportAme(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPIRJ' then
    DecodeExportIrj(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPARJ' then
    DecodeExportArj(vDoc, aCdn, aRequestCorrelation, aMessageText)
  else if aMessageType = 'EXPHRT' then
    DecodeExportHrt(vDoc, aCdn, aRequestCorrelation, aMessageText)

Alternative 2

  var Index := IndexStr(aMessageType, ['EXPREG', 'EXPACC', 'EXPERR', 'EXPREL', 'EXPREF', 'EXPREQ', 'EXPINF', 'EXPCLA', 'EXPCON', 'EXPAME', 'EXPIRJ', 'EXPARJ', 'EXPHRT']);
  case Index of
    0: DecodeExportReg(vDoc, aCdn, aRequestCorrelation, aMessageText);
    1: DecodeExportAcc(vDoc, aCdn, aRequestCorrelation, aMessageText);
    2: DecodeExportErr(vDoc, aCdn, aRequestCorrelation, aMessageText);
    3: DecodeExportRel(vDoc, aCdn, aRequestCorrelation, aMessageText);
    4: DecodeExportRef(vDoc, aCdn, aRequestCorrelation, aMessageText);
    5: DecodeExportReq(vDoc, aCdn, aRequestCorrelation, aMessageText);
    6: DecodeExportInf(vDoc, aCdn, aRequestCorrelation, aMessageText);
    7: DecodeExportRej(vDoc, aCdn, aRequestCorrelation, aMessageText);
    8: DecodeExportCla(vDoc, aCdn, aRequestCorrelation, aMessageText);
    9: DecodeExportCon(vDoc, aCdn, aRequestCorrelation, aMessageText);
    10: DecodeExportAme(vDoc, aCdn, aRequestCorrelation, aMessageText);
    11: DecodeExportIrj(vDoc, aCdn, aRequestCorrelation, aMessageText);
    12: DecodeExportArj(vDoc, aCdn, aRequestCorrelation, aMessageText);
    13: DecodeExportHrt(vDoc, aCdn, aRequestCorrelation, aMessageText);
  end;

Regards

Roland Bengtsson

In our big ERP application we have always compiled it with Optimization off in compiler settings to production.

Delphi 10.4 is used but plan is to switch to 11.3 during summer.

With our biggest customer the volumes has increased and the application can sometimes feel slow.

So I tried to compile it with Optimization on as that is a cheap way to increase performance. Everything seems to work fine.

But there is one thing. Exceptions are logged to a textfile. Callstack/Stacktrace are also logged. We use JCL for that.

It works fine before but now I see sometimes callstacks make no sense anymore.
Obviously I suspect Optimization for that.

So curious how other developers handle this case ?

Is there other components like EurekaLog that handle optimization better and still can generate a reliable callstack ?

Or maybe we have to choose between better performance or reliable callstack ?
 

Regards

Roland Bengtsson

Or Ctrl + Alt + y with MMX formatter installed. It is a bit easier for fingers 😊

Ok go to FastMM5.pas line 144

{.$Include FastMM5.inc}   // Enable to turn on log leaks to file

Remove dot and it works 😀

Thanks for the hint. I had the exact same problem

Thanks for the hint. I had the exact same problem

I am a bit confused of TestInsight. I am using version 1.2.0.1 with Delphi 11.2.

I have marked my testproject 


Discover tests find 34

I mark 2 tests and run selected with Shift+Alt+F9

Now the strange case. I mark 2 new tests in skipped and run again with Shift+Alt+F9.
The 2 already successful seems to run. Duration change. But not the new tests.
I expect to see 4 success and 30 skipped now


Now I uncheck the 2 tests at top and leave only 2 selected tests and run with Shift+Alt+F9.
It seems to be ignored and none tests was executed.

Did I do anything wrong or have I found a bug ?

/Roland

11 hours ago, PeterBelow said:

Are you working on a 32 or 64 bit target?

32-bit target big VCL desktop application for Windows. 

Ok, I have a Scroll lock key on my keyboard. I can try that next time it happens. I hope there is a bugreport on this on https://quality.embarcadero.com

13 minutes ago, Stano said:

Sometimes I get the Fx keys to lock up. Try to unlock them. I have a "Lock" key for that

Ok, but I don't understand what you mean. My F-keys works find outside Delphi in this case. What is a "Lock" key ?

Hi, I am using latest delphi with all patches. Delphi 11 Version 28.0.46141.0937

When I debug my application by singlestep code with F7 or F8 sooner or later I cannot continue.
IDE is still responsive but programcounter hang and singlestep code have no effect.

I have seen this problem before also with previous 10.4.

Anyone with similar experience ? What can I do as workaround except to restart my application and try again.
It seems to be completely random...

On 8/10/2022 at 9:01 AM, David Heffernan said:

It sounded like you might be accessing an object after it has been destroyed which is obviously incorrect. 

It is correct. Deleted is not the same as destroyed.
A BoldObject is usually persisted in a database.

Summary of lifecycle of such object:

• Some code ask for the object. It is loaded from database to memory. A new instance in memory is created.
• It can now be used as any normal object.
• Some code call Delete method. The flag above BoldObjectIsDeleted is now true
• Some code Synchronize memory with database. Objects that are changed will update rows in database.
  Objects that are deleted in memory will also be deleted in database.
• The object will now be destroyed

8 hours ago, Uwe Raabe said:

Thinking out of the box here:

type
  TSupport = class helper for TObject
  public
    function Supports<T: class>(out ResObj: T): Boolean;
  end;

function TSupport.Supports<T>(out ResObj: T): Boolean;
begin
  ResObj := nil;
  if Self is T then
  begin
    if not ((Self is TBoldObject) and TBoldObject(Self).BoldObjectIsDeleted) then
      ResObj := T(Self);
  end;
  result := ResObj <> nil;
end;

Hm interesting idea 😀 Thanks!
But that change how call the method. How will that look like ?

Quote

 

10 hours ago, David Heffernan said:

Pascal Analyser is wrong. Seems pointless to test with is TBoldObject and then cast with as. Once is tells you the cast is valid then go ahead and use an unsafe cast. 

 

Seems dubious to cast one object to be a class from an unrelated hierarchy. Don't know how that could be valid. 

 

Also, what is BoldObjectIsDeleted all about? Don't tell me this flag is set to true when the instance is destroyed. 

Yes, BoldObjectIsDeleted is true when object is deleted in memory but remain in database. On next sync memory to database it will be removed from database as well.
But how that works is unrelated to question in this case.

This is the code for Supports method. I know the name is bad, SysUtils.Supports is different. But we use this on thousands of places. Too late to change now.

Now I also use Pascal Analyzer. That give a warning STW10

Out parameter is read before set (STW10)

This section lists out parameters that are read before set in the procedure.

https://www.peganza.com/PALHelp/clip0211.png
 

And yes it is correct. First line

  TObject(ResObj) := nil;
 

Read the out parameter before set it.
ResObj have no class in parameter. Reason is that we want to send any subclass derived from TBoldObject.
If I set type to TObject that would not work any more.

Any suggestion how I can remove the warning and still preserve the implementation ?

{: Casting between two objects derived from two different classes
Resobj must inherit from aObject
@param aObject The object to cast from
@param aClass The class to cast to
@ResObj The resulting object
@return True if successful otherwise false}
function Supports(const aObject: TObject; const aClass: TClass; out ResObj): Boolean; overload;
begin
  TObject(ResObj) := nil;
  if aObject is aClass then
  begin
    if not ((aObject is TBoldObject) and (aObject as TBoldObject).BoldObjectIsDeleted) then
      TObject(ResObj) := aObject;

  end;
  result := TObject(ResObj) <> nil;
end;

Example of usage
 

var myInvoice: TInvoice;   // This inherit TBoldObject
if Supports(myclass.somelink, TInvoice, myInvoice)
begin
  // code that use myInvoice
end;

I try to use Unit Dependency Analyzer. The target is to cut compile time by find cyclic dependencies in a big project where Unit A use Unit B. And Unit B use Unit A.

I have attached a screenshot. How do I read that ?

I see for example that AttracsCustomsSpanFetch uses AttracsSystemsGlobals in Implementation section. I see nothing wrong with that.
But AttracsSystemsGlobals use BusinessClasses in interface section. And BusinessClasses uses AttracsSystemsGlobals in implementation section.
I marked it with red and green. So that is a cyclic dependency, right ?

But the dialog show nothing that differ the two cases above.
Or did I miss something ?

Internally we didn't agree on that sentence. Anyway a new guy start next week and another one in August.

Many complain that there is no jobs for Delphi. At the same time some employers leave Delphi as it is hard to find developers. It don't make sense for me 😊

https://ihateregex.io/

Is good regex resource

New job opportunity if you are experienced.

https://attracs.teamtailor.com/jobs/1660578-delphi-developer/45cf12cb-1f96-4e93-94c1-8b96c6a45ade

How can I add a large text-file as an attachment to a Slackpost? A working example would be great. I use SDriver https://github.com/andrea-magni/SDriver

 and the included demo works fine to send some strings.

What I did so far
https://gist.github.com/bero/e675bdf38c6e884be7e08377d6d52009

Ok thanks for the feedback.

So back to the original question 😊

What is the best or most convenient path to connect and use Google Cloud logging from Delphi?

I want to avoid dependencies to third-party components and dll-files if it is possible. But it is not a requirement.

Roland