如何使用Lazarus将html表格文件打开到（字符串）网格中？

我是新来的，所以请随时就我的提问方式给出反馈

对于学校的一个项目，我需要使用Lazarus在stringgrid中打开带有表格的html文件。我的老师说我需要使用

pos

来定位html标记，使用

和

我应该能够定义行和列，但我发现这非常困难

---

我对这个问题还不太了解，我还停留在早期阶段。我试着看看我的

pos

是否正常工作，但实际上没有。我的想法是：点击

按钮1

将打开

OpenDialog1

。然后我选择一个html文件，我的程序将在

Pos（“中搜索文本，我想，造成您困难的一点是没有意识到这一点
您已经将文件加载到TStringList中，TStringList的内容可以通过其Text属性作为sstring访问，因此您可以执行以下操作

var
  P : integer;
[...]
P := Pos('<th', Textfile.Text). 

请注意，Strings属性是基于零的，因此第一个列表是MyStringLIst.Strings[0]

您可以像这样逐行处理文本文件内容

var
  i : Integer;
[...]
  for i := 0 to TextFile.Count - 1 do begin
    if Pos('<th', TextFile.Strings[i]) > 0 then 
      { do something }
  end;   

var
i：整数；
[...]
对于i:=0到TextFile.Count-1，开始
如果位置（“我不确定我是否遵循了您代码的逻辑。为什么文件名包含“@MartynA”您完全正确。这个问题已经解决了，我将更改我的问题。我将搜索位置更改为“一旦您将文件加载到TStringList中，TStringList的内容可以通过其文本属性作为sstring访问，因此您可以这样做。”类似于P:=Pos的方法（“@MartynA谢谢！！这正是我想要的！我会把我说的话写进一个答案。给我几分钟…谢谢你的提示！很抱歉我不能投票给你的答案，因为我在这个网站上太年轻了…不，我的意思是我不能，因为这个问题是我的第一个问题…请稍后再看我的答案谢谢！搜索按钮非常困难。。。我接受了
S := MyStringList.Strings[Index]. 

var
  i : Integer;
[...]
  for i := 0 to TextFile.Count - 1 do begin
    if Pos('<th', TextFile.Strings[i]) > 0 then 
      { do something }
  end;