摘要：
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(fv... 阅读全文
摘要：
procedure TForm1.Button10Click(Sender: TObject);var name: string[6]; age: Word; birthday: TDate; fvar:TextFile; //声明文本文件变量 f: string;begin f:='f:\test\Test.txt'; AssignFile(fvar, f); Rewrite(... 阅读全文
摘要：
procedure TForm1.Button9Click(Sender: TObject);var name: string[8]; address: string[16]; fvar:TextFile; //声明文本文件变量 f: string;begin f:='f:\test\Test.txt'; AssignFile(fvar, f); Reset(fvar); Mem... 阅读全文
摘要：
//这个过程级函数的功能是: 用空格把 s 凑够 n 的长度function AddSpace(s: string; n: Word): string; //自定义函数begin while Length(s) < n do begin s := s + ' '; end; Result := s;end;procedure TForm1.Button8Click(Sender: ... 阅读全文
摘要：
procedure TForm1.Button7Click(Sender: TObject); //读取全部var fvar:TextFile; //声明文本文件变量 f,s: string;begin f:='f:\test\Test.txt'; AssignFile(fvar,f); //变量与文件建立关联 Reset(fvar); //只读打开 Memo1.Clear; ... 阅读全文
摘要：
又有好多天没有发表任何文章了。。。这几天尽量补回，下面看代码吧。 阅读全文