請問TStream的宣告問題 |
|
尚未結案
|
|
lovelypp
初階會員   發表：122 回覆：111 積分：46 註冊：2003-02-19 發送簡訊給我 |
|
|
pgdennis
資深會員 發表：41 回覆：526 積分：443 註冊：2002-05-23 發送簡訊給我 |
我都把它當成array of byte,stream可以從這個array讀資料
也可寫資料進去這個array
例如Tfilestream--->B--->Tmemorystream-->savetofile;
procedure TForm1.Button1Click(Sender: TObject);
var
T:Tfilestream;
T1:Tmemorystream;
B: array[0..1000] of byte;
begin
try
T:=Tfilestream.Create('c:\新增文字文件.txt',fmOpenRead);
T.readBuffer(B,T.Size) ;//寫到buffer T1:=Tmemorystream.Create;
T1.Writebuffer(B,T.Size);//取buffer寫到stream
T1.SaveToFile('c:\1.txt');
finally
T.Free;
T1.Free;
end; end;
------
星期一,二...無窮迴圈＠＠ |
|
syntax
尊榮會員 發表：26 回覆：1139 積分：1258 註冊：2002-04-23 發送簡訊給我 |
(const Buffer; Count: Longint)
指 Buffer 是一個常數變數，其型態～是"未定型態"，由你自己決定要使用的方式，只是你必須在程式內自行轉換管理 ex
var a: Integer call stream.xxx(const a; ~~); procedure streamxxx(~~);
var
b: Integer; begin b := Integer(a) <----- 自己轉換管理 end; 可以將其視為 Pointer 型態，只是這不是正確的，因為就算其確實是 Pointer 的運作方式，但是在編譯器眼中其是未定型態
|
發表時間：2004-11-01 12:26:29
IP:218.104.xxx.xxx 未訂閱
系統時間：2024-11-25 8:33:55
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |