diff options
-rw-r--r-- | lowlevelunit.pas | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lowlevelunit.pas b/lowlevelunit.pas index 26f3e29..d26775e 100644 --- a/lowlevelunit.pas +++ b/lowlevelunit.pas @@ -103,6 +103,7 @@ function myIntToStr(i,dg: longint): string; overload; function myIntToStr(i,dg: longint; fill: string): string; overload; function max(g1,g2: tGenauigkeit): tGenauigkeit; inline; overload; function wertGroesze(g: tGenauigkeit): longint; +function tKodierungToStr(k: tKodierung): string; function floatToStrTrunc(f: extended; dig: longint; laessig: boolean): string; function binOpPos(op: char; s: string): integer; @@ -640,6 +641,18 @@ begin end; end; +function tKodierungToStr(k: tKodierung): string; +begin + case k of + kUnbekannt: + result:='kUnbekannt'; + k32BitSignedInteger: + result:='k32BitSignedInteger'; + else + result:='NONE'; + end{of Case}; +end; + // allgemeine Funktionen ******************************************************* function floatToStrTrunc(f: extended; dig: longint; laessig: boolean): string; |