如何操作文件和显示当前系统时间？

Question

操作文件包括：
           1 声明（新建）文件 2 打开文件 3 修改文件 4 显示当前系统时间：
           要求界面上时间与系统一致
有code例子的 就给分！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  Mytextfile:textfile;
  i:integer;
  s:string;
begin
  assignfile(Mytextfile,'D:\ssk\³ÌÐòÀý\mytext.txt');
  rewrite(mytextfile);
  try
    for
      i:=1 to 5 do
      begin
        s:='this is line # ';
        writeln(mytextfile,s,i);
      end;
  finally
    closefile(mytextfile);
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
  Mytextfile:textfile;
  i:integer;
  s:string;
begin
  assignfile(Mytextfile,'D:\ssk\³ÌÐòÀý\н¨Îļþ¼Ð\mytext.txt');
  append(mytextfile);
  try
    for
      i:=6 to 10 do
      begin
        s:='this is line # ';
        writeln(mytextfile,s,i);
      end;
  finally
    closefile(mytextfile);
  end;
end;procedure TForm1.Button3Click(Sender: TObject);
var
  Mytextfile:textfile;
  i,j:integer;
  s:string[15];
begin
  assignfile(Mytextfile,'D:\ssk\³ÌÐòÀý\н¨Îļþ¼Ð\mytext.txt');
  reset(mytextfile);
  try
    while not eof(mytextfile) do
      begin
        readln(mytextfile,s,j);
        memo1.lines.Add(s+inttostr(j));
      end;
  finally
    closefile(mytextfile);
  end;
end;

Answer 2

tmd，刚才掉线了
Button1 是新建并写
Button2 是打开并写
Button3 是读
 时间
edit.text:=now

Answer 3

http://search.csdn.net/Expert/topic/1926/1926706.xml?temp=.9983332
http://search.csdn.net/Expert/topic/716/716086.xml?temp=.6919214

Answer 4

放个timer控件，编辑events的ontimer事件“timer.Caption:=timetostr(time);”就能显示当前时间了。不过要在启动后1秒钟才有显示。我认为想实现你要的结果这个是最简单的办法希望对你有用。

Answer 5

刚才忘说了，还要加一个label，把name的值改成timer，caption的值为空