delphi如何读取doc指定行内容

在Delphi中，可使用TWordDocument组件来读取.doc文件的内容。要读取指定行的内容，可使用下面的代码：

var
WordApp: TWordApplication;
WordDoc: TWordDocument;
Paragraph: TParagraph;
LineNumber: Integer;
begin
WordApp := TWordApplication.Create(nil);
WordDoc := WordApp.Documents.Open('C:path	oyourdocument.doc', EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
// 设置读取指定行的行号
LineNumber := 1; // 比如读取第1行的内容
// 获得指定行的段落
Paragraph := WordDoc.Paragraphs.Item(LineNumber);
// 获得段落的文本内容
ShowMessage(Paragraph.Range.Text);
// 释放资源
WordDoc.Close(EmptyParam, EmptyParam, EmptyParam);
WordApp.Quit(EmptyParam, EmptyParam, EmptyParam);
WordDoc := nil;
WordApp := nil;
end;

在上面的代码中，我们首先创建了一个TWordApplication对象和一个TWordDocument对象，然后使用Documents.Open方法打开指定的.doc文件。接着，我们设置了要读取的行号（在例子中是第1行），并使用Paragraphs.Item方法获得指定行的段落对象。最后，我们使用Paragraph.Range.Text获得段落的文本内容，并使用ShowMessage显示在消息框中。最后，我们释放了资源，关闭了文档和利用程序。
请注意，要使用上述代码，你需要在Delphi中添加对WordXP单元的援用。