From 2fd3fe7404cdaf41b898d2e830ec970c0e073eac Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Fri, 3 Jul 2020 11:30:00 +0200 Subject: lowlevelunit.pas: intArrayToStr() neu --- lowlevelunit.pas | 14 ++++++++++++++ 1 file changed, 14 insertions(+) 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; -- cgit v1.2.3-54-g00ecf