alle integer zu longint umbenannt um Klarheit zu schaffen

1 files changed, 8 insertions, 8 deletions

diff --git a/Physikunit.pas b/Physikunit.pas
index 68ad65d..c35c239 100644
--- a/Physikunit.pas
+++ b/Physikunit.pas
@@ -345,8 +345,8 @@ begin
   assignfile(datei,pre+'-'+inttostr(nNum)+suf);
   inc(nNum);
   rewrite(datei,1);
-  blockwrite(datei,nNum,sizeof(integer));
-  blockwrite(datei,zeitAnz,sizeof(integer));
+  blockwrite(datei,nNum,sizeof(longint));
+  blockwrite(datei,zeitAnz,sizeof(longint));
   closefile(datei);
 end;
 
@@ -368,11 +368,11 @@ begin
   sX:=cX+(cnt-1)*sDX;
 
   inc(tCnt);
-  if bufLen-bufPos < sizeof(integer) + (2+cnt)*sizeof(double) then
-    schreibeBuffer(sizeof(integer) + (2+cnt)*sizeof(double));
+  if bufLen-bufPos < sizeof(longint) + (2+cnt)*sizeof(double) then
+    schreibeBuffer(sizeof(longint) + (2+cnt)*sizeof(double));
 
-  if bufLen-bufPos < sizeof(integer) + (2+cnt)*sizeof(double) then begin
-    pro.schreibe('Schreibbuffer ist zu klein ('+inttostr(bufLen)+' statt mindestens '+inttostr(sizeof(integer) + (2+cnt)*sizeof(double))+' Bytes)!');
+  if bufLen-bufPos < sizeof(longint) + (2+cnt)*sizeof(double) then begin
+    pro.schreibe('Schreibbuffer ist zu klein ('+inttostr(bufLen)+' statt mindestens '+inttostr(sizeof(longint) + (2+cnt)*sizeof(double))+' Bytes)!');
     pro.destroyall;
     halt(1);
   end;
@@ -381,8 +381,8 @@ begin
   inc(bufPos,sizeof(double));
   move(sX,(buf+bufPos)^,sizeof(double));
   inc(bufPos,sizeof(double));
-  move(cnt,(buf+bufPos)^,sizeof(integer));
-  inc(bufPos,sizeof(integer));
+  move(cnt,(buf+bufPos)^,sizeof(longint));
+  inc(bufPos,sizeof(longint));
 
   sX:=cX-Min(gitter.dX,sDX)/2;
   case wasSpeichern of