diff options
| -rw-r--r-- | systemunit.pas | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/systemunit.pas b/systemunit.pas index 220ab0f..f9a4b1a 100644 --- a/systemunit.pas +++ b/systemunit.pas @@ -74,8 +74,9 @@ begin end; function belegterSpeicher: int64; -var f: textFile; - s: string; +var + f: textFile; + s: string; begin s:='/proc/'+inttostr(getProcessId)+'/smaps'; result:=0; @@ -95,8 +96,9 @@ begin end; function minCache: int64; -var f: textFile; - s: string; +var + f: textFile; + s: string; begin s:='/proc/cpuinfo'; result:=0; @@ -117,7 +119,8 @@ begin end; function shellSubst(s: string): string; -var name: string; +var + name: string; begin result:=s; while pos('${',result)>0 do begin |