Jump to content

Attila Kovacs

Members
  • Content Count

    1930
  • Joined

  • Last visited

  • Days Won

    25

Everything posted by Attila Kovacs

  1. Attila Kovacs

    Delphi and "Use only memory safe languages"

    Doesn't matter. It was an example.
  2. Attila Kovacs

    Delphi and "Use only memory safe languages"

    TStringList has 4 other constructors with parameters. This would just pollute the code and cause traffic jams everywhere.
  3. question is, if dfm's are affected too
  4. Report them as false positive, include the exe.
  5. Attila Kovacs

    Delphi Low-code No-code?

    For those who prefer designing an application visually rather than coding it, this could be useful.
  6. Attila Kovacs

    Delphi 12.1 is available

    sorry, not Sherlock but @Rollo62 https://embt.atlassian.net/servicedesk/customer/portal/1/RSS-441 still laughing? 🙂
  7. Attila Kovacs

    Delphi 12.1 is available

    Thanks Lars, that did the trick indeed. I'm still not satisfied with the new system. It's similar as the "new forum" was = lame AF.
  8. Attila Kovacs

    Delphi 12.1 is available

    well, at the end it's an April Fools' Joke indeed.
  9. Attila Kovacs

    Delphi 12.1 is available

    Is this an April 1 joke?
  10. Attila Kovacs

    Delphi 12.1 is available

    I'm rather concerned about how the multiple windows will interact with older plugins and all of my stuff.
  11. Attila Kovacs

    Delphi 12.1 is available

    Wow, from now on, you can open the same file multiple times. That's going to be interesting.
  12. Attila Kovacs

    Delphi 12.1 is available

    that's quite a list
  13. Attila Kovacs

    Regression - Delphi 12 - IsZero()

    I read something in so from you but I can't find it, it was about the whole rtl float handling is rubbish or something like that. Not sure about the details.
  14. Attila Kovacs

    Regression - Delphi 12 - IsZero()

    You wanted to make your math lib available for the public, back in the days. Still waiting 😛
  15. var c : currency; begin c := Wert * 10; .... should make it calculating the same on all platforms, but I'm AFK at the moment.
  16. I do it this way: function TDSH3Visualizer.GetReplacementValue(const Expression, TypeName, EvalResult: string): string; begin ... if MatchText(TypeName, ['TFInteger', 'TFLargeInt', 'TFBit']) then DefExpr := Expression + '.AsInteger'; ... Eval(DefExpr, '', Result); end; Edit: you can also Eval() private fields like FIsNull FIsUndefind etc. very fast methods are slower, exceptions are very slow in the Eval() function TXYZVisualizer.Eval(const Expr: string; const FormatSpecifiers: string; var EvalResult: string): Boolean; var Done: Boolean; ResultStr: array [0 .. 255] of Char; ResultAddr, ResultSize, ResultVal: LongWord; EvalRes: TOTAEvaluateResult; CanModify: Boolean; begin Result := False; EvalResult := 'XYZ Visualizer error'; repeat Done := True; EvalRes := FCurThread.Evaluate(Expr, @ResultStr, Length(ResultStr), CanModify, eseAll, PAnsiChar(AnsiString(FormatSpecifiers)), ResultAddr, ResultSize, ResultVal, '', 0); case EvalRes of TOTAEvaluateResult.erOK: begin EvalResult := ResultStr; Result := True; end; TOTAEvaluateResult.erDeferred: begin FCompleted := False; FDeferredResult := ''; FNotifierIndex := FCurThread.AddNotifier(Self); try while not FCompleted do FDebugSvcs.ProcessDebugEvents; finally FCurThread.RemoveNotifier(FNotifierIndex); end; FNotifierIndex := -1; if FDeferredResult <> '' then EvalResult := FDeferredResult; Result := True; end; TOTAEvaluateResult.erBusy: begin FDebugSvcs.ProcessDebugEvents; Done := False; end; TOTAEvaluateResult.erError: begin Result := False; end; end; until Done; end;
  17. Attila Kovacs

    Delphi and "Use only memory safe languages"

    As an additional note to this "safety" topic. Just yesterday, it happened to me that the type of a form event parameter was defined under the same name in another unit as well, and the IDE didn't alert me, nor did the form load signal any issues during loading. Thus, the resulting code was completely wrong. The stack got shifted, and the event was returned to a garbage address. Originally, the parameter type was a class which was overridden in the other unit by a record. It was really fun trying to find the problem.
  18. Attila Kovacs

    Assign Null value to date mySQL

    FieldByName('STAT_CLOSED_DATE').Clear;
  19. Attila Kovacs

    wuppdi Welcome Page for Delphi 11 Alexandria?

    It's possible that older IDE's work differently. You can make that button optional if you have some settings already.
  20. Attila Kovacs

    wuppdi Welcome Page for Delphi 11 Alexandria?

    So, I opened 2 IDE's and started opening projects. They are written into the "...BDS\23.0\Closed Projects" key immediately, at opening a project. It would be also possible to load that key into the recent list, with an extra button.
  21. Attila Kovacs

    wuppdi Welcome Page for Delphi 11 Alexandria?

    okay, where do you get the values? "Closed Projects" is written instantly. even on opening the project
  22. Attila Kovacs

    wuppdi Welcome Page for Delphi 11 Alexandria?

    Some ppl. are running multiple IDE's parallel.
  23. Attila Kovacs

    wuppdi Welcome Page for Delphi 11 Alexandria?

    I'd like to propose a function that allows refreshing the recent projects with a button from the registry, as I'm using multiple IDEs. It would be cool.
  24. Attila Kovacs

    Hunting a unit reference

    Of course not, but you should execute a build and not compile it.
  25. Attila Kovacs

    Hunting a unit reference

    or opened in the IDE 😄 Build outside.
×