Jump to content

Lajos Juhász

Members
  • Content Count

    212
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Lajos Juhász

  1. Lajos Juhász

    Install Delphi Rad 10.3 on new workstation

    Add the folder where the runtime package is to the path.
  2. Lajos Juhász

    Install Delphi Rad 10.3 on new workstation

    It's the same as any other source. You do it in the same way as your own source. You should post what errors you get than we can try to help you.
  3. Lajos Juhász

    Simple JSON parsing

    You're missing not in the if statement (you would like to continue in case when the JSON is correct): var Text: string; Command: string; JsonValue: TJSONValue; JsonValueArg: TJSONValue; begin // parse json JSONValue := TJSONObject.ParseJSONValue('{"cmd":"program.add.text", "txt":"for I := 0 to 100 do"}'); if not (JSONValue is TJSONObject) then Exit; // gets command type (in Command I've found the "cmd" value "program.add.text". ALL RIGHT!!!) if not JSONValue.TryGetValue('cmd', Command) then Exit; // gets command argument txt (does not found the "txt" value and program EXITS!!!) if not JSONValue.TryGetValue('txt', Text) then Exit;  //...
  4. Lajos Juhász

    Parnassus Bookmarks for Delphi 11 Alexandria?

    David Millington gave an update at the DelphiCon 2021. They are working on it: HighDPI + IDE integration delayed the publishing.
  5. Lajos Juhász

    CustomTitleBar bug

    This is a bug in Delphi 10.4. It's working as far as I can test in Delphi 11 (unfortunately the release date of the Community Edition is still unknown). On the other hand there are another bugs in Delphi 11 with custom title bars.
  6. Lajos Juhász

    Has anyone tried "DelphiLSP" for Visual Studio Code yet?

    I didn't tested Visual Studio Code. It uses the same thing. From Delphi 11 unfortunately only the LSP based code completion is available and it's not good enough (capable only to handle Hello World applications).
  7. Lajos Juhász

    10.4.2 Keeps Crashing/Hanging

    I don't use that so no idea. Tried for fun in Delphi 11 to select an instance and hit Search - Find class first time I got: System.AccessViolationException: Attempted to read or write protected memory. This is often an indication that other memory is corrupt.
  8. Lajos Juhász

    Delphi/FireDAC and Firebird 4

    It was strange that on live panel at an Embarcadero event there was nobody to represent Embarcadero (just to answer technical questions).
  9. Lajos Juhász

    Delphi/FireDAC and Firebird 4

    https://docwiki.embarcadero.com/Status/en/FireDAC_Database_Support Delphi 11 supports: v 1.5 - 3.0
  10. Lajos Juhász

    Bookmarks dead?

    Ok, at DelphiCon2021 David Millington answered that the bookmarks are coming soon, besides the HDPI issue they are working how it will be integrated in the IDE (whatever that means).
  11. Lajos Juhász

    Bookmarks dead?

    First they have to resolve the bugs in the HDPI code in the VCL. I hope that they will resolve some issues in the update 1. *Can someone move the HDPI discussion into a new thread as we are discussing a bit different topic?
  12. You could easily debug and optimize this code. Calling zip.FileNames in the loop is very unhealthy as it will construct the list for every iteration. var lFileNames: TArray<string>; begin var vZipContents := TStringList.Create; var Zip := TZipFile.Create; try if TZipFile.IsValid(fZipfileName) then begin Zip.Open(fZipfileName, zmRead); lFileNames := Zip.FileNames; for var I := Low(lFileNames) to High(lFileNames) do begin vZipContents.Add(lFileNames[I]); end; Memo1.Lines := vZipContents; end; finally Zip.Free; vZipContents.Free; end; end; *(Edit: of course in this code there is no benefit to use vZipContents it would be better to use Memo1.Lines.BeginUpdate and Memo1.Lines.EndUpdate and insert the file names directly to the memo.)
  13. Lajos Juhász

    Bookmarks dead?

    Marco Cantu already mentioned it DelphiCon 2021 on Tuesday that they're working both on the IDE and VCL as they discovered some issues with highDPI (without any details of course).
  14. Lajos Juhász

    Windows 11 checkbox and radio button color

    Most probably every application (I saw Windows 11 on YT videos and https://docs.microsoft.com/en-us/windows/apps/design/controls/checkbox).
  15. Lajos Juhász

    Width of GroupBox on inherited form changes to default in Delphi 11

    It is a known issue set Scaled property to true (on the form). When scaled is false Delphi in some cases ignores the width/height properties. Welcome to the way how Delphi is managing high DPI. Btw. you should report this as far as I known there is no report with Scaled false and TGroupbox.
  16. Lajos Juhász

    Avoiding use of BPLs

    This should fail for exe as since Delphi 7 it can be only used in packages or dlls not executables.
  17. Lajos Juhász

    Why does the form size change? (Delphi 11)

    There is an open RSP for this.
  18. Lajos Juhász

    Why does the form size change? (Delphi 11)

  19. Saves you from declaring the type when it's working (eg. Currency).
  20. program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; begin try { TODO -oUser -cConsole Main : Insert code here } var x:=5; inc(x, DayOfWeek(now)); writeln(x); if x<5 then {break point here} writeln('x<5') else writeln('x>=5'); readln; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end. The debugger will say: 'Symbol was eliminated by linker'. In my opinion it's still not solved in debug configuration. I am still going to wait for fully implemented inline variables.
  21. Lajos Juhász

    FDTable filter problem

    If you've the source of FireDAC you can debug FireDAC.Stan.Expr there are 4 cases when this exception is raised.
  22. Lajos Juhász

    Is it bug? (type inference)

    You can test it for yourself: function GetCurrency: Currency; begin Result := 8.52; end; var A: Currency; C: double; D: extended; begin A := GetCurrency; var B := GetCurrency(); // 2 C:=GetCurrency; D:=GetCurrency; if A = B then WriteLn('A = B') else WriteLn('A <> B'); if B = C then WriteLn('B = C') else WriteLn('B <> C'); if B = D then WriteLn('B = D') else WriteLn('B <> D'); ReadLn; end. The result is: A <> B B <> C B = D
  23. Lajos Juhász

    FDTable filter problem

    I read that, unfortunately I have no access to your working environment I can only confirm what's working at my side. I do not have D10.2.3 to test, tried with XE5 it's also working without a problem there.
  24. Lajos Juhász

    FDTable filter problem

    Which Delphi version. I've never used TFDTable but tested successfully in D11 the code: ProjectsFDTable.Filter:='Category =' +QuotedStr('Tools'); ProjectsFDTable.Filtered:=true; It's working.
  25. Lajos Juhász

    Pos, SplitString

    Of course you can parse the statements, however for a stored procedure call you must have a list of procedures that returns cursors.
×