提问！提问！可不可以在memo中显示.txt文档其中一行的内容啊？可以的话，咋弄呢？

Question

在c:\中有一个名为test.txt的文档文件，内容如下：
12345678           87654321
asdfghjk           kjhgfdsa
qwertyui           iuytrewq
要怎样显示其中的一行内容呢?
比如，第一行

Answer 1

var
  F1, F2: TextFile;
  str: string;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.FileName);
    Reset(F1);    Readln(F1,str);
    Memo1.Lines.Text := str;
    CloseFile(F1);
  end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
  begin
  str := tstringlist.Create;
  str.LoadFromFile(opendialog1.FileName);
  memo1.Lines.Add(str.Strings[0]);
  str.Free;
  end;
end;

Answer 3

如果显示第一行,用wanwangzhiwang(万王之王) 的
如果显示任意一行, 用gaodu2002(旖旎) 的

Answer 4

落了一点，应该定义一个变量
var
  str: tstrings;

Answer 5

用万王的方法
想读第几行
就执行几次readln就可以了