如何查找文本文件？

Question

我正在使用文本文件存储一些数据，以便以后可以使用它创建报告，但是我存储的数据是多行的。

1
1
2
2

让我们说一下，如果我想从数字2中读取数据，我如何将变量分配给不带1的第三和第四行（实际数据中的数字将不相同）。 Seek（）将不起作用，因为它是一个文本文件，如果更改了类型，我将无法使用writeln（）。无论如何，我可以不使用记录就可以做到这一点吗？

编辑：总共有96行，并且所有行的位数可能都不相同。

Answer 1

由于输入文件很小，因此可以使用TStringList来处理它。这是一个例子。

名为adrian.txt的示例文本文件的前几条记录，其中包含随机数。

15
37
46
29
33
37
37
50
41
48
3
9
31
50

拉撒路代码：TStringList对象s使用其LoadFromFile方法将文本文件的内容加载到自身中。现在，各个记录的内容均可用，并按其编号索引。仅注意这些数字是零相关的。也就是说，第一个记录成为TStringList中的第0个字符串。

procedure TForm1.Button1Click(Sender: TObject);
var
  s: TStringList;
begin
  s := TStringList.Create;
  s.LoadFromFile('adrian.txt');
  Memo1.Lines.Add(s[0]);
  Memo1.Lines.Add(s[1]);
  Memo1.Lines.Add(s[2])
end;                 

按下按钮，这就是您所看到的。