Jump to content

Kryvich

Members
  • Content Count

    439
  • Joined

  • Last visited

  • Days Won

    8

Posts posted by Kryvich


  1. According to the probability theory, there is a 1/19 770 609 664 chance that on the next try you will get the desired 6-letter word. So the fact that after 400 billion attempts it has not been received looks suspicious, but not impossible. (19 770 609 664 = 52*52*52*52*52*52).

     

    By the way, here are the probabilities of finding a word with fewer characters:

    1-letter word: 1/52,

    2-letter word: 1/2 704,

    3-letter word: 1/140 608,

    4-letter word: 1/7 311 616,

    5-letter word: 1/380 204 032,

    6-letter word: 1/19 770 609 664.

    • Like 1

  2. @emailx45 Yes, I can reproduce in VirtualBox 6.1 with Windows 10 and Delphi 10.4.2 installed. 

     

    Error: Invalid Class Typecast. Details:

    Quote

    [21386672]{vclide270.bpl} GDIPlus.GradientTabs.TGradientButton.FormDPI (Line 358, "GDIPlus.GradientTabs.pas" + 1) + $F
    [5005A496]{rtl270.bpl  } System.ErrorAt (Line 5781, "System.pas" + 3) + $4
    [5005FFD3]{rtl270.bpl  } System.@AsClass (Line 18460, "System.pas" + 3) + $5
    [21386672]{vclide270.bpl} GDIPlus.GradientTabs.TGradientButton.FormDPI (Line 358, "GDIPlus.GradientTabs.pas" + 1) + $F
    [21386BC6]{vclide270.bpl} GDIPlus.GradientTabs.TScrollerButton.PaintLeftArrow (Line 520, "GDIPlus.GradientTabs.pas" + 3) + $2
    [21386B85]{vclide270.bpl} GDIPlus.GradientTabs.TScrollerButton.Paint (Line 508, "GDIPlus.GradientTabs.pas" + 3) + $2
    [50D01E19]{vcl270.bpl  } Vcl.Controls.TGraphicControl.WMPaint (Line 14009, "Vcl.Controls.pas" + 7) + $5
    [50CF7172]{vcl270.bpl  } Vcl.Controls.TControl.WndProc (Line 7480, "Vcl.Controls.pas" + 91) + $6
    [50CF6DAC]{vcl270.bpl  } Vcl.Controls.TControl.Perform (Line 7258, "Vcl.Controls.pas" + 10) + $8
    [50CFC56E]{vcl270.bpl  } Vcl.Controls.TWinControl.PaintControls (Line 10582, "Vcl.Controls.pas" + 27) + $D
    [50CFC36B]{vcl270.bpl  } Vcl.Controls.TWinControl.PaintHandler (Line 10528, "Vcl.Controls.pas" + 24) + $8
    [50CFCBF4]{vcl270.bpl  } Vcl.Controls.TWinControl.WMPaint (Line 10711, "Vcl.Controls.pas" + 6) + $5
    [50D02BC1]{vcl270.bpl  } Vcl.Controls.TCustomControl.WMPaint (Line 14385, "Vcl.Controls.pas" + 2) + $4
    [50CF7172]{vcl270.bpl  } Vcl.Controls.TControl.WndProc (Line 7480, "Vcl.Controls.pas" + 91) + $6
    [50CF8C36]{vcl270.bpl  } Vcl.Controls.TControl.GetStyleName (Line 8510, "Vcl.Controls.pas" + 1) + $8
    [50CF8C56]{vcl270.bpl  } Vcl.Controls.TControl.GetStyleName (Line 8512, "Vcl.Controls.pas" + 3) + $7
    [5005A240]{rtl270.bpl  } System.@GetMem (Line 4843, "System.pas" + 20) + $0
    [50061E56]{rtl270.bpl  } System.@NewUnicodeString (Line 25659, "System.pas" + 10) + $0
    [500622F1]{rtl270.bpl  } System.@UStrAsg (Line 26649, "System.pas" + 19) + $0
    [5005A25C]{rtl270.bpl  } System.@FreeMem (Line 4891, "System.pas" + 20) + $0
    [50061F75]{rtl270.bpl  } System.@UStrArrayClr (Line 26028, "System.pas" + 16) + $0
    [50CF8D13]{vcl270.bpl  } Vcl.Controls.TControl.IsCustomStyleActive (Line 8526, "Vcl.Controls.pas" + 😎 + $15
    [50CFC0C7]{vcl270.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10424, "Vcl.Controls.pas" + 169) + $6
    [50CFB614]{vcl270.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 10113, "Vcl.Controls.pas" + 3) + $6
    [501826A4]{rtl270.bpl  } System.Classes.StdWndProc (Line 18175, "System.Classes.pas" + 😎 + $0
    [50E5C233]{vcl270.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 11028, "Vcl.Forms.pas" + 23) + $1
    [50E5C276]{vcl270.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 11058, "Vcl.Forms.pas" + 1) + $4
    [50E5C5AD]{vcl270.bpl  } Vcl.Forms.TApplication.Run (Line 11196, "Vcl.Forms.pas" + 26) + $3
    [00524DB8]{bds.exe     } bds.bds (Line 222, "" + 13) + $2

    Though I never used this view in modern IDEs. Palette Tool window is more convenient on modern wide displays.


  3. I have clear.cmd file in my project folders to remove any temporary files, which contains the command:

    del /f /s *.~* *.bak *.dcu *.identcache *.local *.map *.drc *.cbk *.stat *.tds

     

×