檔案的寫入與寫出 |
尚未結案
|
aaabbbsun
一般會員 發表:3 回覆:2 積分:1 註冊:2004-12-21 發送簡訊給我 |
|
elvis1000
一般會員 發表:6 回覆:50 積分:16 註冊:2004-12-18 發送簡訊給我 |
寫完之後,我覺得此法好做作喔!
procedure TMainForm.Button1Click(Sender: TObject); var f1,f2:TFileStream; b1,b2:byte; w:word; i:integer; begin //check if FileExists('e:\test.txt')=false then exit; //OBJ f1:=TFileStream.Create('e:\test.txt',fmOpenRead); if f1.Size=0 then exit; f2:=TFileStream.Create('e:\new.txt',fmCreate); //reset f1.Position:=0; f2.Position:=0; //檢查大小是否剛好為偶數 if f1.Size mod 2=0 then for i:=0 to (f1.Size div 2)-1 do begin f1.ReadBuffer(b1,1); f1.ReadBuffer(b2,1); w:=b1 b2*256; f2.WriteBuffer(w,2); end//for else begin for i:=0 to (f1.Size div 2)-1 do begin f1.ReadBuffer(b1,1); f1.ReadBuffer(b2,1); w:=b1 b2*256; f2.WriteBuffer(w,2); end;//for f1.ReadBuffer(b1,1); f2.WriteBuffer(b1,1); end;//else //Free f1.Free; f2.Free; end;----------------------- God bless you! I am Dark_Angel.
------
----------------------- God bless you! I am Dark_Angel. |
aaabbbsun
一般會員 發表:3 回覆:2 積分:1 註冊:2004-12-21 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |