diff options
| author | Erich Eckner <git@eckner.net> | 2017-10-04 11:21:02 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2017-10-04 11:21:02 +0200 |
| commit | 4aa452377148f9fd3675a4840f3e734d80ec8d84 (patch) | |
| tree | 269bf5d6a1d2e4f00fe2b7e511450d51a43777e9 | |
| parent | 00e331851f237bc8789b457520d394186ceba621 (diff) | |
| download | epost-4aa452377148f9fd3675a4840f3e734d80ec8d84.tar.xz | |
epostunit.pas: schreibeWert nun überladen
| -rw-r--r-- | epostunit.pas | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/epostunit.pas b/epostunit.pas index 1829507..9067e4d 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -182,7 +182,8 @@ type procedure verschiebe(threads: longint; richtung: tInt64Point); procedure ermittlePhasenWinkel(threads: longint; skalierung: extended); procedure fft2dNachbearbeitung(threads: longint; nB: tFFTDatenordnung); - procedure schreibeWert(var f: textfile; x,y: longint); + procedure schreibeWert(var f: textfile; p: tInt64Point); overload; inline; + procedure schreibeWert(var f: textfile; x,y: longint); overload; inline; function exprToFloat(sT: boolean; s: string): extended; function findeMaximum(sT: boolean; f: tMyStringList; threads: longint; warn: tWarnStufe): boolean; function paramsDump: string; @@ -5468,6 +5469,11 @@ begin result:=true; end; +procedure tWerte.schreibeWert(var f: textfile; p: tInt64Point); +begin + schreibeWert(f,p['x'],p['y']); +end; + procedure tWerte.schreibeWert(var f: textfile; x,y: longint); begin case genauigkeit of |