读取TXT内容

Question

begin
我想读取TXT文件里的内容：
1：三行一读；   //有规律，必须是三行一读，每三行大小一样
2：不用OPENDIALOG；//不能让F9时 一点按纽就弹出对话框
3：读取的内容不能显示出来；//内容秘密
4：最好能给详细点；// 新手 请原谅
end。

Answer 1

就是一般的话 编译的时候用到了 OPENDIALOG的时候会弹出一个框框，会让选择什么类型的文件，我就是想不让这个东西弹出来

Answer 2

汗 
那你就别用 OPENDIALOG 了就是了
直接打开 TXT 就是了

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  InputFile:textfile;
  s:   string;
  i:   integer;
begin
  AssignFile(InputFile,'d:\tt.txt');
  reset(InputFile);
  i:=3;
  while   not   eof(InputFile)   do
  begin
    readln(InputFile,s);
    inc(i);
    if i>=3 then
    begin
      memo1.Lines.Add(s);
      i:=0;
    end;
  end;
  closeFile(inputFile);
end;