diff options
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 |