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里面判断一个字符串在另一个字符串中出现的次数

Delphi arp攻击代码

Delphi代码中嵌入asm代码

Delphi 时间耗时统计

Delphi 消息实现窗口最小化，最大化，关闭(Delphi)

Delphi中showmodal 和 show 的区别

Delphi在字符串中删除指定字符串

Delphixe win7、mssql2000、udl

minsperday：一天中有多少分钟

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

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

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