lowlevelunit.pas: intArrayToStr() neu

1 files changed, 14 insertions, 0 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 3477bf8..b9036e2 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -176,6 +176,7 @@ procedure readAnAndorString(var f: file; out s: string; const len: int64; checkE
 procedure readAnAndorString(var f: file; out s: string; checkEOL: boolean); overload;
 
 procedure splitStrToInt(s: string; out ia: tLongintArray);
+function intArrayToStr(ia: tLongintArray): string;
 function vergleicheStrings(s1,s2: string): integer;
 function pruefSumme(s: string; m: longestOrdinal): longestOrdinal; inline;
 
@@ -1430,6 +1431,19 @@ begin
   end;
 end;
 
+function intArrayToStr(ia: tLongintArray): string;
+var
+  i: longint;
+begin
+  result:='';
+  for i:=0 to length(ia)-1 do begin
+    if i>0 then
+      result:=result + ' ';
+    result:=result + intToStr(ia[i]);
+  end;
+
+end;
+
 function vergleicheStrings(s1,s2: string): integer;
 var
   i: longint;