From 847951816ec55c7a550eb2a090838dcd51a05421 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Wed, 29 Jul 2015 11:07:30 +0200 Subject: kleine Inkonsistenz bzgl. Transformationen beseitigt --- epost.lps | 104 ++++++++++++++++++++++++++++------------------------------ werteunit.pas | 8 ++--- 2 files changed, 55 insertions(+), 57 deletions(-) diff --git a/epost.lps b/epost.lps index 8dd4acf..90dc277 100644 --- a/epost.lps +++ b/epost.lps @@ -23,9 +23,9 @@ - - - + + + @@ -41,9 +41,9 @@ - - - + + + @@ -66,9 +66,8 @@ - + - @@ -97,121 +96,120 @@ - + - + - - + + - - + + - - + + - + - - + + - - + + - - + + - - + + - - + + - - + - - + + - + + - - + - + + - - + + - - + + - - + + - + - - + + - - + + - + - - + + - - + + - + - diff --git a/werteunit.pas b/werteunit.pas index 720378b..8b6b996 100644 --- a/werteunit.pas +++ b/werteunit.pas @@ -327,8 +327,8 @@ begin end{of Case}; tmpe:=tmpe*dateien[i].groeszenFaktor; if j=0 then params.transformationen.xstart:=tmpe; - if tmpe<>params.xstart then begin - gibAus('Falscher linker Rand in '''+dateien[i].Name+''' im Schritt '+inttostr(j)+', nämlich '+myfloattostr(tmpe)+' statt '+myfloattostr(params.xstart)+'!',3); + if tmpe<>params.transformationen.xstart then begin + gibAus('Falscher linker Rand in '''+dateien[i].Name+''' im Schritt '+inttostr(j)+', nämlich '+myfloattostr(tmpe)+' statt '+myfloattostr(params.transformationen.xstart)+'!',3); close(f); exit; end; @@ -342,8 +342,8 @@ begin end{of Case}; tmpe:=tmpe*dateien[i].groeszenFaktor; if j=0 then params.transformationen.xstop:=tmpe; - if tmpe<>params.xstop then begin - gibAus('Falscher rechter Rand in '''+dateien[i].Name+''' im Schritt '+inttostr(j)+', nämlich '+myfloattostr(tmpe)+' statt '+myfloattostr(params.xstop)+'!',3); + if tmpe<>params.transformationen.xstop then begin + gibAus('Falscher rechter Rand in '''+dateien[i].Name+''' im Schritt '+inttostr(j)+', nämlich '+myfloattostr(tmpe)+' statt '+myfloattostr(params.transformationen.xstop)+'!',3); close(f); exit; end; -- cgit v1.2.3-70-g09d2