diff options
Diffstat (limited to 'pegelunit.pas')
-rw-r--r-- | pegelunit.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/pegelunit.pas b/pegelunit.pas index 033ea3d..f5951b6 100644 --- a/pegelunit.pas +++ b/pegelunit.pas @@ -78,6 +78,7 @@ type procedure achsenZeichnen(zuZeichnen: tPegelStationsSet; startZeit,stopZeit: extended); procedure graphenZeichnen(zuZeichnen: tPegelStationsSet; startZeit,stopZeit: extended); procedure putBeenden; + function hintInfo: string; end; implementation @@ -548,5 +549,10 @@ begin put.beenden:=true; end; +function tPegelStaende.hintInfo: string; +begin + result:=inttostr(werte[psRothenstein].last.hoehe)+'cm'; +end; + end. |