Delphi函数AssignFile使用

本文整理自网络，侵删。

  procedure TForm1.Button1Click(Sender: TObject);
var
F:file of char ;
S:array[1..11] of char;
i:integer;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
Reset(F);
Seek(F,16);
for i:=1 to 11 do
Read(F, S[i]); { Read first line of file }
Edit1.Text := S;
for i:=1 to 11 do
Write(F,S[i]);
CloseFile(F);
end;
end;


 

相关阅读 >>

Delphi开发获取文件md5值

Delphi字符串旋转任意角度

Delphi high 返回数组下标的最大值

Delphi 获取当天是星期几，计算两个日期相隔时间

Delphi 实现文件上传下载

Delphi xe7的android应用取得wi-fi的信息

最简单的Delphi程序(控制台)

Delphi 显示选择文件夹对话框 (有新建按钮)

Delphi实现win10下Delphi 10.3.1 inline hook 修改mac网卡地址之getadaptersaddresses

Delphi动态建立panel无法更改颜色?

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi函数AssignFile使用