From f6e3bbf4cdbc0b8e46fae8fa31df5d4f83a73a75 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Sat, 2 Jan 2016 20:31:08 +0100
Subject: Blankenstein-Rosenthal als Bezeichner neu

---
 pegelunit.pas | 26 +++++++++++++-------------
 wetter.lps    | 10 +++++-----
 2 files changed, 18 insertions(+), 18 deletions(-)

diff --git a/pegelunit.pas b/pegelunit.pas
index bfa1d6b..77fb546 100644
--- a/pegelunit.pas
+++ b/pegelunit.pas
@@ -92,19 +92,19 @@ implementation
 uses math, unit1, myStringListUnit, fileUnit;
 
 const
-  pegelStationsNamen: array[tPegelstation] of array[0..1] of string =
-    (('Blankenstein','Blankenstein-Ros.'),
-    ('Kaulsdorf',''),
-    ('Saalfeld-Remschütz',''),
-    ('Rudolstadt',''),
-    ('Rothenstein',''),
-    ('Camburg-Stöben',''),
-    ('Möschlitz',''),
-    ('Probstzella',''),
-    ('Kaulsdorf-Eichicht',''),
-    ('Katzhütte',''),
-    ('Schwarzburg',''),
-    ('Freienorla',''));
+  pegelStationsNamen: array[tPegelstation] of array[0..2] of string =
+    (('Blankenstein','Blankenstein-Ros.','Blankenstein-Rosenthal'),
+    ('Kaulsdorf','',''),
+    ('Saalfeld-Remschütz','',''),
+    ('Rudolstadt','',''),
+    ('Rothenstein','',''),
+    ('Camburg-Stöben','',''),
+    ('Möschlitz','',''),
+    ('Probstzella','',''),
+    ('Kaulsdorf-Eichicht','',''),
+    ('Katzhütte','',''),
+    ('Schwarzburg','',''),
+    ('Freienorla','',''));
   pegelStationsNummern: array[tPegelstation] of extended =
     (57021,57025,57026,57027,57028,57033,57170,57200,57201,57211,57211.5,57240);
   pegelGrenzen: array[tPegelstation,0..3] of longint =
diff --git a/wetter.lps b/wetter.lps
index 01cb752..2fafbe5 100644
--- a/wetter.lps
+++ b/wetter.lps
@@ -18,8 +18,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <IsVisibleTab Value="True"/>
-        <TopLine Value="194"/>
+        <TopLine Value="280"/>
         <CursorPos X="26" Y="201"/>
         <UsageCount Value="59"/>
         <Loaded Value="True"/>
@@ -58,9 +57,10 @@
       </Unit5>
       <Unit6>
         <Filename Value="pegelunit.pas"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="567"/>
-        <CursorPos X="27" Y="578"/>
+        <TopLine Value="478"/>
+        <CursorPos X="64" Y="508"/>
         <UsageCount Value="28"/>
         <Loaded Value="True"/>
       </Unit6>
@@ -134,7 +134,7 @@
         <Filename Value="../units/gitupdateunit.pas"/>
         <EditorIndex Value="1"/>
         <TopLine Value="48"/>
-        <CursorPos X="17" Y="87"/>
+        <CursorPos X="17" Y="49"/>
         <UsageCount Value="10"/>
         <Loaded Value="True"/>
       </Unit16>
-- 
cgit v1.2.3-54-g00ecf