homogenisiere Grosz-Klein-Schreibung

1 files changed, 16 insertions, 16 deletions

diff --git a/protokollunit.pas b/protokollunit.pas
index cb8961d..f03f4bc 100644
--- a/protokollunit.pas
+++ b/protokollunit.pas
@@ -8,8 +8,8 @@ uses
   Classes, SysUtils;
 
 type
-  tProtokolldatei = record
-    datei:       textfile;
+  tProtokollDatei = record
+    datei:       textFile;
     einrueckung: longint;
   end;
 
@@ -17,12 +17,12 @@ type
 
   tProtokollant = class(TObject)
   private
-    sDat:   ^tProtokolldatei;
+    sDat:   ^tProtokollDatei;
     bes:    string;
     kinder: array of tProtokollant;
     elter:  tProtokollant;
   public
-    constructor create(dateiname: string); overload;
+    constructor create(dateiName: string); overload;
     constructor create(elter_: tProtokollant; besitzer: string); overload;
     destructor destroy; override;
     procedure destroyall;
@@ -36,17 +36,17 @@ implementation
 
 { tProtokollant }
 
-constructor tProtokollant.create(dateiname: string);
+constructor tProtokollant.create(dateiName: string);
 begin
   inherited create;
-  getmem(sDat,sizeof(tProtokolldatei));
+  getMem(sDat,sizeOf(tProtokollDatei));
   sDat^.einrueckung:=10;
-  assignfile(sDat^.datei,dateiname);
-  if fileexists(dateiname) then
-    deleteFile(dateiname);
+  assignFile(sDat^.datei,dateiName);
+  if fileExists(dateiName) then
+    deleteFile(dateiName);
   rewrite(sDat^.datei);
   bes:='';
-  setlength(kinder,0);
+  setLength(kinder,0);
   elter:=nil;
 end;
 
@@ -54,10 +54,10 @@ constructor tProtokollant.create(elter_: tProtokollant; besitzer: string);
 begin
   inherited create;
   sDat:=elter_.sDat;
-  setlength(elter_.kinder,length(elter_.kinder)+1);
+  setLength(elter_.kinder,length(elter_.kinder)+1);
   elter_.kinder[length(elter_.kinder)-1]:=self;
   elter:=elter_;
-  setlength(kinder,0);
+  setLength(kinder,0);
   bes:=elter.bes+'.'+besitzer;
   if pos('.',bes)=1 then delete(bes,1,1);
   if length(bes)+4 > sDat^.einrueckung then
@@ -82,18 +82,18 @@ begin
       elter.kinder[i-1]:=elter.kinder[i];
       inc(i);
     end;
-    setlength(elter.kinder,length(elter.kinder)-1);
+    setLength(elter.kinder,length(elter.kinder)-1);
   end
   else begin
-    closefile(sDat^.datei);
-    freemem(sDat,sizeof(tProtokolldatei));
+    closeFile(sDat^.datei);
+    freeMem(sDat,sizeOf(tProtokollDatei));
   end;
   inherited destroy;
 end;
 
 procedure tProtokollant.destroyall;
 begin
-  if Assigned(elter) then elter.destroyall
+  if assigned(elter) then elter.destroyall
   else destroy;
 end;