paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

lconvencoding: simplified using iconvenc, define EnableIconvEnc if you want to use iconvenc

Browse Source 
git-svn-id: trunk@33916 -
This commit is contained in:
mattias 2011-12-02 20:21:18 +00:00
parent 3ec95f8d25
commit d468336cbb
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazutils/lconvencoding.pas
View File

@ -18,15 +18,9 @@ unit LConvEncoding;
interface
{$DEFINE DisableIconv}
{$IFNDEF DisableIconv}
{$IFDEF UNIX}{$IF not defined(VER2_2_0) and not defined(VER2_2_2)}{$DEFINE HasIconvEnc}{$ENDIF}{$ENDIF}
{$ENDIF}
uses
SysUtils, Classes, dos, LazUTF8
{$IFDEF HasIconvEnc},iconvenc{$ENDIF};
{$IFDEF EnableIconvEnc},iconvenc{$ENDIF};
const
EncodingUTF8 = 'utf8';
EncodingAnsi = 'ansi';
@ -6344,7 +6338,7 @@ function ConvertEncoding(const s, FromEncoding, ToEncoding: string): string;
var
AFrom, ATo, SysEnc : String;
Encoded : Boolean;
{$ifdef HasIconvEnc}
{$ifdef EnableIconvEnc}
Dummy: String;
{$endif}
begin
@ -6655,7 +6649,7 @@ begin
end;
Result:=s;
{$ifdef HasIconvEnc}
{$ifdef EnableIconvEnc}
try
if not IconvLibFound and not InitIconv(Dummy) then
begin