lowlevelunit.pas: strToTIntPoint neu

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']);