各种文件类型io

文件：

　　1、文本文件

　　2、类型文件

　　3、无类型文件

 

1、

var
  MyTextFile:TextFile;
begin
{$I-}
  AssignFile(MyTextFile,'C:\TextFile.txt');
 // Reset(MyTextFile);  //??
  //Rewrite(MyTextFile);
  append(MyTextFile);
  try

    writeln(MytextFile,'test');
     Flush(MyTextFile);
  except
    ShowMessage('can not write...');
  end;
  closeFile(MyTextFile);

end;

 

2、

 

type
  TPerson=packed record
  Firstname:string[20];
  lastname:string[20];
  age:integer;
  id:integer;
  end;
procedure TForm20.Button2Click(Sender: TObject);
var
  //
  personfile:file of TPerson;
  p,person:TPerson;
begin
  AssignFile(Personfile,'c:\person.dat');
 // Reset(personfile);//无法写文件？？
  rewrite(personfile);
  seek(personfile,filesize(personfile));
  try
    person.Firstname:='tes';
    person.lastname:='sta';
    person.age:=1;
    person.id:=223;
    write(personfile,person);
    finally
    closefile(personfile);
    end;

end;

 

3、

 

var
  untypedfile:file;
  buf:array[0..128] of byte;
  num:integer;
begin
  assignfile(untypedfile,'c:\untypedfile.dat');
  Reset(untypedfile);
  if fileexists('c:\untypedfile.dat') then
    reset(untypedfile)
  else
    rewrite(untypedfile);
    try
    seek(untypedfile,filesize(untypedfile));
    fillchar(buf,sizeof(buf),'Y');
    blockwrite(untypedfile,buf,1,num);
    finally
    closefile(untypedfile);
    end;

end;