diff options
| author | Erich Eckner <git@eckner.net> | 2016-03-30 15:58:42 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2016-03-30 16:08:31 +0200 |
| commit | 9ea0d3b427b7cb2d1371ed36e2760a00ca8d270a (patch) | |
| tree | 2dfd21caa06912b24fdddbf58ef7640ef8e49b3b | |
| parent | 238e18a5ce087c3b2940722bda86b39a95a44065 (diff) | |
| download | epost-9ea0d3b427b7cb2d1371ed36e2760a00ca8d270a.tar.xz | |
neue Überladung von kont2disk in epostunit.pas
| -rw-r--r-- | epostunit.pas | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/epostunit.pas b/epostunit.pas index 42c7151..d25dcfb 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -113,7 +113,8 @@ type function xscale: extended; function tscale: extended; function dichtenParameterErkannt(st: boolean; s: string; threads,xmin,xmax,tmin,tmax: longint): boolean; - function kont2disk(dir: char; x: extended): longint; + function kont2disk(senkrecht: boolean; x: extended): longint; overload; inline; + function kont2disk(dir: char; x: extended): longint; overload; function kont2diskFak(senkrecht: boolean; x: extended): extended; overload; inline; function kont2diskFak(dir: char; x: extended): extended; overload; function disk2kont(dir: char; x: longint): extended; @@ -1604,6 +1605,11 @@ begin result:=false; end; +function tWerte.kont2disk(senkrecht: boolean; x: extended): longint; +begin + result:=kont2disk(char(ord('x')+byte(senkrecht)),x); +end; + function tWerte.kont2disk(dir: char; x: extended): longint; begin case dir of |