diff options
| -rw-r--r-- | epost.lps | 67 | ||||
| -rw-r--r-- | epostunit.pas | 14 |
2 files changed, 33 insertions, 48 deletions
@@ -25,8 +25,8 @@ <IsPartOfProject Value="True"/> <IsVisibleTab Value="True"/> <EditorIndex Value="1"/> - <TopLine Value="2882"/> - <CursorPos X="63" Y="2896"/> + <TopLine Value="1375"/> + <CursorPos X="52" Y="1403"/> <FoldState Value=" T0/Jm$0C1-"/> <UsageCount Value="201"/> <Loaded Value="True"/> @@ -104,7 +104,6 @@ <EditorIndex Value="3"/> <TopLine Value="460"/> <CursorPos X="47" Y="482"/> - <FoldState Value=" T3v2041$"/> <UsageCount Value="21"/> <Loaded Value="True"/> </Unit12> @@ -175,121 +174,121 @@ <JumpHistory Count="30" HistoryIndex="29"> <Position1> <Filename Value="epost.lpr"/> - <Caret Line="58" Column="47" TopLine="19"/> + <Caret Line="13" Column="79"/> </Position1> <Position2> <Filename Value="epost.lpr"/> - <Caret Line="13" Column="79"/> + <Caret Line="55" Column="43" TopLine="35"/> </Position2> <Position3> <Filename Value="epost.lpr"/> - <Caret Line="55" Column="43" TopLine="35"/> + <Caret Line="13" Column="84"/> </Position3> <Position4> <Filename Value="epost.lpr"/> - <Caret Line="13" Column="84"/> + <Caret Line="55" Column="43"/> </Position4> <Position5> <Filename Value="epost.lpr"/> - <Caret Line="55" Column="43"/> + <Caret Line="54" Column="10" TopLine="34"/> </Position5> <Position6> <Filename Value="epost.lpr"/> - <Caret Line="54" Column="10" TopLine="34"/> + <Caret Line="46" TopLine="34"/> </Position6> <Position7> - <Filename Value="epost.lpr"/> - <Caret Line="46" TopLine="34"/> - </Position7> - <Position8> <Filename Value="../units/systemunit.pas"/> <Caret Line="23" Column="43" TopLine="13"/> + </Position7> + <Position8> + <Filename Value="epost.lpr"/> + <Caret Line="50" Column="21" TopLine="40"/> </Position8> <Position9> <Filename Value="epost.lpr"/> - <Caret Line="50" Column="21" TopLine="40"/> + <Caret Line="45" TopLine="32"/> </Position9> <Position10> <Filename Value="epost.lpr"/> - <Caret Line="45" TopLine="32"/> + <Caret Line="193" Column="37" TopLine="75"/> </Position10> <Position11> - <Filename Value="epost.lpr"/> - <Caret Line="193" Column="37" TopLine="75"/> + <Filename Value="epostunit.pas"/> + <Caret Line="356" TopLine="354"/> </Position11> <Position12> <Filename Value="epostunit.pas"/> - <Caret Line="356" TopLine="354"/> + <Caret Line="2130" Column="105" TopLine="2111"/> </Position12> <Position13> <Filename Value="epostunit.pas"/> - <Caret Line="2130" Column="105" TopLine="2111"/> </Position13> <Position14> <Filename Value="epostunit.pas"/> + <Caret Line="136" Column="35" TopLine="104"/> </Position14> <Position15> <Filename Value="epostunit.pas"/> - <Caret Line="136" Column="35" TopLine="104"/> + <Caret Line="2023" Column="41" TopLine="1999"/> </Position15> <Position16> <Filename Value="epostunit.pas"/> - <Caret Line="2023" Column="41" TopLine="1999"/> </Position16> <Position17> <Filename Value="epostunit.pas"/> + <Caret Line="447" TopLine="431"/> </Position17> <Position18> <Filename Value="epostunit.pas"/> - <Caret Line="447" TopLine="431"/> + <Caret Line="457" Column="74" TopLine="431"/> </Position18> <Position19> <Filename Value="epostunit.pas"/> - <Caret Line="457" Column="74" TopLine="431"/> + <Caret Line="508" Column="54" TopLine="490"/> </Position19> <Position20> <Filename Value="epostunit.pas"/> - <Caret Line="508" Column="54" TopLine="490"/> + <Caret Line="2004" TopLine="1971"/> </Position20> <Position21> <Filename Value="epostunit.pas"/> - <Caret Line="2004" TopLine="1971"/> + <Caret Line="2156" TopLine="2128"/> </Position21> <Position22> <Filename Value="epostunit.pas"/> - <Caret Line="2156" TopLine="2128"/> + <Caret Line="2140" Column="47" TopLine="2115"/> </Position22> <Position23> <Filename Value="epostunit.pas"/> - <Caret Line="2140" Column="47" TopLine="2115"/> + <Caret Line="2350" TopLine="2317"/> </Position23> <Position24> <Filename Value="epostunit.pas"/> - <Caret Line="2350" TopLine="2317"/> + <Caret Line="2407" Column="66" TopLine="2386"/> </Position24> <Position25> <Filename Value="epostunit.pas"/> - <Caret Line="2407" Column="66" TopLine="2386"/> + <Caret Line="5766" TopLine="5763"/> </Position25> <Position26> <Filename Value="epostunit.pas"/> - <Caret Line="5766" TopLine="5763"/> + <Caret Line="5770" Column="52" TopLine="5762"/> </Position26> <Position27> <Filename Value="epostunit.pas"/> - <Caret Line="5770" Column="52" TopLine="5762"/> + <Caret Line="5779" Column="52" TopLine="5762"/> </Position27> <Position28> <Filename Value="epostunit.pas"/> - <Caret Line="5779" Column="52" TopLine="5762"/> + <Caret Line="5777" Column="38" TopLine="5759"/> </Position28> <Position29> <Filename Value="epostunit.pas"/> - <Caret Line="5777" Column="38" TopLine="5759"/> + <Caret Line="145" Column="32" TopLine="127"/> </Position29> <Position30> <Filename Value="epostunit.pas"/> - <Caret Line="145" Column="32" TopLine="127"/> + <Caret Line="2891" Column="21" TopLine="2882"/> </Position30> </JumpHistory> </ProjectSession> diff --git a/epostunit.pas b/epostunit.pas index 0ff74a1..d368c09 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -5219,20 +5219,6 @@ begin punkteFastGleich(baustellen[i,'x'],baustellen[i,'y']); end; -procedure dumpStand; -var - i: longint; -begin - writeln('****** dumpStand ******'); - writeln('pOrte: ('+inttostr(lenPO)+')'); - for i:=0 to lenPO-1 do - writeln(inttostr(i)+': '+floattostr(pOrte[i,0])+' -> ('+floattostr(pOrte[i,1])+';'+floattostr(pOrte[i,2])+')'); - writeln('baustellen: ('+inttostr(lenB)+')'); - for i:=0 to lenB-1 do - writeln(inttostr(i)+': '+floattostr(baustellen[i,'x'])+';'+floattostr(baustellen[i,'y'])); - writeln('***********************'); -end; - begin result:=false; xf:=erstesArgument(s,';'); |