homogenisiere Grosz-Klein-Schreibung

1 files changed, 5 insertions, 5 deletions

diff --git a/lesethreadunit.pas b/lesethreadunit.pas
index 1f78201..1d7f4d8 100644
--- a/lesethreadunit.pas
+++ b/lesethreadunit.pas
@@ -73,24 +73,24 @@ procedure tLeseProzess.fuelleVorrat;
 var
   s:     string;
   len,i: longint;
-  f:     textfile;
+  f:     textFile;
 const
   maxLen = 1024*1024;
 begin
   while (_anzahl<sollVorrat) and (prozess.output.numBytesAvailable>0) do begin
-    setlength(s,min(maxLen,prozess.output.numBytesAvailable));
+    setLength(s,min(maxLen,prozess.output.numBytesAvailable));
     len:=prozess.output.read(s[1],length(s));
     for i:=1 to len do
       _anzahl:=_anzahl+byte(s[i]=#10);
     puffer:=puffer+copy(s,1,len);
     if _kopie<>'' then begin
-      assignfile(f,_kopie);
-      if not fileexists(_kopie) then
+      assignFile(f,_kopie);
+      if not fileExists(_kopie) then
         rewrite(f)
       else
         append(f);
       write(f,copy(s,1,len));
-      closefile(f);
+      closeFile(f);
     end;
   end;
 end;