delphi文件fileopenfileseek等的用法.docx

想预览更多内容，点击预览全文
点击预览本文档（全文）

申明敬告：

本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己完全接受本站规则且自行承担所有风险，本站不退款、不进行额外附加服务；如果您已付费下载过本站文档，您可以点击这里二次下载

文档介绍

begin

begin

Delphi 文件 FileOpen 、 FileSeek 等的用法

Delphi 文件 FileOpen 、FileSeek 等的用法（红色字体）

2010-04-30 18:00unit Unit1;

interface uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids;

type

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Label2: TLabel;

Button2: TButton;

Button3: TButton;

StringGrid1: TStringGrid;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

end;

//定义记录类型

TRecEmp = record

//需要初始化

EmpNo: String[20];

EmpName: String[30];

end;

var

Form1: TForm1;

RecEmp: TRecEmp;

//定义一个记录类型的文件变量

FileText: file of TRecEmp;

implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);

var last: LongInt;

RecEmp.Em

最近下载