summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Physikunit.pas16
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