diff options
-rw-r--r-- | lowlevelunit.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lowlevelunit.pas b/lowlevelunit.pas index fbb58cb..139f779 100644 --- a/lowlevelunit.pas +++ b/lowlevelunit.pas @@ -136,6 +136,7 @@ function t2x2ExtendedToStr(p: t2x2Extended): string; function t2x2LongintToStr(p: t2x2Longint): string; function tExtPointToStr(p: tExtPoint): string; function tIntPointToStr(p: tIntPoint): string; +function strToTIntPoint(s: string): tIntPoint; function tInt64PointToStr(p: tInt64Point): string; procedure fehler(s: string); function intPoint(x,y: longint): tIntPoint; @@ -1022,6 +1023,12 @@ begin result:=intToStr(p['x'])+';'+intToStr(p['y']); end; +function strToTIntPoint(s: string): tIntPoint; +begin + result['x']:=strToInt(erstesArgument(s,';')); + result['y']:=strToInt(s); +end; + function tInt64PointToStr(p: tInt64Point): string; begin result:=intToStr(p['x'])+';'+intToStr(p['y']); |