From aa8b6f02374c5aac70d87b711bb367ea869543e7 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Wed, 31 Jul 2002 11:46:35 +0000
Subject: [PATCH] MG: fixed bytetype

git-svn-id: trunk@1804 -
---
 lcl/lresources.pp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lcl/lresources.pp b/lcl/lresources.pp
index 3e936f62f9..62ff11a58f 100644
--- a/lcl/lresources.pp
+++ b/lcl/lresources.pp
@@ -798,6 +798,19 @@ end;
 
 { TDelphiWriter }
 
+{ MultiByte Character Set (MBCS) byte type }
+type
+  TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte);
+
+function ByteType(const S: string; Index: Integer): TMbcsByteType;
+begin
+  Result := mbSingleByte;
+  { ToDo:
+    if SysLocale.FarEast then
+      Result := ByteTypeTest(PChar(S), Index-1);
+  }
+end;
+
 constructor TDelphiWriter.Create(Stream: TStream);
 begin
   FStream:=Stream;