Jump to content

Jacek Laskowski

Members
  • Content Count

    63
  • Joined

  • Last visited

Community Reputation

12 Good

About Jacek Laskowski

  • Birthday 08/16/1973

Technical Information

  • Delphi-Version
    Delphi 10.2 Tokyo

Recent Profile Visitors

216 profile views
  1. Jacek Laskowski

    [Firedac] Truncation error on Firebird select query

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

    Delphi compiler need to be opensourced

    fredvs is MSElang developer, I think so.
  3. Jacek Laskowski

    Delphi compiler need to be opensourced

    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.
  4. Jacek Laskowski

    [Firedac] Truncation error on Firebird select query

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

    Class inheritance and hides method

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

    Class inheritance and hides method

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

    Class inheritance and hides method

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

    Class inheritance and hides method

    Of course, override generate other error: [dcc32 Error] E2037 Declaration of 'Terminate' differs from previous declaration
  9. 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.
  10. Jacek Laskowski

    [Firedac] Truncation error on Firebird select query

    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.
  11. Jacek Laskowski

    [Firedac] Truncation error on Firebird select query

    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;
  12. Jacek Laskowski

    [Firedac] Truncation error on Firebird select query

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

    [Firedac] Truncation error on Firebird select query

    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??
  14. Jacek Laskowski

    [Firedac] Truncation error on Firebird select query

    Maybe this is corrected in Rio? Can anyone check it out in Rio?
  15. Jacek Laskowski

    [Firedac] Truncation error on Firebird select query

    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?
×