国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

TFileStream和TMemoryStream分別讀取、創建、合并文件

2019-11-06 06:20:06
字體：大 中 小
來源：轉載
供稿：網友
function Tform1.Test;  var  fs:TFileStream;  fs2:TFileStream;  fs3:TFileStream;  str:string;  ms:TMemoryStream;  ms2:TMemoryStream;  sr:TStream;  begin      //TFileStream創建文本文件      str:='文件操作';      fs:=TFileStream.Create('c:/1.txt',fmCreate);      fs.WriteBuffer((PChar(str))^,Length(str));      fs.Free;            //TFileStream讀取文本文件      fs:=TFileStream.Create('c:/1.txt',fmOpenRead);      SetLength(str,fs.size);      fs.ReadBuffer((PChar(str))^,fs.Size);      ShowMessage(str);      fs.Free;        //TFileStream讀取文本文件      ms:=TMemoryStream.Create;      ms.LoadFromFile('c:/1.txt');      SetLength(str,ms.size);      ms.ReadBuffer((PChar(str))^,ms.size);      ms.Free;      ShowMessage(str);        //TMemoryStream創建文本文件      str:='文件操作';      ms:=TMemoryStream.Create;      ms.WriteBuffer((PChar(str))^,Length(str));      ms.SaveToFile('c:/2.txt');      ms.Free;        //TMemoryStream文件合并      ms:=TMemoryStream.Create;      ms.LoadFromFile('c:/1.txt');      ms.Position:=ms.Size;//移動文件指針      ms2:=TMemoryStream.Create;      ms2.LoadFromFile('c:/2.txt');      ms.CopyFrom(ms2,0);      ms.SaveToFile('c:/3.txt');      ms.Free;      ms2.Free;  end;

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 祁阳县| 苗栗市| 都昌县| 静宁县| 安福县| 奉贤区| 青川县| 晋州市| 蓬莱市| 日土县| 沙河市| 四子王旗| 海阳市| 安福县| 霸州市| 阿巴嘎旗| 吕梁市| 宽城| 枣强县| 忻城县| 龙南县| 祁阳县| 宁海县| 昌吉市| 邹平县| 文安县| 怀仁县| 大悟县| 洪湖市| 江门市| 涟源市| 天峨县| 凯里市| 昆明市| 锦屏县| 北京市| 潞城市| 蛟河市| 鱼台县| 商洛市| 肥西县|