delphi文件fileopenfileseek等的用法.docxVIP

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.EmpNo := trim(Edit1.Text); RecEmp.EmpName := trim(Edit2.Text); try //和某个文件建立链接 AssignFile(FileText,d:\sql.txt); //打开一个已经存在的文件 Reset(FileText); last := FileSize(FileText); //将指针移向指定记录 Seek(FileText, last); //写文件 Write(FileText, RecEmp); Edit1.Text := ; Edit2.Text := ; CloseFile(FileText); except ReWrite(FileText); end; end; procedure TForm1.Button2Click(Sender: TObject); begin try AssignFile(FileText,d:\sql.txt); Reset(FileText); while not Eof(FileText) do begin //读文件 Read(FileText, RecEmp); Memo1.Lines.Add(RecEmp.EmpNo + RecEmp.EmpName); end; finally //关闭文件 CloseFile(FileText); end; end; procedure TForm1.Button3Click(Sender: TObject); var iFileHandle: Integer; iFileLength: Integer; iBytesRead: Integer; Buffer: PChar; i: Integer; try //打开一个特定的文件并返回文件句柄 iFileHandle := FileOpen(d:\file.txt, fmOpenRead); begin1; begin 1; begin1; begin 1; 字符 //返回文件共多少个字符 iFileLength := FileSeek(iFileHandle,1,0); //指针指向文件开头 FileSeek(iFileHandle,0,0); Buffer := PChar(AllocMem(iFileLength + 1)); //读取第三个参数的大小到内存 Buffer ，返回读取几个 iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength+1); //关闭文件 FileClose(iFileHandle); with StringGrid1 do begin Cols[1].Text := 姓名; Cols[2].Text := 分数; //设置字体颜色 Canvas.Font.Col