diff options
| author | Erich Eckner <git@eckner.net> | 2017-09-01 16:06:20 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2017-09-01 16:06:20 +0200 |
| commit | bb5c53c82761f4a68aeb6f95935eac11b1d77a07 (patch) | |
| tree | ac31b180c198f25c7eeced87edbaa75f7790a22b /matheunit.pas | |
| parent | e27c4eee1cf1aa3d8816dce5d5741959d393b3d1 (diff) | |
| download | units-bb5c53c82761f4a68aeb6f95935eac11b1d77a07.tar.xz | |
matheunit.pas lowlevelunit.pas: diverse Operatoren neu; alles Mögliche auf tInt64Point umgestellt
Diffstat (limited to 'matheunit.pas')
| -rw-r--r-- | matheunit.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/matheunit.pas b/matheunit.pas index 20f6e6b..e9f2a16 100644 --- a/matheunit.pas +++ b/matheunit.pas @@ -51,7 +51,7 @@ function exprToFloat(st: boolean; s: string; kvs: tKnownValues; cbgv: tCallBackG function exprToBool(st: boolean; s: string; kvs: tKnownValues; cbgv: tCallBackGetValue): boolean; function formelnAuswerten(s: string; kvs: tKnownValues; cbgv: tCallBackGetValue): string; function knownValue(nam: string; val: extended): tKnownValue; -function berechneEinheitsZelle(invarianz,modulus: tIntPoint): tIntPoint; +function berechneEinheitsZelle(invarianz,modulus: tInt64Point): tInt64Point; function ggT(a,b: int64): int64; implementation @@ -795,10 +795,10 @@ begin result.value:=val; end; -function berechneEinheitsZelle(invarianz,modulus: tIntPoint): tIntPoint; +function berechneEinheitsZelle(invarianz,modulus: tInt64Point): tInt64Point; var c: char; - fak: tIntPoint; + fak: tInt64Point; verh: tExtPoint; begin for c:='x' to 'y' do begin |