Jump to content

David Heffernan

Members
  • Content Count

    3513
  • Joined

  • Last visited

  • Days Won

    174

Everything posted by David Heffernan

  1. David Heffernan

    TDataModule OnDestroy event never triggered?

    Perhaps the data module isn't being destroyed. If you showed a minimal reproduction then we'd be able to tell.
  2. David Heffernan

    License Questions -

    The latter. If you include this gpl licensed component then that propagates.
  3. There are times when this is desirable. It's a big weakness in my view that the type of a literal can be ambiguous.
  4. David Heffernan

    Array within an array??

    Same for integers, right? We don't feel compelled to store pointers to integers in arrays very commonly, do we.
  5. David Heffernan

    Array within an array??

    Pretty bad idea this. It's also attempting to solve a problem that doesn't exist. Like if I do this: i := 12; j := i; i := 14; I don't expect j to become 14. It's just value type semantics.
  6. David Heffernan

    Array within an array??

    mLabelMatrix[i, j] or if you prefer mLabelMatrix[i][j] as documented in the link I gave you
  7. David Heffernan

    Array within an array??

    That's odd because you already solved the problem properly. Why do you just give up?
  8. David Heffernan

    Array within an array??

    LabelMatrix is a type. You need to declare a variable of that type. Why would you have a dynamic array if the dimensions are known. Also, why 11, 6 if it is 12x7. If it is a fixed size, declare it so. Structured Types (Delphi) - RAD Studio (embarcadero.com)
  9. David Heffernan

    Array within an array??

    It's just a multidimensional array of record. You will need to decide whether it is zero based or one based, but your example above shows a range of at least 13 in the major axis.
  10. David Heffernan

    TaskMessageDlg('.... behind form?

    Start from the actual program and remove things bit by bit. When you remove something and the behaviour changes, that's evidence.
  11. David Heffernan

    TaskMessageDlg('.... behind form?

    It might well be difficult. But unless you are able to debug this yourself what option do you have. In fact if this was my code and I was debugging it, making a minimal reproduction would be how I would tackle it.
  12. David Heffernan

    TaskMessageDlg('.... behind form?

    Can you cut this down to a minimal reproduction
  13. Well, slipstream them in too. You should be able to deliver an environment that has any packages you need.
  14. It's easy to use the Python embedded distribution, basically just a Zip file, and deploy that. You can slipstream modules into it as you please.
  15. David Heffernan

    Freeing Show v ShowModal??

    It was never correct to put it in the same finally as lifetime management. Of course it won't matter if it never throws an exception. But it's basic sound practise not to put multiple unrelated tasks in a finally block.
  16. David Heffernan

    Freeing Show v ShowModal??

    It's quite possible there will be consequences. Impossible to say without knowing what your code looks like. Perhaps there are dependencies that require forms to be destroyed in a particular order. The erroneous finally block where you call that CloseDataSets method as well as destroying a form isn't a great sign.
  17. madExcept works fine a service for me. But if you have JCL Debug working then that's fine. In which case can you get a proper stack trace?
  18. I mean you could just use madExcept and have a proper stack trace for all such occurrences
  19. The try/finally coding in the above is incorrect. It should be: function EncodePDF(const AFileName: string): string; var inStream: TStream; outStream: TStringStream; begin inStream := TFileStream.Create(AFileName, fmOpenRead); try outStream := TStringStream.Create; try TNetEncoding.Base64.Encode(inStream, outStream); Result := outStream.DataString; finally outStream.Free; end; finally inStream.Free; end; end;
  20. David Heffernan

    Inline var not working this time

    I'm not happy. Optional parens means that a symbol like MyFunc can mean either the procedure or the value returned by a call to the procedure. And there are times when that ambiguity can't be resolved by the compiler. Most commonly when MyFunc returns another procedural type. So when you write SomeFunc := MyFunc are you assigning MyFunc or MyFunc() to SomeFunc? It sucks that in Delphi there is this ambiguity. The ambiguity would not exist if () were not optional. Like they aren't in so many other better designed languages.
  21. David Heffernan

    Inline var not working this time

    Clearly a bug. Is there a QP report already. If not submit one. This feature with Delphi where the function call parens can be omitted for parameterless functions was a terrible idea that should never have happened.
  22. David Heffernan

    Inline var not working this time

    Does it compile if you write TestProc()
  23. David Heffernan

    Do you need an ARM64 compiler for Windows?

    Isn't that just recompiling VS with the ARM compiler.
  24. David Heffernan

    Do you need an ARM64 compiler for Windows?

    That makes sense if you write programs that only run on computers that you buy. I write programs that run on computers that other people buy. I suspect that others do likewise. So I'll need a compiler for any architecture that a large number of customers and potential customers use. Whether Windows on ARM64 will fit that description anytime soon, I've no idea.
  25. You should profile your program to find out where the bottleneck is. Human intuition is usually wrong in such matters.
×