diff options
| author | Erich Eckner <git@eckner.net> | 2015-07-24 13:03:06 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-07-24 13:03:06 +0200 |
| commit | 449c1c5ea2bf739e67ceb63cc59270be5796950f (patch) | |
| tree | 6ae62e9892e537a0b1a772d375bc7f5be9a3ebce | |
| parent | a299d2f8989399f586ee0639b2918acb342af111 (diff) | |
| download | units-449c1c5ea2bf739e67ceb63cc59270be5796950f.tar.xz | |
Einrueckungen in mystringlistunit.pas aufgehuebscht
| -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 |