0006607: Please remove unnnecessary IFDEFs in JvGnugettext - Project JEDI

Project JEDI - Issue Tracker

Viewing Issue Simple Details [ Jump to Notes ]

[ View Advanced ] [ Issue History ] [ Print ]

Category

Severity

Reproducibility

Date Submitted

Last Update

0006607

[JEDI VCL] 00 JVCL Components

feature

always

2017-12-24 13:25

Reporter

pyscripter

View Status

public

Assigned To

Priority

normal

Resolution

open

Status

new

Product Version

Daily / GIT

Summary

0006607: Please remove unnnecessary IFDEFs in JvGnugettext

Description

In JvGnugettext there are about 70 lines of IFDEFs such as the following:
{$ifdef VER200}
  // Delphi 2009 with Unicode
  {$DEFINE DELPHI2009OROLDER}
{$endif}

which are not only unnecessary but confusing.

For example in TGnuGettextInstance.TranslateStrings we have the code:

        {$ifdef DELPHI2009OROLDER}
        if Assigned(slAsTStringList) then begin
          originalOwnsObjects := slAsTStringList.OwnsObjects;
          slAsTStringList.OwnsObjects := False;
        end;
        {$endif}

In fact DELPHI2009OROLDER actually means Delphi 2009 or newer!

Since the unit includes JEDI.inc, the above can be replaced with DELPHI12_UP etc.

Additional Information

Issue History
Date Modified	Username	Field	Change
2017-12-24 13:25	pyscripter	New Issue

Relationships