From a1d5f01a91ab90bc6b16ced19bc83d3ae9b12e82 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Wed, 30 Sep 2015 15:42:50 +0200 Subject: alle integer zu longint umbenannt um Klarheit zu schaffen --- Physikunit.pas | 16 ++++++++-------- 1 file 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 -- cgit v1.2.3-54-g00ecf