diff options
| author | Erich Eckner <git@eckner.net> | 2019-12-13 08:21:19 +0100 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2019-12-13 08:21:19 +0100 |
| commit | cefe43f211b342811dadcd2821a007a22716406c (patch) | |
| tree | 9e24d753822c326eb17c46ea496e1a8aeade6656 | |
| parent | 7ba39c68480a045b3d183920eef6a2e47e5a8844 (diff) | |
| download | epost-cefe43f211b342811dadcd2821a007a22716406c.tar.xz | |
epostunit.pas: weniger strenge Syntaxprüfung beim Lesen von .sif
| -rw-r--r-- | epost.lps | 36 | ||||
| -rw-r--r-- | epostunit.pas | 2 |
2 files changed, 19 insertions, 19 deletions
@@ -24,8 +24,8 @@ <IsPartOfProject Value="True"/> <IsVisibleTab Value="True"/> <EditorIndex Value="2"/> - <TopLine Value="2364"/> - <CursorPos X="106" Y="2378"/> + <TopLine Value="2064"/> + <CursorPos X="47" Y="2080"/> <UsageCount Value="201"/> <Loaded Value="True"/> </Unit2> @@ -288,44 +288,44 @@ <Caret Line="2344" Column="44" TopLine="2336"/> </Position20> <Position21> - <Filename Value="epost.lpr"/> - <Caret Line="259" TopLine="325"/> - </Position21> - <Position22> <Filename Value="../units/lowlevelunit.pas"/> <Caret Line="87" Column="46" TopLine="68"/> + </Position21> + <Position22> + <Filename Value="epostunit.pas"/> + <Caret Line="2788" Column="7" TopLine="2771"/> </Position22> <Position23> <Filename Value="epostunit.pas"/> - <Caret Line="2788" Column="7" TopLine="2771"/> + <Caret Line="7513" TopLine="7497"/> </Position23> <Position24> <Filename Value="epostunit.pas"/> - <Caret Line="7513" TopLine="7497"/> + <Caret Line="2352" TopLine="2335"/> </Position24> <Position25> - <Filename Value="epostunit.pas"/> - <Caret Line="2352" TopLine="2335"/> + <Filename Value="typenunit.pas"/> + <Caret Line="2532" Column="105" TopLine="2526"/> </Position25> <Position26> <Filename Value="typenunit.pas"/> - <Caret Line="2532" Column="105" TopLine="2526"/> + <Caret Line="2270" TopLine="2252"/> </Position26> <Position27> - <Filename Value="typenunit.pas"/> - <Caret Line="2270" TopLine="2252"/> - </Position27> - <Position28> <Filename Value="epostunit.pas"/> <Caret Line="2381" TopLine="2363"/> - </Position28> - <Position29> + </Position27> + <Position28> <Filename Value="typenunit.pas"/> <Caret Line="2177" Column="93" TopLine="2152"/> + </Position28> + <Position29> + <Filename Value="epostunit.pas"/> + <Caret Line="7513" TopLine="7481"/> </Position29> <Position30> <Filename Value="epostunit.pas"/> - <Caret Line="7513" TopLine="7481"/> + <Caret Line="2378" Column="106" TopLine="2364"/> </Position30> </JumpHistory> <RunParams> diff --git a/epostunit.pas b/epostunit.pas index f71172c..d462fe8 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -2077,7 +2077,7 @@ begin readALine(f,s); readALine(f,t); splitStrToInt(s+' '+t,iArr); - if (iArr[0]<>65541) or (iArr[9]<>65538) or (iArr[13]<>1) or (iArr[16]<>0) then begin + if (iArr[0]<>65541) or (iArr[9]<>65538) or (iArr[16]<>0) then begin gibAus('Syntax-Fehler in '''+dateien[i].name+''': inkonsistenter Kopf ('+intToStr(filePos(f))+').',3); closeFile(f); exit; |