diff options
| -rw-r--r-- | Physikunit.pas | 16 |
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 |