大家帮我看看这段代码
var
Form1: TForm1;
MyTextFile: TextFile; //声明一个可以引用文本文件的变量
name: String;
sex: String;
age: String;
implementation
{$R *.dfm}
//写入文件
procedure TForm1.Button1Click(Sender: TObject);
begin
name:=edtName.Text;
sex:=edtSex.Text;
age:=edtAge.Text;
AssignFile(MyTextFile,'MyTextFile.txt'); //使文件和变量关键起来
Rewrite(MyTextFile); //创建并打开文件,若文件已存在,则覆盖原有文件
try
Writeln(MyTextFile,name,sex,age);
finally
CloseFile(MyTextFile); //关闭一个打开的文件
end;
end;
//读出文件
procedure TForm1.Button2Click(Sender: TObject);
{var
name:String;
sex:String;
age:String;}
begin
AssignFile(MyTextFile,'MyTextFile.txt');
Reset(MyTextFile);
try
while not Eof(MyTextFile) do
begin
ReadLn(MyTextFile,name,sex,age);
edtname.Text:=name;
edtsex.Text:=sex;
edtage.Text:=age;
end;
finally
CloseFile(MyTextFile);
end;
end;
大家帮我看看,怎么会报这一句:ReadLn(MyTextFile,name,sex,age);一个错啊:[Error] CreateText_pas.pas(68): Left side cannot be assigned to
大家帮忙看看啊!