Browse Source

* string -> shortstring

Michael VAN CANNEYT 2 years ago
parent
commit
775408b21b
2 changed files with 7 additions and 7 deletions
  1. 2 2
      rtl/inc/dos.inc
  2. 5 5
      rtl/inc/dosh.inc

+ 2 - 2
rtl/inc/dos.inc

@@ -173,7 +173,7 @@ end;
 
 
 
 
 {$IFNDEF HAS_GETSHORTNAME}
 {$IFNDEF HAS_GETSHORTNAME}
-function GetShortName (var P: String): boolean;
+function GetShortName (var P: ShortString): boolean;
 begin
 begin
   GetShortName := true;
   GetShortName := true;
 end;
 end;
@@ -181,7 +181,7 @@ end;
 
 
 
 
 {$IFNDEF HAS_GETLONGNAME}
 {$IFNDEF HAS_GETLONGNAME}
-function GetLongName (var P: String): boolean;
+function GetLongName (var P: ShortString): boolean;
 begin
 begin
   GetLongName := true;
   GetLongName := true;
 end;
 end;

+ 5 - 5
rtl/inc/dosh.inc

@@ -108,16 +108,16 @@ Procedure FindClose(Var f: SearchRec);
 {File}
 {File}
 Procedure GetFAttr(var f; var attr: word);
 Procedure GetFAttr(var f; var attr: word);
 Procedure GetFTime(var f; var time: longint);
 Procedure GetFTime(var f; var time: longint);
-Function  FSearch(path: pathstr; dirlist: string): pathstr;
+Function  FSearch(path: pathstr; dirlist: shortstring): pathstr;
 Function  FExpand(const path: pathstr): pathstr;
 Function  FExpand(const path: pathstr): pathstr;
 Procedure FSplit(path: pathstr; var dir: dirstr; var name: namestr; var ext: extstr);
 Procedure FSplit(path: pathstr; var dir: dirstr; var name: namestr; var ext: extstr);
-function  GetShortName(var p : String) : boolean;
-function  GetLongName(var p : String) : boolean;
+function  GetShortName(var p : ShortString) : boolean;
+function  GetLongName(var p : ShortString) : boolean;
 
 
 {Environment}
 {Environment}
 Function  EnvCount: longint;
 Function  EnvCount: longint;
-Function  EnvStr (Index: longint): string;
-Function  GetEnv(envvar: string): string;
+Function  EnvStr (Index: longint): shortstring;
+Function  GetEnv(envvar: shortstring): shortstring;
 
 
 {Misc}
 {Misc}
 Procedure SetFAttr(var f; attr: word);
 Procedure SetFAttr(var f; attr: word);