Stano

For Firebird First Day of The Date: SELECT CAST(:DATA AS DATE) - EXTRACT(DAY FROM CAST(:DATA AS DATE)) + 1 FROM RDB$DATABASE LAST DAY OF THE DATE: SELECT CAST(:DATA AS DATE) - EXTRACT(DAY FROM CAST(:DATA AS DATE)) + 32 - EXTRACT(DAY FROM (CAST(:DATA AS DATE) - EXTRACT(DAY FROM CAST(:DATA AS DATE)) + 32)) FROM RDB$DATABASE

OT: There is also "unwanted" optimization. My fresh case. Writing to JSON file. Item by item. For 86 items, it was over 7 seconds. It made me act. So I edited it and I write all the items at once. I realized that when I close the form, I go through it and write it to JSON. So he took advantage of the change, and had everything written down at once. I don't have to wait for the form to close at once. It's immediate In debug mode. I couldn't figure out why the forms were closing for so long.

google translate plugin?

I'm trying to create a class that returns different types of components. Specifically, it is a TMS TDBxxSource for TDBPlanner. All are descendants of TDBItems. Use for example in SpinEdit, which would serve all TDBxxSource. There is a separate SpinEdit for each TDBxxSource. I only want one OnClick event for them. The class must return, according to the index, the specific TDBxxSource. Not TDBItems, because I would have to cast it in OnClick. This is nonsense. The class would lose its meaning. Example of use procedure TfrmPlannerRole.advsedDayScaleChange(Sender: TObject); var SpinEdit: TAdvSpinEdit; begin SpinEdit := TAdvSpinEdit(Sender); MyClass.DBSource(5).VariousTypes := SpinEdit.Value; end; Originally at https://forum.delphi.cz/index.php/topic,17355.0.html There is silence.

I tried to do it. I had a problem that I always needed a different component. I solve it using case .. of. In a separate class.

Even those who know Slovak did not understand I already have a solution. The topic is closed to me. Thank you all for your willingness to help me.

I have several events that are identical in content. I only use a different component there every time. In the example, I have dbmlmnsrMultiMonth. And I want to use this event for other components that do the same thing. Only with another dbxxx. . So now I have 10 x SpineditxxxChange. And I want a single SpineditxxxChange event! Every time I need to get the right dbxxx component there.

I'm just guessing that instead of Sum () you want to have the product AAA.QTY * AAA-1.QTY

Well thank you. I was hoping to do it with some trick.

MyClass - is my class I want to create DBSource - some method with parameter (AIndex: Integer). According to the parameter returns for example TSpinEdit, TPanel ...

procedure TfrmPlannerRole.advsedDayScaleChange(Sender: TObject); var SpinEdit: TAdvSpinEdit; begin SpinEdit := TAdvSpinEdit(Sender); MyClass.DBSource(5).Top := SpinEdit.Value; // TPanel end; procedure TfrmPlannerRole.advsedDayScaleChange(Sender: TObject); var SpinEdit: TAdvSpinEdit; begin SpinEdit := TAdvSpinEdit(Sender); MyClass.DBSource(3).Value := SpinEdit.Value; // TSpinEdit end; Perhaps the examples will explain.

I'm aware of that. Even that it always has to be only one kind / type! That's why I used the term "components" to indicate what I really want. It should always be returned to a different type.

I use a desktop with or without an MMX display. Quite often, MMX is displayed even if it is not to be. First image is OK, second is wrong. Win10 64, D 10.4.1

MMX window will appear in Design when using the "Copy Selected Component`s name fo Clipboard" button.

Compilers generally try very hard if they find a bug. Then they don't know when to stop. D10.4 has made significant progress in this direction. The number of reported errors is several orders of magnitude lower. Even so, it is recommended to believe only the first mistake and ignore the others. I wouldn't make it a science.

Could you give it a rest with the formatting? Your posts are hard enough to tolerate without it. Highlighting important parts is fine. Even pictures! But using a large font for almost the whole topic is no longer okay.

I assume that reference integrity is defined in the DB. I think AV is the wrong term used. Each correct DB raises an exception, not an AV, in the event of an integrity violation, which must be handled. I know two basic ways to deal with emptying tables. 1. Empty tables from the lowest level to the next. In terms of referential integrity 2. Use DeleteCascade when defining reference integrity.

For what? I use one scheme.

I am convinced that tbl1660.Active: = true; and company is completely useless. If you need to update the table, use Refresh. But not where Adocommand is

He probably has corrupted color vision.

The rest of the user interface can also be customized. It's just more work. Background, font ... I remembered trying it. It didn't suit me. The dark theme suits me perfectly. My eyes don't complain.

Um, the basic rule: always check the input arguments! This is from a wise book

I used the Delphi IDE Theme Editor until they added a dark theme to Delphi. They allegedly implemented it in Delphi. Well thank you

Yes. I can't get to that. It will help me decide whether to go for it. I don't see Gross Green anywhere.

Green literally heals the eyes. Please take a screenshot and drop here. I don't know how to get to the Grass Green background. Well thank you. I saw the best color rendering in the black and white era. They were French monitors. The base was brown-yellow and the font yellow. It was a pleasure to look at them.