Jump to content

Leaderboard


Popular Content

Showing content with the highest reputation on 03/28/24 in all areas

  1. Remy Lebeau

    Bugs - where to write to fix it?

    In case anyone is not already aware of this https://quality.embarcadero.com is now in a permanent read-only mode. A new system is being implemented, but has not been opened to the public yet. So, if you do have a legit bug/feature to report, feel free to post it in a public forum, or write to Embarcadero directly, and someone who has internal access to the new system can open tickets for you until the new system is ready for public use.
  2. Uwe Raabe

    Regression - Delphi 12 - IsZero()

    I beg to differ here. The approach is to have a decent epsilon when no one is given. It doesn't prohibit anyone to give an epsilon appropriate to the current scenario. The default values currently used actually cover a common beginner's mistake assuming that floats can be compared for exact equality. Usually the IsZero implementation works pretty good for the majority of the cases - at least those I encountered myself. Perhaps you just never stumbled about code using them appropriately?
  3. Uwe Raabe

    Regression - Delphi 12 - IsZero()

    Actually, they are not that magic:
  4. David Heffernan

    Regression - Delphi 12 - IsZero()

    The best way to deal with this is never to call any of these functions in the first place, they are all useless
  5. pyscripter

    Using Delphi enum in Python

    result := ExtractPythonObjectFrom(Red);
  6. Thanks, on my list to investigate, might be a couple of weeks. Angus
  7. Uwe Raabe

    Regression - Delphi 12 - IsZero()

    As far as I can see there are no changes in the implementation. Also a quick console example shows no regression. Can you please provide the source for your test case to verify? BTW, could it be only a problem with Watch Variables?
  8. I'm not sure if that is what you are after: Dataset Enumerator Reloaded. The current location for the unit described in that article is now on GitHub as part of my CmonLib library: https://github.com/UweRaabe/CmonLib/blob/main/source/Cmon.DataSetHelper.pas The code allows to retrieve the current record of a dataset either as a record or a class. The record example shown in the article requires the declaration of a record type [DBFields(mapAuto)] TEmployee = record EmpNo: Integer; LastName: string; FirstName: string; PhoneExt: string; HireDate: TDateTime; Salary: Double; end; With that you can retrieve the data of the current dataset record like this: var Employee: TEmployee; begin { Show the employee's name and the hire date. } Employee := QuEmployee.GetCurrentRec<TEmployee>; ShowMessage(Format('%s %s was hired on %s', [Employee.FirstName, Employee.LastName, FormatDateTime('dddddd', Employee.HireDate)])); end; The article also has another example using a class instead of a record.
  9. programmerdelphi2k

    Bugs - where to write to fix it?

    you can create yourself "helpers" too... if the class/type dont have it... Vcl.Grids, Vcl.StdCtrls; type TSGMyHelper = class helper for TStringGrid type TMyHack = class(TStringGrid); procedure MyRowMove(IdxFrom, IdxTo: integer); end; TForm1 = class(TForm) StringGrid1: TStringGrid; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TSGMyHelper } procedure TSGMyHelper.MyRowMove(IdxFrom, IdxTo: integer); begin TMyHack(Self).RowMoved(IdxFrom, IdxTo); end; { Form1 } procedure TForm1.FormCreate(Sender: TObject); begin for var i: integer := 0 to (StringGrid1.RowCount - 1) do StringGrid1.Cells[1, i] := 'hello ' + i.ToString; end; procedure TForm1.Button1Click(Sender: TObject); begin StringGrid1.MyRowMove(3, 1); end; end.
  10. Attila Kovacs

    Bugs - where to write to fix it?

    As we have learned from other highly qualified individuals, VCL has not been abandoned; rather, it was completed a long time ago.
×