paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 23:33:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

iconvtable: updated

Browse Source 
git-svn-id: trunk@36444 -
This commit is contained in:
mattias 2012-03-30 08:19:07 +00:00
parent b626af08a0
commit 4359f97587
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tools/iconvtable.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="7"/>
<Version Value="9"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
@ -10,11 +10,13 @@
</Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -29,7 +31,7 @@
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
<PackageName Value="LazUtils"/>
</Item1>
</RequiredPackages>
<Units Count="1">
@ -41,7 +43,7 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>

5
tools/iconvtable.pas
View File

@ -15,14 +15,15 @@
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
Example:
ppc386 -gl -Fu../lcl/units/i386-linux/ iconvtable.pas && ./iconvtable CP1250 UTF-8
./iconvtable CP1250 UTF-8
./iconvtable CP1250 UTF-8
}
program iconvtable;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, Unix, LCLProc, FileUtil;
Classes, SysUtils, Unix, LazUTF8, FileUtil;
var
Table: array[0..255] of shortstring;