Jump to content

Leif Uneus

Members
  • Content Count

    75
  • Joined

  • Last visited

Everything posted by Leif Uneus

  1. Leif Uneus

    Delphi 11 November Patch

    Same here. I repeatedly closed the Welcome screen and opened it again with no luck. After I restarted the IDE it showed up though. A bug ???
  2. Leif Uneus

    Delphi for ARM

    For native linux ARM support, there is freepascal. See https://wiki.freepascal.org/Lazarus_on_Raspberry_Pi
  3. @dummzeuch and @Rollo62 No matter if you use '123.4' or '123,4'. It gives error in position 4 with a result of 123. Oops, my bad. Indeed when a float is passed, '123.4' results in 123.4 with error = 0, while '123,4' results in 123 with error = 4. There must be an error in the docs: Though one sentence later it says: Which implies that a real type must not be a whole number.
  4. Leif Uneus

    Looking for Spreadsheet component

    Look into Axolot XLSSpreadsheet. Their spreadsheet components have been around a very long time. https://www.axolot.com/xss.htm
  5. Leif Uneus

    Why empty dynamic arrays = NIL?

    Why would you need an excuse to do that. Go for it anyway!
  6. Leif Uneus

    RAD Studio 11 Alexandria is now available

    A faster version of Pos() is finally in place. Thanks @Stefan Glienke for making it happen.
  7. I still find the fastcoders purepascal Pos() faster for 64 bit in this modification: https://stackoverflow.com/a/20947429/576719
  8. Borland filed a lawsuite against Microsoft at the time of Hejlsberg's departure though. See https://www.wsj.com/articles/SB863034062733665000 >Borland Charges Microsoft Stole Away Its Employees
  9. They profile gender, race, age, social and physical variations, education, income. Next step is political preference, sexual preference, previouse convictions, racism.
  10. Leif Uneus

    Delphi WAT of the day

    Ok, yes a warning would be expected!
  11. Leif Uneus

    Delphi WAT of the day

    I don't know what you mean. For sure it gives a range check error.
  12. @Mike Torrettinni If you are looking for a faster Pos() function in 64-bit mode, see https://stackoverflow.com/a/20947429/576719 It is based on Fastcoders purepascal version. Just added some details to make it compile in 64-bit.
  13. Leif Uneus

    Generic set comparer

    Well. there is no secret that LU RD is short for Leif Uneus R&D Manager of Opsis AB, a company that provides analysers and software for industrial and environmental analysis of gases and particulates. A company started 36 years ago by me and my business partner. Core software in the analysers is built with Turbo Pascal 7. Delphi is a tool for our software for data management, analysis and reporting.
  14. Leif Uneus

    Generic set comparer

    You can find a start here: https://stackoverflow.com/a/19524788/576719
  15. Leif Uneus

    Delphi 64bit compiler RTL speedup

    See the question from David at SO, years ago: https://stackoverflow.com/q/9422703/576719
  16. Leif Uneus

    Unfixed bug in Sydney

    As I understand it, the source code of Mitovs libraries can be purchased. I would never rely of a library without the source.
  17. Is it not enough to declare DefaultCW8087 et al. as threadvar?
  18. Leif Uneus

    RTTI in dpr / console app dpr

    Like using the $STRONGLINKTYPES directive? http://docwiki.embarcadero.com/RADStudio/en/Strong_link_types_(Delphi)
  19. Leif Uneus

    RTTI in dpr / console app dpr

    If a class is not used, RTTI information is stripped off by the compiler, See https://stackoverflow.com/q/10613094/576719
  20. Leif Uneus

    Typed constants in Delphi.

    Whether a typed constant is immutable or not is controlled by a compiler switch. See http://docwiki.embarcadero.com/RADStudio/en/Writeable_typed_constants_(Delphi)
  21. Leif Uneus

    Strange behavior for literals

    The type is still extended, but the value will be as a single(0.1) program Project169; {$APPTYPE CONSOLE} uses System.SysUtils, System.TypInfo; type TTypeInfo = class class function ShowTypeInfo<T>(const X: T) : String; end; class function TTypeInfo.ShowTypeInfo<T>(const X: T) : String; var LTypeInfo: PTypeInfo; begin LTypeInfo := TypeInfo(T); Result := LTypeInfo.Name; end; const F1 : Single = 0.1; F2 = Single(0.1); // <- Extended type, with the value of a single 0.1 F3 = Extended(0.1); begin WriteLn(TTypeInfo.ShowTypeInfo(F1):10,':',F1); WriteLn(TTypeInfo.ShowTypeInfo(F2):10,':',F2); WriteLn(TTypeInfo.ShowTypeInfo(F3):10,':',F3); ReadLn; end. Outputs: Single: 1.00000001490116E-0001 Extended: 1.00000001490116E-0001 Extended: 1.00000000000000E-0001
  22. Leif Uneus

    Strange behavior for literals

    @Vandrovnik, Still both F1 and F2 are of type extended.
  23. Leif Uneus

    TStopwatch.Elapsed

    Use StopWatch := TStopWatch.Create to initialize a new TStopWatch value in a stopped condition or StopWatch := TStopWatch.StartNew to return a started stopwatch. See http://docwiki.embarcadero.com/Libraries/Rio/en/System.Diagnostics.TStopwatch.Create
  24. You might be better off with this link to QP: https://quality.embarcadero.com
  25. Leif Uneus

    Revisiting TThreadedQueue and TMonitor

    Sorry @DavidHeffernan, but in the file posted by @pyscript his proposed function InterlockedCompareExchange128 returns a boolean.
×