procedure TForm1.Button11Click(Sender: TObject);
var
name: string[6];
age: Word;
birthday: TDate;
fvar:TextFile; //声明文本文件变量
f: string;
begin
f:='f:\test\Test.txt';
AssignFile(fvar, f);
Reset(fvar);
Readln(fvar,name,age,birthday);
Memo1.Clear;
Memo1.Lines.Add(name);
Memo1.Lines.Add(IntToStr(age));
Memo1.Lines.Add(DateToStr(birthday));
CloseFile(fvar);
{读取结果:
菜花
18
1989-12-23
}
//其实这样的东西应该用类型文件操作更合适, 但如果有这样的文本文件让你读取呢?
end;
转载于:https://www.cnblogs.com/keyvip/archive/2010/11/14/1876983.html