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 dll注入x86/x64/win2k~win8.1全可用

Delphi用ado操作数据库完整示例

Delphi实现ftp上传与下载

Delphi 动态创建窗体

Delphi twebbrowser打开paypal出错

Delphi 2009 之 tcategorypanelgroup[3]: color

Delphi 几种程序自杀的方法

Delphi fastreport快速入门

Delphi tms web core 复制内容到剪切板

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

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