From 0d494aff96abf1b78b0b15297e7a1c4dcbd3dba2 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 31 Jul 2018 15:33:56 +0200
Subject: Ausgabe vereinfacht - nur ein Leerzeichen als Trenner

---
 romunit.pas | 26 ++++----------------------
 1 file changed, 4 insertions(+), 22 deletions(-)

diff --git a/romunit.pas b/romunit.pas
index cc2a2ef..c3d5db7 100644
--- a/romunit.pas
+++ b/romunit.pas
@@ -271,34 +271,16 @@ end;
 
 procedure writeOutput(nam: string; const dat: tExtPointArray);
 var
-  f:       textfile;
-  i,ml,mr: longint;
-  leer:    string;
-  strings: array of array[boolean] of string;
+  i: longint;
+  f: textfile;
 begin
   if length(dat)=0 then
     exit;
   write(stderr,'Datei '''+nam+''' schreiben ');
   assignfile(f,nam);
   rewrite(f);
-  setlength(strings,length(dat));
-  ml:=0;
-  mr:=0;
-  for i:=0 to length(dat)-1 do begin
-    strings[i,false]:=floattostr(dat[i]['x']);
-    strings[i,true]:=floattostr(dat[i]['y']);
-    ml:=max(ml,length(strings[i,false]));
-    mr:=max(mr,pos('.',strings[i,true]+'.'));
-    if i and 65535 = 0 then
-      write(stderr,'.');
-  end;
-  setlength(leer,ml+mr);
-  fillchar(leer[1],length(leer),' ');
-  for i:=0 to length(dat)-1 do begin
-    writeln(f,strings[i,false]+copy(leer,1,1+ml+mr-length(strings[i,false])-pos('.',strings[i,true]+'.'))+strings[i,true]);
-    if i and 65535 = 0 then
-      write(stderr,'.');
-  end;
+  for i:=0 to length(dat)-1 do
+    writeln(f,floatToStr(dat[i]['x'])+' '+floatToStr(dat[i]['y']));
   closefile(f);
   writeln(stderr,' fertig');
 end;
-- 
cgit v1.2.3-54-g00ecf