變量所需誤差TStream.Write（）

Question

我試圖編譯項目，但我想這個錯誤「變量所需」

function ReadInteger(SomeTStream:TStream):integer; 
    begin 
    SomeTStream.Read(Result, SizeOf(Result)); 
    end; 

Top:=ReadInteger(SomeTStream); 
Left:=ReadInteger(SomeTStream); 
Height:=ReadInteger(SomeTStream); 
Width:=ReadInteger(SomeTStream); 

然後當它試圖寫它停在頂部和左側。

SomeTStream.Write(Top,SizeOf(Top)); 
        ^
SomeTStream.Write(Left,SizeOf(Top));} 
        ^
E2036 Variable required 

我here

瞭解問題但我依然不知道應該做些什麼來解決它。

Answer 1

這是完全一樣的錯誤說。該參數必須是一個變量。但是您傳遞的是使用getter函數實現的屬性。將該屬性複製到一個變量中並將其傳遞給該函數。

var 
    Value: Integer; 
.... 
Value := Top; 
Stream.Write(Value, SizeOf(Value)); 

一些輔助方法在這裏最有用，以避免在鍋爐板中溺水。事實上，你已經爲ReadInteger添加了一個，你只需要一個匹配的WriteInteger。

procedure WriteInteger(Stream: TStream; Value: Integer); 
begin 
    Stream.Write(Value, SizeOf(Value)); 
end; 

---

這是怎麼回事是，TStream的Write方法聲明如下所示：

function Write(const Buffer; Count: Longint): Longint; virtual; abstract; 

因爲這個函數接收一個無類型的參數，它不能按值傳遞。參數的地址實際上是通過的，所以調用者需要提供一個地址。你的財產不符合賬單。

---

順便說一句，通常Write和Read是錯誤的方法來對TStream調用。他們不執行任何錯誤檢查。他們把這件事留給你。 Write和Read是abstract專用類用於提供流實現的方法。您通常預計撥打WriteBuffer和ReadBuffer。

---

或者，也許二進制作家會幫助。

var 
    bw: TBinaryWriter; 
.... 
bw := TBinaryWriter.Create(Stream); 
try 
    bw.Write(Top); 
    bw.Write(Left); 
    // etc. 
finally 
    bw.Free; 
end;