文件壓縮功能它們來自哪裏

Question

此代碼使用：TArchiveEntry;
那麼，我真的懷疑這不是來自Zlib單位？因爲TArchiveEntry可以使用沒有聲明Zlib單位。

var AE : TArchiveEntry; 

AE.EntryType := aeFile; 
AE.FileNameLen := Length(sr.Name); 
AE.FileLength := sr.Size; 
OutStream.Write(AE, SizeOf(AE)); 
OutStream.Write(sr.Name[1], Length(sr.Name)); 
// Write the file itself 
TmpStream := TFileStream.Create(ADir + sr.Name, fmOpenRead or fmShareDenyWrite); 
OutStream.CopyFrom(TmpStream, TmpStream.Size); 
TmpStream.Free; 

這是的Zlib股，毫無疑問。

var compr : TZCompressionStream; 

for i := 0 to zFiles.Count-1 do 
begin 
    compr := TZCompressionStream.Create(mStream, zcDefault); 
    compr.CopyFrom(infile,c); 
    compr.Free; 
end; 

我不知道爲什麼，有什麼區別？我無法弄清楚，幾乎都有同樣的表現。

Answer 1

System.ZLib單位（或System.Zip單位，對此）沒有TArchiveEntry類型。第一代碼片段顯示您是代碼從舊的新聞組定義片段上方自身的TArchiveEntry類型直接複製/粘貼複製：

Re: How to use ZLib to zip up a folder in Delphi 2005???

Answer 2

這個問題似乎是：

如何確定符號在哪個單元中定義？

編譯完項目後，將光標懸停在該符號上，IDE將顯示一個提示，命名符號被定義的單元。

或者，使用CTRL +單擊以打開在編輯器中聲明符號的單位。