lowlevelunit.pas: tKodierungToStr() neu

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;