More string type fixes

[lcore.git] / lcore.pas

diff --git a/lcore.pas b/lcore.pas
index d0fc5686a88848574676f7d36972a598b734e57b..0f6eaef5025a5cbf3a9b8db87bf33b047108c24e 100755 (executable)
--- a/lcore.pas
+++ b/lcore.pas
@@ -48,19 +48,6 @@ interface
     absoloutemaxs:integer=0;\r
 \r
   type\r
     absoloutemaxs:integer=0;\r
 \r
   type\r

-    {$IF CompilerVersion >= 20.0}\r
-      { Delphi 2009/2010 widestring is the default string type }\r
-      thostname = ansistring;\r
-      tbufferstring = ansistring;\r
-      tipstring = ansistring;\r
-    {$else}\r
-      { Old pre-unicode delphi, todo: need to check if ansistring is available\r
-        in all older versions of delphi }\r
-      thostname = string;\r
-      tbufferstring = string;\r
-      tipstring = string;\r
-    {$ifend}\r
-\r

     {$ifdef ver1_0}\r
       sigset= array[0..31] of longint;\r
     {$endif}\r
     {$ifdef ver1_0}\r
       sigset= array[0..31] of longint;\r
     {$endif}\r