From f2ffcf55280e2c4d4137451aa84f2c2273377a39 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Thu, 24 Jan 2019 15:46:56 +0100 Subject: lowlevelunit.pas: strToTIntPoint neu --- lowlevelunit.pas | 7 +++++++ 1 file changed, 7 insertions(+) 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']); -- cgit v1.2.3-54-g00ecf