diff options
author | Erich Eckner <git@eckner.net> | 2020-06-23 13:55:18 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2020-06-23 13:55:18 +0200 |
commit | 2b3381a31612aac1f088535346ee207aa2d7f9e7 (patch) | |
tree | af0efd9735df8a8aa10802ea68640cab98fc13dc | |
parent | 14c6df8f7bb70879cd7cddbfc3ada104a0e2a237 (diff) | |
download | FH-Wetter-2b3381a31612aac1f088535346ee207aa2d7f9e7.tar.xz |
do not inline anything - "internal error 200510032"
-rw-r--r-- | fhunit.pas | 40 | ||||
-rw-r--r-- | pegelunit.pas | 4 | ||||
-rw-r--r-- | wetter.lps | 140 |
3 files changed, 86 insertions, 98 deletions
@@ -23,41 +23,41 @@ type _mZeit: tZeit; _uZeit: extended; _mW: tMessWerte; - procedure setzeUZeit; inline; - procedure setzeZeit; inline; - function rMW(mG: tMessGroesze): extended; inline; + procedure setzeUZeit; + procedure setzeZeit; + function rMW(mG: tMessGroesze): extended; public constructor create; destructor destroy; override; - function lade(s: string): boolean; inline; - function schreibe: string; inline; + function lade(s: string): boolean; + function schreibe: string; property zeit: extended read _uZeit; property mW[mG: tMessGroesze]: extended read rMW; - procedure dump(p: pExtended); inline; - procedure pmud(p: pExtended); inline; - function size: longint; inline; + procedure dump(p: pExtended); + procedure pmud(p: pExtended); + function size: longint; end; tMessPunkteListe = class private inhalt: tFPList; - function rItem(i: longint): tMessPunkt; inline; - function bisekt(zeit: extended): longint; inline; + function rItem(i: longint): tMessPunkt; + function bisekt(zeit: extended): longint; public constructor create; destructor destroy; override; - function add(s: string): boolean; inline; - function append(s: string): boolean; inline; + function add(s: string): boolean; + function append(s: string): boolean; function last: tMessPunkt; function count: longint; property items[i: longint]: tMessPunkt read rItem; default; function minMaxY(startZeit,stopZeit: extended): tMessWerteExtPoints; - procedure dump(p: pointer); inline; - procedure pmud(p: pointer; version,len: longint); inline; - function size: longint; inline; + procedure dump(p: pointer); + procedure pmud(p: pointer; version,len: longint); + function size: longint; end; tMessPunkteUpdateThread = class(tThread) @@ -70,7 +70,7 @@ type nZeit: extended; _tNum,_tAnz: longint; procedure uebernehmen; - procedure nZeitNullen; inline; + procedure nZeitNullen; public beenden: boolean; constructor create(besitzer: tMessPunkte; tNum,tAnz: longint); @@ -99,8 +99,8 @@ type function mehrInfos(was: tMessGroeszenSet): string; end; -procedure uZeit2mZeit(uZ: extended; out mZ: tZeit); inline; -procedure mZeit2uZeit(mZ: tZeit; out uZ: extended); inline; +procedure uZeit2mZeit(uZ: extended; out mZ: tZeit); +procedure mZeit2uZeit(mZ: tZeit; out uZ: extended); function strZuMZeit(s: string; out mZ: tZeit): boolean; const @@ -735,7 +735,7 @@ end; // allgemeine Funktionen ******************************************************* -procedure uZeit2mZeit(uZ: extended; out mZ: tZeit); inline; +procedure uZeit2mZeit(uZ: extended; out mZ: tZeit); var mi,se,hu: word; begin @@ -744,7 +744,7 @@ begin mZ[zgMin10]:=round(mi/10); end; -procedure mZeit2uZeit(mZ: tZeit; out uZ: extended); inline; +procedure mZeit2uZeit(mZ: tZeit; out uZ: extended); begin uZ:= encodeDate(mZ[zgJahr],mZ[zgMonat],mZ[zgTag])+ diff --git a/pegelunit.pas b/pegelunit.pas index d047236..9accaa8 100644 --- a/pegelunit.pas +++ b/pegelunit.pas @@ -22,8 +22,8 @@ type _zeit: tPegelZeit; _uZeit: extended; _hoehe: longint; - procedure setzeUZeit; inline; - procedure setzeZeit; inline; + procedure setzeUZeit; + procedure setzeZeit; public constructor create; destructor destroy; override; @@ -7,9 +7,10 @@ <Unit0> <Filename Value="wetter.lpr"/> <IsPartOfProject Value="True"/> - <EditorIndex Value="-1"/> - <CursorPos X="12" Y="6"/> + <EditorIndex Value="1"/> + <CursorPos Y="17"/> <UsageCount Value="60"/> + <Loaded Value="True"/> </Unit0> <Unit1> <Filename Value="unit1.pas"/> @@ -18,9 +19,8 @@ <HasResources Value="True"/> <ResourceBaseClass Value="Form"/> <UnitName Value="Unit1"/> - <IsVisibleTab Value="True"/> <TopLine Value="160"/> - <CursorPos Y="193"/> + <CursorPos X="25" Y="177"/> <UsageCount Value="60"/> <Loaded Value="True"/> <LoadedDesigner Value="True"/> @@ -34,18 +34,19 @@ <Unit3> <Filename Value="fhunit.pas"/> <IsPartOfProject Value="True"/> - <EditorIndex Value="3"/> - <TopLine Value="504"/> - <CursorPos X="30" Y="540"/> + <IsVisibleTab Value="True"/> + <EditorIndex Value="2"/> + <TopLine Value="721"/> + <CursorPos X="53" Y="749"/> <UsageCount Value="60"/> <Loaded Value="True"/> </Unit3> <Unit4> <Filename Value="../units/fileunit.pas"/> <IsPartOfProject Value="True"/> - <EditorIndex Value="4"/> - <TopLine Value="108"/> - <CursorPos X="62" Y="128"/> + <EditorIndex Value="5"/> + <TopLine Value="5"/> + <CursorPos X="77" Y="30"/> <UsageCount Value="29"/> <Loaded Value="True"/> </Unit4> @@ -58,9 +59,8 @@ </Unit5> <Unit6> <Filename Value="pegelunit.pas"/> - <EditorIndex Value="5"/> - <TopLine Value="415"/> - <CursorPos X="64" Y="636"/> + <EditorIndex Value="6"/> + <CursorPos X="26" Y="26"/> <UsageCount Value="29"/> <Loaded Value="True"/> </Unit6> @@ -73,7 +73,7 @@ </Unit7> <Unit8> <Filename Value="wetter.konf"/> - <EditorIndex Value="2"/> + <EditorIndex Value="4"/> <CursorPos X="35" Y="3"/> <UsageCount Value="29"/> <Loaded Value="True"/> @@ -132,128 +132,116 @@ </Unit15> <Unit16> <Filename Value="../units/gitupdateunit.pas"/> - <EditorIndex Value="1"/> - <TopLine Value="44"/> + <EditorIndex Value="3"/> + <TopLine Value="43"/> <CursorPos X="17" Y="43"/> <UsageCount Value="11"/> <Loaded Value="True"/> </Unit16> </Units> - <JumpHistory Count="29" HistoryIndex="28"> + <JumpHistory Count="26" HistoryIndex="25"> <Position1> - <Filename Value="fhunit.pas"/> - <Caret Line="89" Column="22" TopLine="67"/> + <Filename Value="pegelunit.pas"/> + <Caret Line="633" Column="58" TopLine="597"/> </Position1> <Position2> - <Filename Value="fhunit.pas"/> - <Caret Line="387" Column="33" TopLine="351"/> + <Filename Value="pegelunit.pas"/> + <Caret Line="635" Column="54" TopLine="599"/> </Position2> <Position3> - <Filename Value="pegelunit.pas"/> - <Caret Line="479" Column="50" TopLine="460"/> + <Filename Value="unit1.pas"/> + <Caret Line="177" Column="25" TopLine="160"/> </Position3> <Position4> <Filename Value="pegelunit.pas"/> + <Caret Line="622" Column="5" TopLine="606"/> </Position4> <Position5> - <Filename Value="pegelunit.pas"/> - <Caret Line="81" Column="23" TopLine="45"/> + <Filename Value="../units/fileunit.pas"/> + <Caret Line="30" Column="77" TopLine="5"/> </Position5> <Position6> <Filename Value="pegelunit.pas"/> - <Caret Line="359" Column="21" TopLine="323"/> + <Caret Line="622" Column="5" TopLine="606"/> </Position6> <Position7> - <Filename Value="unit1.pas"/> + <Filename Value="pegelunit.pas"/> </Position7> <Position8> - <Filename Value="unit1.pas"/> - <Caret Line="19" Column="42"/> + <Filename Value="pegelunit.pas"/> + <Caret Line="25" Column="27"/> </Position8> <Position9> <Filename Value="unit1.pas"/> - <Caret Line="33" Column="10"/> + <Caret Line="177" Column="25" TopLine="160"/> </Position9> <Position10> - <Filename Value="unit1.pas"/> - <Caret Line="96" Column="8" TopLine="82"/> + <Filename Value="fhunit.pas"/> + <Caret Line="58" Column="33" TopLine="41"/> </Position10> <Position11> - <Filename Value="unit1.pas"/> - <Caret Line="119" Column="18" TopLine="102"/> + <Filename Value="fhunit.pas"/> </Position11> <Position12> - <Filename Value="unit1.pas"/> - <Caret Line="136" TopLine="111"/> + <Filename Value="fhunit.pas"/> + <Caret Line="26" Column="27"/> </Position12> <Position13> - <Filename Value="pegelunit.pas"/> - <Caret Line="82" Column="20" TopLine="61"/> + <Filename Value="fhunit.pas"/> + <Caret Line="27" Column="26"/> </Position13> <Position14> - <Filename Value="pegelunit.pas"/> - <Caret Line="583" Column="68" TopLine="544"/> + <Filename Value="fhunit.pas"/> + <Caret Line="32" Column="40" TopLine="4"/> </Position14> <Position15> - <Filename Value="pegelunit.pas"/> - <Caret Line="54" Column="15" TopLine="32"/> + <Filename Value="fhunit.pas"/> + <Caret Line="38" Column="35" TopLine="10"/> </Position15> <Position16> - <Filename Value="pegelunit.pas"/> - <Caret Line="35" Column="19" TopLine="26"/> + <Filename Value="fhunit.pas"/> + <Caret Line="39" Column="35" TopLine="11"/> </Position16> <Position17> - <Filename Value="pegelunit.pas"/> - <Caret Line="54" Column="19" TopLine="25"/> + <Filename Value="fhunit.pas"/> + <Caret Line="40" Column="29" TopLine="12"/> </Position17> <Position18> - <Filename Value="unit1.pas"/> - <Caret Line="136" TopLine="111"/> + <Filename Value="fhunit.pas"/> + <Caret Line="46" Column="45" TopLine="18"/> </Position18> <Position19> - <Filename Value="pegelunit.pas"/> - <Caret Line="82" Column="20" TopLine="61"/> + <Filename Value="fhunit.pas"/> + <Caret Line="47" Column="47" TopLine="19"/> </Position19> <Position20> - <Filename Value="pegelunit.pas"/> - <Caret Line="570" Column="46" TopLine="513"/> + <Filename Value="fhunit.pas"/> + <Caret Line="51" Column="39" TopLine="23"/> </Position20> <Position21> - <Filename Value="unit1.pas"/> - <Caret Line="136" TopLine="111"/> + <Filename Value="fhunit.pas"/> + <Caret Line="52" Column="42" TopLine="24"/> </Position21> <Position22> - <Filename Value="pegelunit.pas"/> - <Caret Line="82" Column="15" TopLine="61"/> + <Filename Value="fhunit.pas"/> + <Caret Line="59" Column="55" TopLine="31"/> </Position22> <Position23> - <Filename Value="pegelunit.pas"/> - <Caret Line="36" Column="38" TopLine="13"/> + <Filename Value="fhunit.pas"/> + <Caret Line="73" Column="28" TopLine="45"/> </Position23> <Position24> - <Filename Value="pegelunit.pas"/> - <Caret Line="82" Column="20" TopLine="46"/> + <Filename Value="fhunit.pas"/> + <Caret Line="102" Column="53" TopLine="74"/> </Position24> <Position25> - <Filename Value="pegelunit.pas"/> - <Caret Line="113" Column="68" TopLine="107"/> + <Filename Value="fhunit.pas"/> + <Caret Line="103" Column="53" TopLine="75"/> </Position25> <Position26> - <Filename Value="pegelunit.pas"/> - <Caret Line="110" Column="15" TopLine="102"/> + <Filename Value="fhunit.pas"/> + <Caret Line="740" Column="53" TopLine="712"/> </Position26> - <Position27> - <Filename Value="pegelunit.pas"/> - <Caret Line="632" Column="20" TopLine="597"/> - </Position27> - <Position28> - <Filename Value="pegelunit.pas"/> - <Caret Line="633" Column="58" TopLine="597"/> - </Position28> - <Position29> - <Filename Value="pegelunit.pas"/> - <Caret Line="635" Column="54" TopLine="599"/> - </Position29> </JumpHistory> <RunParams> <FormatVersion Value="2"/> |