Leaderboard

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.

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?

Actually, they are not that magic:

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

result := ExtractPythonObjectFrom(Red);

Thanks, on my list to investigate, might be a couple of weeks. Angus

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?

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.

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.

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