能不能对文件进行操作？(100分)

对给定目录下的文件（文件具有良好的结构），能不能进行读取（如读取一些字段并返回）操作？
另：怎么实现写日志（往一个txt里写字符串，可以就一两句话)?
谢谢了！

读入结构文件:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TPersonRec = packed record
Name: string[40]; //姓名
BirthDay: TdateTime; //生日
end;
TForm1 = class(TForm)
btnOpenRead: TButton;
BtnWrite: TButton;
Memo1: TMemo;
procedure btnOpenReadClick(Sender: TObject);
procedure BtnWriteClick(Sender: TObject);
private
public
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnOpenReadClick(Sender: TObject);
var
PersonRec: TPersonRec;
DataFile: file of TPersonRec;
i: integer;
begin
//关联文件
AssignFile(DataFile, 'PersonFile.txt');
if not FileExists('PersonFile.txt') then
raise Exception.Create('personFile.txt不存在');
//打开文件
Reset(DataFile);
Memo1.Lines.Clear;
try
i := 1;
while not Eof(DataFile) do
begin
//读到PersonRec记录中
Read(DataFile, PersonRec);
Memo1.Lines.Add('******第' + IntToStr(i) + '条记录********');
Memo1.Lines.Add('姓名： ' + PersonRec.Name);
Memo1.Lines.Add('生日： ' + DateToStr(PersonRec.BirthDay));
i := i + 1;
end;
finally
CloseFile(DataFile);
end;
end;
end.
写日志
var F: TextFile;

begin
AssignFile(F, c:/log.txt');
Rewrite(F);
Writeln(F, 'Just created file with this text in it...');
CloseFile(F);
end;

我是一个初学者：还没有找到实习的公司，所以回答错的不要笑话我啊，众在参与吗。

你可以用memo1来实现啊：

//保存txt文件
procedure TForm1.Button2Click(Sender: TObject);
begin
if savedialog1.Execute then
begin
memo1.Lines.SaveToFile(savedialog1.FileName );
end;
end;

读取txt文件：
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
memo1.Lines.LoadFromFile(opendialog1.FileName );
end;
end;

这样你在试试吧，你也可以把opendialog改为你给定目录。

呵呵，我也不知道你要的是不是这个啊，回答不对不要笑我啊，因为我没有实习过。

谢谢两位!