摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ExtCtrls;type TForm1 = class(TForm) MainMenu1: TMainMenu; Memo1: TMemo;... 阅读全文
posted @ 2010-11-14 15:15
巅枫
阅读(498)
评论(0)
推荐(0)
摘要：
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... 阅读全文
posted @ 2010-11-14 15:12
巅枫
阅读(402)
评论(0)
推荐(0)
摘要：
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(... 阅读全文
posted @ 2010-11-14 15:07
巅枫
阅读(239)
评论(0)
推荐(0)
摘要：
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... 阅读全文
posted @ 2010-11-14 14:59
巅枫
阅读(307)
评论(0)
推荐(0)
摘要：
//这个过程级函数的功能是: 用空格把 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: ... 阅读全文
posted @ 2010-11-14 14:55
巅枫
阅读(281)
评论(0)
推荐(0)
摘要：
procedure TForm1.Button7Click(Sender: TObject); //读取全部var fvar:TextFile; //声明文本文件变量 f,s: string;begin f:='f:\test\Test.txt'; AssignFile(fvar,f); //变量与文件建立关联 Reset(fvar); //只读打开 Memo1.Clear; ... 阅读全文
posted @ 2010-11-14 14:49
巅枫
阅读(204)
评论(0)
推荐(0)
摘要：
又有好多天没有发表任何文章了。。。这几天尽量补回，下面看代码吧。 阅读全文
posted @ 2010-11-14 14:35
巅枫
阅读(416)
评论(0)
推荐(0)
浙公网安备 33010602011771号