delphi - Delphi-搜索();程序。不兼容类型

Question

procedure ListMembers;
var
  Member, lMembers: string;
  lengthOfMember: Longint;
begin
  Writeln; 
  Writeln;
  Reset(FileA); //Only need read-only
  Reset(FileB); //Only need read-only
  while not Eof(FileA) do
    begin
      Readln(FileA, lMembers);
      Write(lMembers);
    end;
  Writeln(sLineBreak + sLineBreak);
  Write('Type the name of the member for more information: ');
  Readln(Member);
  lengthOfMember := Length(Member) + 2;
  Seek(FileB, lengthOfMember);
end;

尝试编译时，我在这里遇到问题。 Seek（）;最后一行返回错误不兼容类型。就我在网上阅读的内容而言，Seek接受了var：File和var：longint，所以我看不到为什么它在输入文件和longint时被认为是不好的类型。

FileB在代码的主要部分分配给了一个文本文件。这部分只是一个过程。

感谢任何帮助。下面的更多代码。

program WoWProject;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
  TMember = record
  Name : string;
  Level : integer;
  CharClass : string;
  Role : string;
  Spec : string;
  DKP : integer;
end;

var
FileA, FileB : Textfile;

//THIS PART IS THE PROCEDURE ABOVE
//ANOTHER PROCEDURE HERE UNRELATED TO THIS
//ANOTHER HERE WHICH IS THE WELCOME PROCEDURE

//MAIN
begin
 Assign(FileA, 'CharacterNames.txt');
 Assign(FileB, 'CharacterInfo.txt');
 repeat
   Append(FileA);
   Append(FileB);
   Welcome;
 until 1=2
end.

Answer 1

该文档对Seek()的描述如下：


将已键入或未键入文件的当前位置移动到指定的组件。不适用于文本文件。


这就是您的问题。