Jacek Laskowski

And I have this flag set to True! Why, then, don't truncate the data to the length of the field?

fredvs is MSElang developer, I think so.

Probably Alek definitely simplifies and exaggerates with ease the entire process of opening and managing sources. However, one thing is certain. Delphi requires quick and bold changes, or else it will drown.

@Dmitry Arefiev Dmitry, take the floor on this, please. Is it working or not?

Thanks, but what if another class inheriting from TFoo needs to be able to control the parameter from outside?

From the base class, TFoo inherits several different classes, just this one child class TBar should always pass True in this parameter.

I know where a warning message comes from. I ask how to solve it correctly for the Terminate method without parameters.

Of course, override generate other error: [dcc32 Error] E2037 Declaration of 'Terminate' differs from previous declaration

I have two classes: TFoo = class procedure Terminate(aNow: Boolean); virtual; end; TBar = class(TFoo) procedure Terminate(); end; procedure TBar.Terminate(); begin inherited Terminate(True); end; but I am getting a warning when compiling: [dcc32 Warning] W1010 Method 'Terminate' hides a virtual method of base type How to correctly declare the Terminate () method? I tried with overload, but it did not help.

I checked the Rio, here the problem also exists. But I also found it: https://quality.embarcadero.com/browse/RSP-16057 And now I don't understand anything.

128 = 32 * 4 where 32 is column size in chars and 4 comes from hardcoded method: function TIBLib.GetBytesPerChar(ACSID: Integer): Integer; var iID: Integer; begin iID := ACSID mod 256; if iID = csIDUnicodeFSS then Result := 3 else if iID = IDUTF8 then Result := 4 <<<------------------ for UTF8 columns else if (FBrand = ibInterbase) and ((iID = csIDUnicodeBE) or (iID = csIDUnicodeLE)) then Result := 2 else Result := 1; end;

See: http://docwiki.embarcadero.com/Libraries/Rio/en/FireDAC.Stan.Option.TFDFormatOptions.StrsTrim2Len citation from doc:

I debug FD and I found suspected place: and DataSize method code: function TIBVariable.GetDataSize: LongWord; begin if FDataSize = 0 then Result := sqllen else Result := FDataSize; end; But why result (sqllen) is 128??

Maybe this is corrected in Rio? Can anyone check it out in Rio?

Correction, Insert does not work either 😕 Before query execution (param value is longer than column size): After F9: Delphi Tokyo, FB 2.5.8. Does the StrsTrim2Len option work at all?