Vihje: UTF-8 ja vanhat Delphi -versiot

vielä kannattaa muokata unitin alkuosa tällaiseksi:

unit UTF8;

{-----------------------------------------------------------------------------
Unit Name: UTF8
extracted from LibXmlParser
Author: Stefan Heymann (stefan@destructor.de)
Purpose: UTF8 conversion routines (those included in Kylix don't work)
Version: v. 1.0
Licence: "Destructor.de Source code Licence" (DSL)

The official site to get this parser is http://www.destructor.de/

Usage and Distribution of this Source Code is ruled by the
"Destructor.de Source code Licence" (DSL) which comes with this file or
can be downloaded at http://www.destructor.de/

IN SHORT: Usage and distribution of this source code is free.
You use it completely on your own risk

-----------------------------------------------------------------------------}

interface
uses
Classes;

type
UTF8String = type AnsiString;

function Utf8ToAnsi(Source: UTF8String; UnknownChar: char = ' '): AnsiString;
function AnsiToUtf8(Source: AnsiString): UTF8String;

procedure ConvertStringList_UTF8ToAnsi(SL:TStrings);
procedure ConvertStringList_AnsiToUTF8(SL:TStrings);

implementation

procedure ConvertStringList_UTF8ToAnsi(SL:TStrings);
var
i : Integer;

begin
for i := 0 to SL.Count-1 do begin
SL[i] := UTF8ToAnsi(SL[i]);
end;
end;

procedure ConvertStringList_AnsiToUTF8(SL:TStrings);
var
i : Integer;

begin
for i := 0 to SL.Count-1 do begin
SL[i] := AnsiToUTF8(SL[i]);
end;
end;

const
// --- Character Translation Table for Unicode Win-1252


//----- muokkausten loppu -----