帕斯卡爾 - 神祕的領域增加

Question

我正在寫一個自定義的結構處理程序，我有以下幾種類型：

type 
StrLen = 0..MaxLen; 
Str = ^StrInst; 

StrInst = record 
length: StrLen; 
data: array [StrPos] of char; 
end; 

然後我有以下程序：

procedure ReadStr(var S: Str); 
var pos: StrLen; 
begin 
     S^.length:=0; 
     pos := 0; 
     writeln('pos before entering:',pos); 
     writeln; 
     with S^ do begin 
     repeat 
       Inc(pos); 
       Read(data[pos]); 
     until (ord(data[pos]) = 13) or (pos > MaxLen+1); 
     writeln('pos after entering:',pos); 
     length := pos-1; 
     end; 
end; 

問題是，當我讀入該類型的第二個對象時，pos變量，從而長度字段，正在得到一個神祕的增加1.下面的代碼

個

ReadStr(S1); 
ReadStr(S2); 

輸出（在這兩種情況下，當我輸入 '123'）：

pos before entering:0 
123 
pos after entering:4 

pos before entering:0 
123 
pos after entering:5 

會很gladful，如果有人清除的情況對我來說。先謝謝你。

Answer 1

你錯過了一些可能相關的程序部分。特別是，如果這是在Windows上（取決於你如何閱讀文件），你可能在第二個字符串中有一個額外的字符，因爲你停在一個CR而不處理下面的LF。