|
@@ -268,7 +268,7 @@ function strlen(p:pchar):longint;
|
|
|
|
|
|
|
|
{ Shortstring functions }
|
|
{ Shortstring functions }
|
|
|
{$ifdef ver1_0}
|
|
{$ifdef ver1_0}
|
|
|
-Procedure SetLength (Var S : ShortString; l : Longint);
|
|
|
|
|
|
|
+Procedure SetLength (Var S : ShortString; l : TStrLenInt);
|
|
|
{$endif ver1_0}
|
|
{$endif ver1_0}
|
|
|
Function Copy(const s:shortstring;index:StrLenInt;count:StrLenInt):shortstring;
|
|
Function Copy(const s:shortstring;index:StrLenInt;count:StrLenInt):shortstring;
|
|
|
Procedure Delete(Var s:shortstring;index:StrLenInt;count:StrLenInt);
|
|
Procedure Delete(Var s:shortstring;index:StrLenInt;count:StrLenInt);
|
|
@@ -484,7 +484,10 @@ const
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.6 2000-10-21 18:20:17 florian
|
|
|
|
|
|
|
+ Revision 1.7 2000-10-23 14:00:59 florian
|
|
|
|
|
+ * setlength export declaration for 1.0.2 fixed
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.6 2000/10/21 18:20:17 florian
|
|
|
* a lot of small changes:
|
|
* a lot of small changes:
|
|
|
- setlength is internal
|
|
- setlength is internal
|
|
|
- win32 graph unit extended
|
|
- win32 graph unit extended
|
|
@@ -502,4 +505,4 @@ const
|
|
|
Revision 1.2 2000/07/13 11:33:45 michael
|
|
Revision 1.2 2000/07/13 11:33:45 michael
|
|
|
+ removed logs
|
|
+ removed logs
|
|
|
|
|
|
|
|
-}
|
|
|
|
|
|
|
+}
|
florian