t2x2ExtendedToStr neu in lowlevelunit.pas

1 files changed, 8 insertions, 0 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index e7be518..a113835 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -75,6 +75,7 @@ function trimAll(s: string): string;
 function erstesArgument(var s: string): string; overload; inline;
 function erstesArgument(var s: string; Trenner: string): string; overload; inline;
 function mydatetimetostr(t: tDateTime): string;
+function t2x2ExtendedToStr(p: t2x2Extended): string;
 function tExtPointToStr(p: tExtPoint): string;
 function tIntPointToStr(p: tIntPoint): string;
 procedure fehler(s: string);
@@ -597,6 +598,13 @@ begin
  result:=formatDateTime('YYYY.MM.DD_hh.mm.ss',t);
 end;
 
+function t2x2ExtendedToStr(p: t2x2Extended): string;
+begin
+ result:=
+   floattostr(p['x','x'])+' .. '+floattostr(p['x','y'])+' x '+
+   floattostr(p['y','x'])+' .. '+floattostr(p['y','y']);
+end;
+
 function tExtPointToStr(p: tExtPoint): string;
 begin
  result:=floattostr(p['x'])+';'+floattostr(p['y']);